Question

求一个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)))))
(command "layer" "lo" laname "" )
(setq i (1+ i))
)
(setvar "cmdecho" gb))

2.我自己写了一个代码，但是好像不对，请帮我看一下。
(defun c:89()
(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)))))
(command "vplayer" "f" laname "" )
(setq i (1+ i))
)
(setvar "cmdecho" gb))

3.根据2提出来的问题，我想求一个cad冻结视口的lisp命令，效果要和vplayer 然后选择f的命令效果一样。

4.cad 模型空间和图纸空间来回切换是通过TILEMODE变量1或者0实现的，想求一个lisp代码，只需一个命令就可以来回切换他们。

Answer 1

从 (princ "锁定选择物体的图层: ") 语句看，
(command "vplayer" "f" laname "" ) 应为
(command "layer" "u" laname "" )才对。

其他问题不是一句、两句能回答得清楚的。你要省的事觉得用lisp编程来解决不划算。

Answer 2

多少天都没人，要程序的话咪我