阅读下一篇
求一个cad lisp命令我有4个问题请高手一一解答1.请帮我翻译下面一串代码的意思，每句都要。(defun c:1()(setq gb (getvar "cmdecho"))(setvar "cmdecho" 0)(princ "锁定选择物体的图层: ") (setq s0 (ssget))(setq i 0)(while (ssname s0 i)(setq laname (cdr (assoc 8 (entget (ssname s0 i)))))
回帖成功
经验值 +10
全部回复（13 ）
只看楼主 我来说两句-
daandrew
沙发
就是在我电脑上装出问题了，别人电脑上都没事的
2011-05-13 23:23:13
赞同0
-
黄rocky
板凳
嗯 你在其他的电脑上装装，看看是不是出现这种情况。
2011-05-13 02:07:13
赞同0
加载更多回复 举报
回复 举报