[求助]：一个画节点板的程序，谁能帮我优化一下

Groovy

这是一个画节点板的程序，谁能帮我优化一下，

它的精度不够，还有各个参数没有初始值或者是上一次输入的默认值

(
defun c:123() (/ jd jd1 zuo you gao xian r A B C D);画节点板
(setvar "cmdecho" 0)
(setq jd (getpoint "\n 请点取基点"))

(setq zuo (getdist jd "\n左点距离:"))
(setq you (getdist jd "\n右点距离:"))
(setq gao (getdist jd "\n节点板高:"))
(setq r (getangle jd "\n板件角度:"))
(setq xian (getdist jd "\n弦杆高:"))
(setq jd1 (polar jd (+ (* pi 1.5) r) (/ xian 2)))
(setq A (polar jd1 (+ pi r) zuo))
(setq D (polar jd1 r you))
(setq B (polar A (+ (* pi 1.5) r) gao))
(setq C (polar D (+ (* pi 1.5) r) gao))
(command "line" A B C D "")
   (princ)

)

zxq0220

2. 
   
3. (defun c:123 ( / jd jd1 zuo1 you1 gao1 xian1 r1 A B C D);画节点板
   
4. (setvar "cmdecho" 0)
   
5. (setq jd (getpoint "\n请点取基点 :"))
   
6. (setq zuo1 (getdist jd (strcat "\n左点距离 " (if zuo (strcat "<" (rtos zuo 2 5)">")"") ":")))
   
7. (setq zuo (if zuo1 zuo1 zuo))
   
8. (setq you1 (getdist jd (strcat "\n右点距离 " (if you (strcat "<" (rtos you 2 5)">")"") ":")))
   
9. (setq you (if you1 you1 you))
   
10. (setq gao1 (getdist jd (strcat "\n节点板高 " (if gao (strcat "<" (rtos gao 2 5)">")"") ":")))
    
11. (setq gao (if gao1 gao1 gao))
    
12. (setq r1 (getangle jd (strcat "\n板件角度 " (if r (strcat "<" (rtos r 2 5)">")"")":")))
    
13. (setq r (if r1 r1 r))
    
14. (setq xian1 (getdist jd (strcat "\n弦杆高 " (if xian (strcat "<" (rtos xian 2 5)">")"") ":")))
    
15. (setq xian (if xian1 xian1 xian))
    
16. (setq jd1 (polar jd (+ (* pi 1.5) r) (/ xian 2)))
    
17. (setq A (polar jd1 (+ pi r) zuo))
    
18. (setq D (polar jd1 r you))
    
19. (setq B (polar A (+ (* pi 1.5) r) gao))
    
20. (setq C (polar D (+ (* pi 1.5) r) gao))
    
21. (command "line" A B C D "")
    
22. (princ)
    
23. )
    

<br /> (defun c:123 ( / jd jd1 zuo1 you1 gao1 xian1 r1 A B C D);画节点板<br /> (setvar "cmdecho" 0)<br /> (setq jd (getpoint "\n请点取基点 :"))<br /> (setq zuo1 (getdist jd (strcat "\n左点距离 " (if zuo (strcat "<" (rtos zuo 2 5)">")"") ":")))<br /> (setq zuo (if zuo1 zuo1 zuo))<br /> (setq you1 (getdist jd (strcat "\n右点距离 " (if you (strcat "<" (rtos you 2 5)">")"") ":")))<br /> (setq you (if you1 you1 you))<br /> (setq gao1 (getdist jd (strcat "\n节点板高 " (if gao (strcat "<" (rtos gao 2 5)">")"") ":")))<br /> (setq gao (if gao1 gao1 gao))<br /> (setq r1 (getangle jd (strcat "\n板件角度 " (if r (strcat "<" (rtos r 2 5)">")"")":")))<br /> (setq r (if r1 r1 r))<br /> (setq xian1 (getdist jd (strcat "\n弦杆高 " (if xian (strcat "<" (rtos xian 2 5)">")"") ":")))<br /> (setq xian (if xian1 xian1 xian))<br /> (setq jd1 (polar jd (+ (* pi 1.5) r) (/ xian 2)))<br /> (setq A (polar jd1 (+ pi r) zuo))<br /> (setq D (polar jd1 r you))<br /> (setq B (polar A (+ (* pi 1.5) r) gao))<br /> (setq C (polar D (+ (* pi 1.5) r) gao))<br /> (command "line" A B C D "")<br /> (princ)<br /> )<br />

Groovy

谢谢，谢谢，学习了