yang686526

请教尺寸标注文字替代变量，谢谢！
www.dimcax.com
请教尺寸标注文字替代变量，谢谢！
例15.000，1.输入命令后，2.输入字符"int” 3.选尺寸15.000（最好可复选）回车尺寸变成int15.000

(defun c:der()
(setq ss (entsel "\n請選擇要加入字符的尺寸:")
ss (car ss) en (entget ss '("*"))
1t1 (assoc 1 en) 1t11 (cdr 1t1)
1t33 (getstring "\n請輸入要加入的字符:<int> ") )
(if (member 1t33 '("" nil)) (setq 1t33 "int") )
(if (= 1t11 "") (setq 1t22 (strcat 1t33 "<>")) (setq 1t22 (strcat 1t33 1t11)) )
(setq 1t2 (cons 1 1t22) en (subst 1t2 1t1 en)) (entmod en) (princ)
)
將以上代碼復制到任一txt記事本文件，另存為lsp文件名後，加載，輸入命令der運行.
欢迎大家跟我交流lisp相关问题

谢谢楼主！
cad工具里查询质量准吗
cad工具里查询质量准吗