关于entsel 函数想请教下高人

夏若薄荷猫

1. (defun c:ww()
   
2. (setvar "cmdecho" 0)
   
3. (setq os (getvar "osmode"))
   
4. (setvar "osmode" 0)
   
5. (defun cept()
   
6.     (setq en (entsel))
   
7.     (setq en_data (entget (car en)))   
   
8.     (setq cept_data (assoc 10 en_data))
   
9.     (setq cept (cdr cept_data))
   
10. );_defun
    
11. (setq n (getint "\n请输入需要画圆的线的条数："))
    
12. (setq j 0)
    
13. (while (< j n)
    
14.    (cept)
    
15.    (command "circle" cept 200)
    
16. );_while
    
17. (setvar "osmode" os)
    
18. (prin1))

(defun c:ww()<br /> (setvar "cmdecho" 0)<br /> (setq os (getvar "osmode"))<br /> (setvar "osmode" 0)<br /> (defun cept()<br />     (setq en (entsel))<br />     (setq en_data (entget (car en)))   <br />     (setq cept_data (assoc 10 en_data))<br />     (setq cept (cdr cept_data))<br /> );_defun<br /> (setq n (getint "\n请输入需要画圆的线的条数："))<br /> (setq j 0)<br /> (while (< j n)<br />    (cept)<br />    (command "circle" cept 200)<br /> );_while<br /> (setvar "osmode" os)<br /> (prin1))

这里entsel函数为什么不能循环？？
我要连续使用entsel函数读入属性该怎么？   

夏若薄荷猫

改了之后果然好了,,大意了..  

谢谢指导..    O(∩_∩)O~   

bpf19880323

貌似这样也可以循环，但是为什么运行后选取了一次后画了圆，cad就卡死了，求解：
(defun c:ww()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
    (setq en (entsel))
    (setq en_data (entget (car en)))   
    (setq cept_data (assoc 10 en_data))
    (setq gg (cdr cept_data))
(while (= (setq rr (cdr (assoc 0 en_data))) "LINE")
   (command "circle" gg 200)
  (princ)
)
(setvar "osmode" os)
(princ))

bpf19880323

bpf19880323 发表于 2012-3-1 23:33
貌似这样也可以循环，但是为什么运行后选取了一次后画了圆，cad就卡死了，求解：
(defun c:ww()
(setvar  ...

是什么问题呢，是whlie函数用错了吗？

liu_kunlun

(defun c:ww()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(while
   (progn
    (setq en (entsel))
    (setq en_data (entget (car en)))   
    (setq cept_data (assoc 10 en_data))
    (setq gg (cdr cept_data))
    (= (setq rr (cdr (assoc 0 en_data))) "LINE")
   )
   (command "circle" gg 200)
  (princ)
)
(setvar "osmode" os)
(princ))