Question

这个CAD LSP出错在哪里？

(defun c:XXXX (/ os ce bm ss se la )
(prompt "")
(setq os (getvar "osmode")
ce (getvar "cmdecho")
bm (getvar "blimpode")
)
(setvar "osmode" 37)
(setq se (getstring "\n input layer name<any key>/select matching object <enter>")
)
(if (= se "")
(progn
(setq la (cdr (assoc '8 (entget (car (entsel "\n select an object to match it"
) ) ) ) ) )
(setq ss (ssget))
(command "copy" ss "" "@" "@")
(command "_change" ss "" "p" "la" la "")
)
(progn
(setq la (getstring "\n enter layer name>"))
(setq ss (ssget))
(command "copy" ss "" "@" "@")
(command "_change" ss "" "p" "la" la "")
)
)
(setvar "osmode" os)
(setvar "cmdecho" ce)
(setvar "blipmode" bm)
(princ)
)

Answer 1

要修改lisp，要做到以下几点：

1. 说明这个程序的功能，不要写个代码放在上面，让人去琢磨。

2. 每句话，做出说明。比如【(setq #os1 (getvar "osmode"));取得捕捉】

3. 这样让人理解每句话。

4. 另外，使用command函数的时候，要关闭捕捉(setvar "osmode" 0)。