;;; 修复字体：将所有非标准字体替换为 txt.shx + hztxt.shx ;;; 命令：FF (defun c:FF ( / styles styleName styleData fontFile bigFont) (setq styles (tblnext "STYLE" t)) ; 开始遍历文字样式表 (while styles (setq styleName (cdr (assoc 2 styles)) ; 样式名称 fontFile (cdr (assoc 3 styles)) ; 字体文件名 bigFont (cdr (assoc 4 styles)) ; 大字体文件名 ) ;; 判断：如果当前字体不是 txt.shx 或者没有大字体（或大字体不是 hztxt.shx） (if (or (not (wcmatch fontFile "txt.shx")) (and (not bigFont) (wcmatch fontFile "*.shx&q

用KIMI充当翻译和问询助手，摆脱传统百度的词不达意。 例如1：在cad lisp中 (-4 . "<OR") (-4 . "<AND") (0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE,POINT") (-4 . "<NOT") (-4 . "<AND") (0 . "POLYLINE") (-4 . "&") (70 . 88) (-4 . "AND>") (-4 . "NOT>") (-4 . "AND>") (-4 . "<AND") (0 . "SPLINE") (-4 . "&=") (70 . 8) (-4 . "AND>") (-4 . "OR>")这是什么意思 解答： 在 AutoCAD 的 Lisp 编

(defun c:X1() (setvar "cmdecho" 0) (setq en (entsel "Select a LINE:")) (setq en_data (entget (car en))) (setq pts (assoc 10 en_data)) (setq pt1 (cdr pts)) (setq px1 (car pt1)) (setq py1 (cadr pt1)) (setq pte (assoc 11 en_data)) (setq pt2 (cdr pte)) (setq px2 (car pt2)) (setq py2 (cadr pt2)) (setq mx (/ (+ px1 px2) 2)) (setq my (/ (+ py1 py2) 2)) (setq mpt (list mx my)) (setq p1 (polar mpt pi 4)) (setq p2 (polar mpt (* pi 1.5) 4)) (command "circle" mpt 2.1) (command ".change" (entlast) "" "p" "la" "-CB" ""

在明经论坛中遇到了处理字符串的麻烦： http://bbs.mjtd.com/forum.php?mod=viewthread&tid=191314& 所以开始研究lisp中的部分字符串功能，期望能组成一个完整的整体，来完成我的问题。 我决定先做一些联系，完成查找、替换，表格元素替换的小函数，然后组成一个完整的函数，解决字符串处理的问题。三天打鱼两天晒网，我也不晓得什么时候能完成。明经论坛，我暂时还不能发帖，先立贴在此，等我会员升上去，再把，思路整理，分享给和我一样的初学者

请问前辈lisp中样条曲线如何使用？我用lisp放样展开接管，绘制了好多点，如何使用样条曲线把这些点链接起来。

screen 网页链接 `

;;;多段线坐标标注并导出 (defun c:zbbzdc() (setq ps_cmdecho (getvar "cmdecho") ps_osmode (getvar "osmode") ps_luprec (getvar "luprec") ) (setvar "cmdecho" 0) (setvar "osmode" 0) (setvar "luprec" 0) (setq TextHeight (getdist "\n请输入文字高度:")) (command "-layer" "n" "坐标标注" "c" "4" "坐标标注" "") (setvar"dimzin"0);;保留小数位数时如果位数不足可以补零 (princ "\n输入引线长度 (建议")(prin

水平放置的矩形，要求获得四个点坐标，从左下角到右上角，分别赋值给s1 s2 s3 s4

lisp做数字求和，怎么把结果复制到剪贴板，然后我可以点一下就可以直接粘贴到该位置，还有怎么获取到例如“管540.1钉1余26”这种文字数字混合里的所有数字求和，搞了一下午都没成功，求大佬 代码如下： (defun c:cc(/ all endno aa bb cc wz tha tsum i) (if (null xzz) (setq xzz 0)) (setq ALL (ssget(list (cons 0 "text")))) (if all (SETQ nn (SSLENGTH ALL))) (setq endno 0) (setq tsum 0 i 0) (WHILE (and (< endno nn) all) (setq aa (ssname all endno)) (setq bb (entget aa)) (setq cc(cdr(assoc 1 bb))) (setq cc1(vl-string

这是网上找到的一个Lisp代码，这是实现CAD某种功能的插件，但根据此代码所选择出来的对象无法进行下一步的编辑，或者无法承接下一个操作命令，即回车（空格）确认命令后，所选对象变为“未选择状态”，不知道是不是该代码缺少某种函数？求大神完善该代码 以下为代码内容： ;Polyline/circle select - http://www.xanadu.cz - http://www.cadforum.cz ;(use the WPS command or 'WPS inside an object selection prompt) (defun C:WPS ( / i elist at cmde cen rad p1) (setq cmde (getvar "cmdecho")

意外中断怎么继续执行下一步

比emacs+slime还好用啊囧

LISP 制作输入选项，我回车直接在十字光标那里生 成类似这种选择列表，怎么实现呢？求大神支招

什么函数可以，返回指定字符在字符串中的位置。 例如 A 在 BSAS 中 返回3

盖章吗实现在屏幕上面点击不同的点，计算长度

学lisp已经两个月了，基本功能都知道了，就是这方面的资料特别少，在网上没找到，如何把SLD文件打包进v

先说需求，给车位标注。单个车位标注一个数字；连续的标注“*—*”，例如“4-6”“5-9”。 实现逻辑就是先输入一个开始值，然后循环(输入步进值，标注)。 (defun c:cw() (setq QS 0) (setq QS (getint "\n输入开始值：")) (setq i 0) (setq BJ 0) (while (< i 1000) (setq BJ (getint "\n输入步进值：")) (cond ((< BJ 2) (setq txt (itoa (+ BJ QS)))) (t (setq txt (strcat (itoa QS) "-" (itoa (- (+ QS BJ) 1))))) ) (setq QS (+ QS BJ)) (setq i (+ i 1)) (command "ZJWZ" txt) ) ) 附上代码和运行

用lisp怎么编？多段线一顶点的相邻的两个顶点坐标

(defun C:VV ( ) (setvar "cmdecho" 0) (setq en (ssget "TEXT,MTEXT")) (setq en-date (entget (car en))) (setq cenpt (cdr (assoc 10 en-date))) (setq rr (cdr (assoc 1 en-date))) (command "change" e "" "p" "la" "rr" "") (princ)

如图，cad的块应该是有插入点这个信息的，我想把这个信息提取出来，请问可以怎么做？ 然后我问chatgpt，它说什么用 vlax-ename->vla-object 函数转换为对应的 VLA-Object 对象，这个东西我完全没有听说过啊，请问我可以去哪里了解和学习这个vla对象？

求助(cad)：请大神们写一个lsp代码，能一次完成文字移动(可按鼠标方向移动),万分感谢！

我知道有个cad有shell命令，但是其他平台没有这个命令，想利用lisp直接创建一个文件，但是没有找到办法

W10系统lisp编辑器中 系统检查编辑器中的文字失灵还有没有补救办法？谢谢！

@贴吧大艺术家 冰天雪地

@贴吧大艺术家 轰动你

@贴吧大艺术家 敲键盘的程序员

有没有人懂lisp的，我找私教价格私聊

电子书下载链接: http://share.learnfk.com/f/18605620-495896563-7614fd

图一是我想的一个大概逻辑，图二图三是我举得一个简单例子，主要想实现的是选取直线上一点后会弹出一个文本框，输入标注后会自动旋转与直线平行，并压在直线上。有无大佬指导下，可有偿。

希望看到的大佬能发给我一份，万分感谢！！ 邮箱地址：hellomrchen@yeah.net

萌新求教，怎么把cad里面画好的图新模版，放到lisp里，以后用的时候直接点那就在那里出来

新人求助 有没有搞结构设计的，有人写过梁配筋的lisp么？

我用 (command "_ai_selall")提示指令错误 苦恼中

同一个lisp原程序，同样的cad2007，但是在win7中运行很快，到win10里面运行速度很慢，是怎么回事儿？

已知一个块的名称（代数表示），想要获得其图元名，我的想法是先捕捉到此块，假设块的名称是1 （setq n 1) (setq k (ssget ‘‘X’’ '((0 . ‘‘INSERT’’) (cons 2 (rtos n))))) 为什么不行呢？ 还有没有其他方法可以获得图元名呢？ 谢谢大家。

lisp 建块怎么建啊

求大神告知，如何用LISP实现块数量分类统计程序，最好统计后列出表格。谢谢了。

各位大神大家好。小弟在上一门Scheme的课，final project由于判断失误，现在自知凭借自己的能力已经无法按时完成。敢问哪位大神有空帮小弟代写这个程

这是一个关于钣金单次折弯开角的程序，参考网上大神程序修改，感谢kane19900；yangmingkk的分享 程序如下： (defun c:d1()/////自定义一个程序名为d1 (setvar "cmdecho" 0)/////程序执行中关闭调用CAD命令之后在命令行中的信息回显。 (setqJL (getreal "请输入偏移距离:")/////定义数据JL, p1 (getpoint "第一点:")/////定义数据p1,指定第一点位置 P2 (getpoint p1 "第二点:")/////定义数据p2,参考 p1 指定第二点位置 ) (setq osm (getvar "osmode"))/////程序执行