请高手完善一下程序

szx025

2. (defun C:STR (/ pt1 pt2 l n p0 p1 t01 t02 t1 t2 S1 S2 old_osmode old_cmdecho k ent13 i th )
   
3. ;;保存系统变量设置
   
4. (setq old_osmode (getvar "osmode"))
   
5. (setq old_CMDECHO (getvar "CMDECHO"))
   
6. (setvar "CMDECHO" 0)
   
7. (setvar "osmode" 32)
   
8. (command "-layer" "m" "栏杆" "C" "1" "" "")
   
9. (if (= thss nil)
   
10.     (setq thss 0)
    
11.   )
    
12.   (setq th (getreal (strcat "\n栏杆离板边距<" (rtos thss 2 0) ">:")))
    
13.   (if (= th nil)
    
14.     (setq th thss)
    
15.   )
    
16.   (setq thss th)
    
17. (if (setq pt1 (getpoint "\n第一点（顺时针）:"))
    
18. (while (setq pt2 (getpoint pt1 "\n下一点:"))
    
19. (setvar "osmode" 0)
    
20. (setq k (angle pt1 pt2))
    
21. ;(setq L (distance pt1 pt2))
    
22. (setq t01 (polar pt1 (- k (* 0.5 pi)) th))
    
23. (setq t1 (polar t01  k  th))
    
24. (setq t02 (polar pt2 (- k (* 0.5 pi)) th))
    
25. (setq t2 (polar t02 (- k (* 1 pi)) th))
    
26. (setq L (distance t1 t2))
    
27. (command "line" t1 t2 "")
    
28. (setq ENT13 (entlast)
    
29.           S1    (list ENT13 t1)
    
30.     )
    
31. (if S2
    
32.       (command "_.EXTEND" S1 S2 "" S1 S2 "")   
    
33.       )
    
34. (command "donut" "0" "80" t1 "")
    
35. (command "donut" "0" "80" t2 "")
    
36. (setq N (/ L 1200))
    
37. (setq I 1)
    
38. (setq P0 t1)
    
39. (while (<= i N)
    
40. (setq P1 (polar p0 k 1200))
    
41. ;(setvar "osmode" 0)
    
42. (progn
    
43. (command "donut" "0" "80" p1 "")
    
44. (setq P0 (polar p0 k 1200))
    
45. (setq I (+ i 1))
    
46. (setq S2 (list ENT13 t2))
    
47. )
    
48. )
    
49. (setvar "osmode" 32)
    
50. (setq pt1 pt2)
    
51. )
    
52. )
    
53. 
    
54. ;;恢复系统变量设置
    
55. (setvar "osmode" old_osmode)
    
56. (setvar "CMDECHO" old_CMDECHO)
    
57. (setvar "clayer" "0")
    
58. (princ)
    
59. )

(defun C:STR (/ pt1 pt2 l n p0 p1 t01 t02 t1 t2 S1 S2 old_osmode old_cmdecho k ent13 i th )<br /> ;;保存系统变量设置 <br /> (setq old_osmode (getvar "osmode"))<br /> (setq old_CMDECHO (getvar "CMDECHO"))<br /> (setvar "CMDECHO" 0)<br /> (setvar "osmode" 32)<br /> (command "-layer" "m" "栏杆" "C" "1" "" "")<br /> (if (= thss nil)<br />     (setq thss 0)<br />   )<br />   (setq th (getreal (strcat "\n栏杆离板边距<" (rtos thss 2 0) ">:")))<br />   (if (= th nil)<br />     (setq th thss)<br />   )<br />   (setq thss th)<br /> (if (setq pt1 (getpoint "\n第一点（顺时针）:"))<br /> (while (setq pt2 (getpoint pt1 "\n下一点:"))<br /> (setvar "osmode" 0)<br /> (setq k (angle pt1 pt2))<br /> ;(setq L (distance pt1 pt2))<br /> (setq t01 (polar pt1 (- k (* 0.5 pi)) th))<br /> (setq t1 (polar t01  k  th))<br /> (setq t02 (polar pt2 (- k (* 0.5 pi)) th))<br /> (setq t2 (polar t02 (- k (* 1 pi)) th))<br /> (setq L (distance t1 t2))<br /> (command "line" t1 t2 "")<br /> (setq ENT13 (entlast)<br />           S1    (list ENT13 t1)<br />     )<br /> (if S2<br />       (command "_.EXTEND" S1 S2 "" S1 S2 "")    <br />       )<br /> (command "donut" "0" "80" t1 "")<br /> (command "donut" "0" "80" t2 "")<br /> (setq N (/ L 1200))<br /> (setq I 1)<br /> (setq P0 t1)<br /> (while (<= i N)<br /> (setq P1 (polar p0 k 1200))<br /> ;(setvar "osmode" 0)<br /> (progn<br /> (command "donut" "0" "80" p1 "")<br /> (setq P0 (polar p0 k 1200))<br /> (setq I (+ i 1))<br /> (setq S2 (list ENT13 t2))<br /> )<br /> )<br /> (setvar "osmode" 32)<br /> (setq pt1 pt2)<br /> )<br /> )<br /> <br /> ;;恢复系统变量设置 <br /> (setvar "osmode" old_osmode)<br /> (setvar "CMDECHO" old_CMDECHO)<br /> (setvar "clayer" "0")<br /> (princ)<br /> )

这个程序当栏杆离板边距不为0时，在凸90度的地方可以闭合，但在凹90度的地方不能闭合，请高手完善一下，不胜感激

xyp1964