cad点编号软件lsp，求解读每句话都是什么意思，谢谢

(DEFUNC:XUHAO()(setqn(getint"输入起始号:"))(setqenttxt'((0."TEXT")(8."ZJ")(6."Continuous")... (DEFUN C:XUHAO()(setq n (getint "输入起始号:"))(setq enttxt '((0 . "TEXT") (8 . "ZJ") (6 . "Continuous") (10 0.0 0.0 0.0) (40 . 0.7) (1 . "1") (50 . 0.0)
(41 . 0.8) (51 . 0.0)(71 . 0) (72 . 4) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0)))(setq pt (getpoint "输入标位置"))(while (/= pt
nil)(setq enttxt2 (subst (cons 1 (rtos n 2 0)) '(1 . "1") (subst (append '(11) pt) '(11 0.0 0.0 0.0) enttxt)))(entmake enttxt2) (setq pt (getpoint "\n输
入标位置")) (setq n (+ n 1)) )) 展开

 我来答

1个回答

#热议# 不吃早饭真的会得胆结石吗？

百度网友4bab3be8c
2015-08-22 · TA获得超过4706个赞

知道大有可为答主

回答量：3576

采纳率：85%

帮助的人：2177万

我也去答题访问个人页

关注

展开全部

(DEFUN C:XUHAO() ;;这是定义程序的名称，用”XUHAO“作程序名
(setq n (getint "输入起始号:")) ;;设定第一个数字
(setq enttxt '((0 . "TEXT") (8 . "ZJ") (6 . "Continuous") (10 0.0 0.0 0.0) (40 . 0.7) (1 . "1") (50 . 0.0) (41 . 0.8) (51 . 0.0)(71 . 0) (72 . 4) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))) ;;这一段是设定文字的格式，（40 . 0.7）这是字高，（41 . 0.8）是宽度因子，（8 . ”ZJ“）图层是ZJ，你可以修改这几个的第二个数值改变设置
(setq pt (getpoint "输入标位置")) ;;这是要求输入点坐标
(while (/= pt nil) ;;循环开始，不确定循环，有点输入再执行下面程序
(setq enttxt2 (subst (cons 1 (rtos n 2 0)) '(1 . "1") (subst (append '(11) pt) '(11 0.0 0.0 0.0) enttxt)))(entmake enttxt2) ;;按上面的设置创建文字
(setq pt (getpoint "\n输入标位置")) ;;再输入点坐标
(setq n (+ n 1)) )) ;;序号加一，返回循环的开始

两个分号后面的就是解释