自编简易画桩程序，求高手优化！

ToXicBug

最近开始学习LISP语言，自己又正在画桩，就写了个简易的小程序，自己慢慢用还是可以，但是速度快了 就会出错，我想可能是算法上复杂了，电脑计算没这么快？所以求高手优化下 谢谢！以下是源代码：

1. 
   
2. (defun C:TBHZ()
   
3.     (setvar "cmdecho" 0)
   
4. (setq pt1 (getpoint "\n 请输入第一桩芯点:"))
   
5. (setq pt2 (getpoint "\n 请输入第二桩芯点:"))
   
6. (setq zj (getreal "\n 请输入桩径<800>:"))
   
7. (if (null zj) (setq zj 800))
   
8. ;*******************************************
   
9. ;以下计算两桩芯线与当前UCS之间的弧度
   
10. (setq rag (angle pt1 pt2))
    
11. ;*******************************************
    
12. ;由以上给定数据计算椭圆桩直段四角点
    
13. (setq rag1 (+(/ pi 2) rag))
    
14. (setq rag2 (+(* pi 1.5) rag))
    
15. (setq pt11 (polar pt1 rag1 (/ zj 2)))
    
16. (setq pt12 (polar pt1 rag2 (/ zj 2)))
    
17. (setq pt21 (polar pt2 rag1 (/ zj 2)))
    
18. (setq pt22 (polar pt2 rag2 (/ zj 2)))
    
19. ;********************************************
    
20. ;由计算结果开始画图
    
21. (command "PLINE" pt11 "W" "0" "0" "A" "CE" pt1 pt12 "L" pt22 "A" "CE" pt2 pt21 "L" "C" "" )
    
22. (command "chprop" (entlast) "" "c" 6 "") ;将最后的图形改颜色为紫红色
    
23. (TBZX)
    
24. )
    
25. (prompt "<<TBHZ>> → → → → ToXicBug的画桩程序，当前只能画二芯桩.感谢支持，有建议请发邮件toxicbug@qq.com")
    
26. (prin1)
    
27. (defun TBZX() ;画桩芯点（一个十字形和一个小圆），并改颜色为绿色
    
28.     (setq pt1x1 (polar pt1 0 150))
    
29. (setq pt1x2 (polar pt1 pi 150))
    
30. (setq pt1x3 (polar pt1 (/ pi 2) 150))
    
31. (setq pt1x4 (polar pt1 (* pi 1.5) 150))
    
32. (setq pt2x1 (polar pt2 0 150))
    
33. (setq pt2x2 (polar pt2 pi 150))
    
34. (setq pt2x3 (polar pt2 (/ pi 2) 150))
    
35. (setq pt2x4 (polar pt2 (* pi 1.5) 150))
    
36. ;*********************************************
    
37. ;以下开始画图
    
38. (command "LINE" pt1x1 pt1x2 "")
    
39. (command "CHPROP" (entlast) "" "C" 3 "")  ;将最后的图形改颜色为绿色
    
40. (command "LINE" pt1x3 pt1x4 "")
    
41. (command "CHPROP" (entlast) "" "C" 3 "")  ;将最后的图形改颜色为绿色
    
42. (command "LINE" pt2x1 pt2x2 "")
    
43. (command "CHPROP" (entlast) "" "C" 3 "")  ;将最后的图形改颜色为绿色
    
44. (command "LINE" pt2x3 pt2x4 "")
    
45. (command "CHPROP" (entlast) "" "C" 3 "")  ;将最后的图形改颜色为绿色
    
46. (command "circle" pt1 75) ;画小圆
    
47. (command "CHPROP" (entlast) "" "C" 3 "")  ;将最后的图形改颜色为绿色
    
48. (command "circle" pt2 75)
    
49. (command "CHPROP" (entlast) "" "C" 3 "")  ;将最后的图形改颜色为绿色
    
50. )
    

<br /> (defun C:TBHZ()<br />     (setvar "cmdecho" 0)<br /> (setq pt1 (getpoint "\n 请输入第一桩芯点:"))<br /> (setq pt2 (getpoint "\n 请输入第二桩芯点:"))<br /> (setq zj (getreal "\n 请输入桩径<800>:"))<br /> (if (null zj) (setq zj 800))<br /> ;*******************************************<br /> ;以下计算两桩芯线与当前UCS之间的弧度<br /> (setq rag (angle pt1 pt2))<br /> ;*******************************************<br /> ;由以上给定数据计算椭圆桩直段四角点<br /> (setq rag1 (+(/ pi 2) rag))<br /> (setq rag2 (+(* pi 1.5) rag))<br /> (setq pt11 (polar pt1 rag1 (/ zj 2)))<br /> (setq pt12 (polar pt1 rag2 (/ zj 2)))<br /> (setq pt21 (polar pt2 rag1 (/ zj 2)))<br /> (setq pt22 (polar pt2 rag2 (/ zj 2)))<br /> ;********************************************<br /> ;由计算结果开始画图<br /> (command "PLINE" pt11 "W" "0" "0" "A" "CE" pt1 pt12 "L" pt22 "A" "CE" pt2 pt21 "L" "C" "" )<br /> (command "chprop" (entlast) "" "c" 6 "") ;将最后的图形改颜色为紫红色<br /> (TBZX)<br /> )<br /> (prompt "<<TBHZ>> → → → → ToXicBug的画桩程序，当前只能画二芯桩.感谢支持，有建议请发邮件<a href="mailto:toxicbug@qq.com" target="_blank">toxicbug@qq.com</a>")<br /> (prin1)<br /> (defun TBZX() ;画桩芯点（一个十字形和一个小圆），并改颜色为绿色<br />     (setq pt1x1 (polar pt1 0 150))<br /> (setq pt1x2 (polar pt1 pi 150))<br /> (setq pt1x3 (polar pt1 (/ pi 2) 150))<br /> (setq pt1x4 (polar pt1 (* pi 1.5) 150))<br /> (setq pt2x1 (polar pt2 0 150))<br /> (setq pt2x2 (polar pt2 pi 150))<br /> (setq pt2x3 (polar pt2 (/ pi 2) 150))<br /> (setq pt2x4 (polar pt2 (* pi 1.5) 150))<br /> ;*********************************************<br /> ;以下开始画图<br /> (command "LINE" pt1x1 pt1x2 "")<br /> (command "CHPROP" (entlast) "" "C" 3 "")  ;将最后的图形改颜色为绿色<br /> (command "LINE" pt1x3 pt1x4 "")<br /> (command "CHPROP" (entlast) "" "C" 3 "")  ;将最后的图形改颜色为绿色<br /> (command "LINE" pt2x1 pt2x2 "")<br /> (command "CHPROP" (entlast) "" "C" 3 "")  ;将最后的图形改颜色为绿色<br /> (command "LINE" pt2x3 pt2x4 "")<br /> (command "CHPROP" (entlast) "" "C" 3 "")  ;将最后的图形改颜色为绿色<br /> (command "circle" pt1 75) ;画小圆<br /> (command "CHPROP" (entlast) "" "C" 3 "")  ;将最后的图形改颜色为绿色<br /> (command "circle" pt2 75)<br /> (command "CHPROP" (entlast) "" "C" 3 "")  ;将最后的图形改颜色为绿色<br /> )<br />

pt1 pt2 等点见附图，pt1x1 pt1x2 pt1x3 pt1x4 pt2x1 pt2x2 pt2x3 pt2x4 为图中十字形边点。画桩速度过快就会出现一些乱图，比如十字少 线啊  椭圆 不规则啊 等等 ，我觉得可能是速度超过电脑画图的速度就出错了，慢慢一个一个的点 还是没问题的！


该贴已经同步到 ToXicBug的微博

ToXicBug

这就是使用过快的结果。。。感觉是计算机还没画完下个命令来了 是这样吗？求解答

Andyhon

关了补捉再试

ToXicBug

哦原来是这个问题啊 谢谢 现在再怎么快 也没这个怪图出现了  呵呵  谢谢哈 不过 要是能再优化就好了。下一步加入 层控制 和 承台 以及三芯（多芯）桩的自动化！