[LISP函数]：重病号，请专家确诊，谢谢

fedd

从圆的图元元素里的半径，不能用作运算，我想加上一个数却不行。代码是我想画垂直两条比圆直径稍微长一点的中心线，可是下面的代码画出来的是两条直径，请专家诊断：
(defun c:zxx()
(setvar "cmdecho" 0)
(setq en(entsel "选取一个圆:"))
(setq en_data(entget(car en)))
(setq www(assoc 40 en_data))
(setq rr(cdr www))
(setq tt(+ (/ rr 10 ) rr 2))
(setq cp(cdr(assoc 10 en_data)))
(setq pe(polar cp 0 tt))
(setq pn(polar cp (* 0.5 pi) tt))
(setq pw(polar pe pi (+ tt tt)))
(setq ps(polar pn (* 1.5 pi) (+ tt tt)))
(command ".layer" "m" "zxx" "c" "3" "" "")
(command "line" pe pw "")
(command "line" pn ps "")
(princ)
)

gysjy

也许是你的ACAD环境捕捉没有取消。现修改程序如下：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:zxx()
   
5. (command "undo" "g")
   
6. (setq cm (getvar "cmdecho")
   
7.       os (getvar "osmode")
   
8.       lay (getvar "clayer")
   
9. )
   
10. (setvar "cmdecho" 0)
    
11. (setvar "osmode" 0)
    
12. (setq en(entsel "选取一个圆:"))
    
13. (setq en_data(entget(car en)))
    
14. (setq www(assoc 40 en_data))
    
15. (setq rr(cdr www))
    
16. (setq tt(+ (/ rr 10 ) rr 2))
    
17. (setq cp(cdr(assoc 10 en_data)))
    
18. (setq pe(polar cp 0 tt))
    
19. (setq pn(polar cp (* 0.5 pi) tt))
    
20. (setq pw(polar pe pi (+ tt tt)))
    
21. (setq ps(polar pn (* 1.5 pi) (+ tt tt)))
    
22. (command ".layer" "m" "zx" "c" "3" "" "")
    
23. (command "line" pe pw "")
    
24. (command "line" pn ps "")
    
25. (setvar "cmdecho" cm)
    
26. (setvar "osmode" os)
    
27. (setvar "clayer" lay)
    
28. (command "undo" "end")
    
29. (princ)
    
30. )
    
31.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:zxx()<br /> (command "undo" "g")<br /> (setq cm (getvar "cmdecho") <br />       os (getvar "osmode")<br />       lay (getvar "clayer")<br /> )<br /> (setvar "cmdecho" 0)<br /> (setvar "osmode" 0)<br /> (setq en(entsel "选取一个圆:"))<br /> (setq en_data(entget(car en)))<br /> (setq www(assoc 40 en_data))<br /> (setq rr(cdr www))<br /> (setq tt(+ (/ rr 10 ) rr 2))<br /> (setq cp(cdr(assoc 10 en_data)))<br /> (setq pe(polar cp 0 tt))<br /> (setq pn(polar cp (* 0.5 pi) tt))<br /> (setq pw(polar pe pi (+ tt tt)))<br /> (setq ps(polar pn (* 1.5 pi) (+ tt tt)))<br /> (command ".layer" "m" "zx" "c" "3" "" "")<br /> (command "line" pe pw "")<br /> (command "line" pn ps "")<br /> (setvar "cmdecho" cm)<br /> (setvar "osmode" os)<br /> (setvar "clayer" lay)<br /> (command "undo" "end")<br /> (princ)<br /> ) <br />   [/FONT]<br />