[求助]：请高手看看这个复制实体边的程序错在哪里？

zdarc

(defun c:ce ()
  (princ "\n请选择要复制的实体边")
  (command "solidedit "edge" "copy" pause)
  (while (/= (getvar "cmdnames") "") (command pause))
  (command "0,0" "0,0" "@" "x" "x")
)
该怎么编写类似程序呢？

eachy

最初由 zdarc 发布
[B](defun c:ce ()
  (princ "\n请选择要复制的实体边")
  (command "solidedit "edge" "copy" pause)
  (while (/= (getvar "cmdnames") "") (command pause))
  (command "0,0" "0,0" "@" "x" "x")
)
该怎么编?.. [/B]

秋枫灵感突发:)

2. 
   
3. (defun c:ce (/ el)
   
4.   (setq el (entlast))
   
5.   (princ "\n请选择要复制的实体边<回车退出>: ")
   
6.   (command "solidedit" "edge" "copy")
   
7.   (while (/= (getvar "cmdnames") "")
   
8.     (if        (equal (entlast) el)
   
9.       (command pause)
   
10.       (command "x" "x")
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )

<br /> (defun c:ce (/ el)<br />   (setq el (entlast))<br />   (princ "\n请选择要复制的实体边<回车退出>: ")<br />   (command "solidedit" "edge" "copy")<br />   (while (/= (getvar "cmdnames") "")<br />     (if        (equal (entlast) el)<br />       (command pause)<br />       (command "x" "x")<br />     )<br />   )<br />   (princ)<br /> )