[求助]plz chk program & suggestion me how to imrove

sachindkini

Dear All
plz chk program & suggestion me how to imrove
program run only mm drg
System Variables not restore what's problem
door lisp

3. (DEFUN C:DR (/ lu a b c d e f g pt pp pt1 pt2 p ang1 tz wl ds wt sw ang2
4. pt3 pt4 ang3 pl2 pl3 pl4 pl5 pl6 pt5 pt6 pt7 pt8 pt9 pt10 pt11 pt13 pt14 pt15)
5.   (SETVAR "BLIPMODE" 0)
6. (SETVAR "OSMODE" 512)
7. (setq lu (getvar "lunits"))
8. (if (= lu 2) (setq a 75 b 82 c 15 d 38 e 60 f 120 g 150)
9. (setq a 3 b 3.5 c 0.5 d 1.5 e 2.5 f 5 g 6))
10.    (if (null DRlay)
11.     (progn
12.        (setq DRlay "DR")
13.        (setq DRlayer (tblsearch "layer" DRlay))
14.      (if (null DRlayer)
15.          (progn
16.            (setq DRlay (getstring "\nLayer name for TEXT : "))
17.            (setq DRclr (getstring (strcat "\nColor for " DRlay " layer: ")))
18.            (command "layer" "m" DRlay "c" DRclr "" "")
19.          )
20.        (prompt "\nDOOR ON DR LAYER")
21.      )
22.     )
23.    )
24. (SETQ PT (entsel "\nPICK WALL LINE:"))
25. (setq pp (CDR (ASSOC 11 (ENTGET (CAR PT)))))
26. (setvar "osmode" 128)
27. (SETQ PT1 (GETPOINT PP "\nEnter Insertion Point:"))
28. (SETQ PT2 (GETPOINT PT1 "\nPick Opposite Wall Line:"))
29. (SETVAR "OSMODE" 512)
30. (SETQ p (GETpoint PT2 "\nPICK THE SIDE FOR OPENING:"))
31. (setq ang1 (angle pt2 p))
32. (IF (null DZ) (SETQ DZ "900"))
33. (SETQ TZ (STRCASE (GETSTRING (STRCAT "\nENTER SIZE OF OPENING <" DZ ">: ")) t))
34. (IF (/= TZ "") (SETQ DZ TZ))
35. (SETVAR "BLIPMODE" 0)
36. (setq wl (cdr (assoc 8 (entget (car pt)))))
37. (SETQ DS (Atof DZ))
38. (SETQ WT (DISTANCE PT1 PT2))
39. (SETQ SW (- DS f))
40. (SETQ ANG2 (ANGLE PT1 PT2))
41. (SETQ PT3 (POLAR PT1 ANG1 DS))
42. (SETQ PT4 (POLAR PT3 ANG2 WT))
43. (SETQ ANG3 (ANGLE PT3 PT1))
44. (SETQ PL2 (POLAR PT1 ANG1 a))
45. (SETQ PL3 (POLAR PL2 ANG2 b))
46. (SETQ PL4 (POLAR PL3 ANG3 c))
47. (SETQ PL5 (POLAR PL4 ANG2 d))
48. (SETQ PL6 (POLAR PL5 ANG3 e))
49. (SETQ PT5 (POLAR PT1 ANG1 (/ DS 2)))
50. (SETQ PT6 (POLAR PT5 ANG2 f))
51. (SETQ PT7 (POLAR PL5 ANG1 SW))
52. (SETQ PT12 PT7 PT13 PL5)  
53. (SETVAR "OSMODE" 0)
54. (COMMAND "BREAK" Pt "F" PT1 PT3)
55. (COMMAND "BREAK" P "F" PT2 PT4)
56. (COMMAND "LAYER" "s" WL "")
57. (COMMAND "LINE" PT1 PT2 "")
58. (COMMAND "LINE" PT3 PT4 "")
59. (COMMAND "COLOR" "BYLAYER")
60. (COMMAND "LAYER"  "t" drlay "on" drlay "s" drlay "")
61. (COMMAND "PLINE" PT1 PL2 PL3 PL4 PL5 PL6 "")
62. (COMMAND "MIRROR" PL2 "" PT5 PT6 "")
63. (SETVAR "ORTHOMODE" 0)
64. (SETQ PT11 (GETPOINT PT5 "\nPICK THE SIDE FOR SHUTTER:"))
65. (IF (> (DISTANCE PT11 PL5)(DISTANCE PT7 PT11)) (SETQ PL5 PT7 PT12 PT13))
66. (SETQ PT8 (POLAR PL5 (ANGLE PL5 PT6) d))
67. (SETQ PT9 (POLAR PT8 ANG2 SW))
68. (SETQ PT10 (POLAR PT9 (ANGLE PT6 PL5) d))
69. (COMMAND "PLINE" PL5 PT8 PT9 PT10 PL5 "")
70. (COMMAND "ARC" PT12 PT9 PT10)
71. (COMMAND "CHPROP" "L" "" "LT" "HIDDEN2" "")
72. (setq pt14 (polar pl3 ang1 (- ds g)))
73. (setq pt15 (polar pl2 ang1 (- ds g)))
74. (if (and (>= ds 100) (<= ds 750)) (command "line" pl3 pt14 ""))
75. (if (>= ds 910) (command "line" pl2 pt15 ""))
76. (if (<= ds 32) (command "line" pl3 pt14 ""))
77. (if (and (>= ds 37) (< ds 100)) (command "line" pl2 pt15 ""))
78. )

(DEFUN C:DR (/ lu a b c d e f g pt pp pt1 pt2 p ang1 tz wl ds wt sw ang2 pt3 pt4 ang3 pl2 pl3 pl4 pl5 pl6 pt5 pt6 pt7 pt8 pt9 pt10 pt11 pt13 pt14 pt15)   (SETVAR "BLIPMODE" 0) (SETVAR "OSMODE" 512) (setq lu (getvar "lunits")) (if (= lu 2) (setq a 75 b 82 c 15 d 38 e 60 f 120 g 150) (setq a 3 b 3.5 c 0.5 d 1.5 e 2.5 f 5 g 6))    (if (null DRlay)     (progn        (setq DRlay "DR")        (setq DRlayer (tblsearch "layer" DRlay))      (if (null DRlayer)          (progn            (setq DRlay (getstring "\nLayer name for TEXT : "))            (setq DRclr (getstring (strcat "\nColor for " DRlay " layer: ")))            (command "layer" "m" DRlay "c" DRclr "" "")          )        (prompt "\nDOOR ON DR LAYER")      )     )    ) (SETQ PT (entsel "\nPICK WALL LINE:")) (setq pp (CDR (ASSOC 11 (ENTGET (CAR PT))))) (setvar "osmode" 128) (SETQ PT1 (GETPOINT PP "\nEnter Insertion Point:")) (SETQ PT2 (GETPOINT PT1 "\nPick Opposite Wall Line:")) (SETVAR "OSMODE" 512) (SETQ p (GETpoint PT2 "\nPICK THE SIDE FOR OPENING:")) (setq ang1 (angle pt2 p)) (IF (null DZ) (SETQ DZ "900")) (SETQ TZ (STRCASE (GETSTRING (STRCAT "\nENTER SIZE OF OPENING <" DZ ">: ")) t)) (IF (/= TZ "") (SETQ DZ TZ)) (SETVAR "BLIPMODE" 0) (setq wl (cdr (assoc 8 (entget (car pt))))) (SETQ DS (Atof DZ)) (SETQ WT (DISTANCE PT1 PT2)) (SETQ SW (- DS f)) (SETQ ANG2 (ANGLE PT1 PT2)) (SETQ PT3 (POLAR PT1 ANG1 DS)) (SETQ PT4 (POLAR PT3 ANG2 WT)) (SETQ ANG3 (ANGLE PT3 PT1)) (SETQ PL2 (POLAR PT1 ANG1 a)) (SETQ PL3 (POLAR PL2 ANG2 b)) (SETQ PL4 (POLAR PL3 ANG3 c)) (SETQ PL5 (POLAR PL4 ANG2 d)) (SETQ PL6 (POLAR PL5 ANG3 e)) (SETQ PT5 (POLAR PT1 ANG1 (/ DS 2))) (SETQ PT6 (POLAR PT5 ANG2 f)) (SETQ PT7 (POLAR PL5 ANG1 SW)) (SETQ PT12 PT7 PT13 PL5)   (SETVAR "OSMODE" 0) (COMMAND "BREAK" Pt "F" PT1 PT3) (COMMAND "BREAK" P "F" PT2 PT4) (COMMAND "LAYER" "s" WL "") (COMMAND "LINE" PT1 PT2 "") (COMMAND "LINE" PT3 PT4 "") (COMMAND "COLOR" "BYLAYER") (COMMAND "LAYER"  "t" drlay "on" drlay "s" drlay "") (COMMAND "PLINE" PT1 PL2 PL3 PL4 PL5 PL6 "") (COMMAND "MIRROR" PL2 "" PT5 PT6 "") (SETVAR "ORTHOMODE" 0) (SETQ PT11 (GETPOINT PT5 "\nPICK THE SIDE FOR SHUTTER:")) (IF (> (DISTANCE PT11 PL5)(DISTANCE PT7 PT11)) (SETQ PL5 PT7 PT12 PT13)) (SETQ PT8 (POLAR PL5 (ANGLE PL5 PT6) d)) (SETQ PT9 (POLAR PT8 ANG2 SW)) (SETQ PT10 (POLAR PT9 (ANGLE PT6 PL5) d)) (COMMAND "PLINE" PL5 PT8 PT9 PT10 PL5 "") (COMMAND "ARC" PT12 PT9 PT10) (COMMAND "CHPROP" "L" "" "LT" "HIDDEN2" "") (setq pt14 (polar pl3 ang1 (- ds g))) (setq pt15 (polar pl2 ang1 (- ds g))) (if (and (>= ds 100) (<= ds 750)) (command "line" pl3 pt14 "")) (if (>= ds 910) (command "line" pl2 pt15 "")) (if (<= ds 32) (command "line" pl3 pt14 "")) (if (and (>= ds 37) (< ds 100)) (command "line" pl2 pt15 "")) )

window lisp

4. (defun wwerr (msg)
5.   (setq offd nil win_l nil )
6.   (setvar "osmode" os)
7.   (setvar "pickbox" pb)
8.   (command "layer" "s" clay "")
9.   (setvar "cmdecho" 1)
10.   (if wwolderr (setq *error* wwolderr wwolderr nil))
11. )
12. (defun ww  (/ wwlayer wwclr  os clay pb lu jmb_w lin lin_ent lin_pp splin eplin
13.              mplin spd epd mpd d_min _pt1 lin_l wl_lay _ang1 _pto _ang2 _ang3
14.              wal_thk offdt win_lt _pt2 _ang4 o_pt1 o_pt2 j_of j_p1 j_p2 j_p3
15.              j_p4 j_p5 j_p6 j_p7 j_p8)
16. ()
17. (if *error* (setq wwolderr *error* *error* wwerr) (setq *error* wwerr))
18. (if (null wwlay)
19.        (progn
20.          (setq wwlay "window")
21.          (setq wwlayer (tblsearch "layer" wwlay))
22.          (if (null wwlayer)
23.              (progn
24.               (setq wwlay (getstring "\nLayer name for WINDOW : "))
25.               (if (tblsearch "layer" wwlay)
26.                   (prompt (strcat"\nWindow on " wwlay " layer.."))
27.                   (progn
28.                     (prompt (strcat"\nColor for " wwlay " layer : "))
29.                     (setq wwclr (acad_colordlg 72))
30.                     (command "layer" "n" wwlay "c" wwclr  wwlay  "")
31.                   )
32.               )   
33.              )
34.              (prompt "\nWINDOW ON WD LAYER")
35.          )
36.        )
37.    )
38.   (setq os   (getvar "osmode")
39.         clay (getvar "clayer")
40.         pb   (getvar "pickbox")
41.         lu   (getvar "lunits")
42.   )
43.   (if (= lu 2) (setq jmb_w 35) (setq jmb_w 1.5))
44.   (setvar "cmdecho" 0)
45.   (setvar "osmode" 512)
46.   (setq lin (entsel "\nSelect wall : "))
47.   (setq lin_ent (entget (car lin))
48.         lin_pp  (cadr lin)
49.   )
50.   (setq splin  (cdr (assoc 10 lin_ent))
51.         eplin  (cdr (assoc 11 lin_ent))
52.         mplin  (osnap lin_pp "midp")
53.         lin_pp (osnap lin_pp "nea")
54.   )
55.   (setq spd (distance splin lin_pp)
56.         epd (distance eplin lin_pp)
57.         mpd (distance mplin lin_pp)
58.   )
59.   (setq d_min (min spd epd mpd))
60.   (if (= d_min spd) (setq _pt1 splin))
61.   (if (= d_min epd) (setq _pt1 eplin))
62.   (if (= d_min mpd) (setq _pt1 mplin))
63.   (setq lin_l (distance eplin splin)
64.         wl_lay (cdr (assoc 8 lin_ent))
65.         _ang1 (angle _pt1 mplin)
66.   )
67.   ;;;;;;;;;;;;;; offd= offset from endpoint;;;;;;;;;;;;;;;;
68.   (setvar "osmode" 128)
69.   (setq _pto  (getpoint lin_pp "\nSelect opposite wall : "))
70.   (setq _ang2 (angle lin_pp _pto)
71.         _ang3 (angle _pto lin_pp)
72.         wal_thk (distance lin_pp _pto)
73.   )
74.   (if (or (= d_min spd) (= d_min epd))
75.       (progn
76.         (if (null offd)
77.             (setq offd "600")
78.             (setq offd (rtos offd lu 2))
79.         )
80.         (setq offdt (getdist _pt1 (strcat "\nOffset distance < " offd " > : ")))
81.         (if (not offdt) (setq offd (atof offd)) (setq offd offdt))
82.         (if (or (not offd) (=  offd  0) (zerop offd) )
83.             (setq _pt1 _pt1)
84.             (setq _pt1 (polar _pt1 _ang1 offd))
85.         )
86.       )
87.   )
88.   ;;;;;;;;;;;;;;win_l = window length;;;;;;;;;;;;;;;;;;;;;;;
89.   (if (null win_l)
90.       (setq win_l (rtos (- lin_l 600) lu 2))
91.       (setq win_l (rtos win_l lu 2))
92.   )
93.   (setq win_lt (getdist _pt1 (strcat "\nWindow length < " WIN_L  " > : ")))
94.   (if (not  win_lt)
95.       (setq win_l (atof win_l))
96.       (setq win_l win_lt)
97.   )
98.   ;;;;;;;;;;;;;points;;;;;;;;;;;;;;;;;;
99.   (if (= d_min mpd)
100.       (setq _pt1 (polar mplin (angle eplin splin) (/ win_l 2))
101.             _pt2 (polar mplin (angle splin eplin) (/ win_l 2))  
102.       )      
103.       (setq _pt2 (polar _pt1  _ang1 win_l))
104.   )
105.   (setq _ang1 (angle _pt1 _pt2)
106.         _ang4 (angle _pt2 _pt1)
107.   )
108.   (setq _ang5 (angle _pt2 _pt1)
109.         _ang6 (angle _pt1 _pt2)
110.   )
111.   (setq o_pt1 (polar _pt1 _ang2 wal_thk)
112.         o_pt2 (polar _pt2 _ang2 wal_thk)
113.         j_of  (/ wal_thk 2.75)
114.         j_p1  (polar _pt1 _ang2 j_of)
115.         j_p2  (polar j_p1 _ang1 jmb_w)
116.         j_p4  (polar o_pt1 _ang3 j_of)
117.         j_p3  (polar J_p4 _ang1 jmb_w)
118.         j_p5  (polar _pt2 _ang2 j_of)
119.         j_p6  (polar j_p5 _ang4 jmb_w)
120.         j_p8  (polar o_pt2 _ang3 j_of)
121.         j_p7  (polar J_p8 _ang4 jmb_w)
122.   )
123.   (setvar "osmode" 0)
124.   (setvar "pickbox" 1)
125.   (command  "break" lin_pp "f" _pt1 _pt2
126.             "break" _pto "f" o_pt1 o_pt2)
127.             
128.   (joint _pt2 o_pt2 wal_thk _ang6 wl_lay)
129.   (joint _pt1 o_pt1 wal_thk _ang5 wl_lay)
130.   (command  "layer" "t" wwlay  "on" wwlay "s" wwlay ""
131.             "pline" j_p1 j_p2 j_p3 j_p4 "c"
132.             "pline" j_p5 j_p6 j_p7 j_p8 "c"
133.             "line"  j_p2 j_p6 ""
134.             "line"  j_p3 j_p7 ""
135.             "line" _pt1 _pt2 ""
136.             "line" o_pt1 o_pt2 ""
137.   )
138.   (setvar "pickbox" pb)
139.   (setvar "osmode" os)
140.   (command "layer" "s" clay "")
141.   (if wwolderr (setq *error* wwolderr wwolderr nil) (setq *error* nil))
142.   (sk)
143.   (setvar "cmdecho" 1)
144. )
146. (defun joint (jt1 jt2 wlt angw walay / ang1 ang2 pt10 pt11 pt12 pt13 ch10
147.               ch11 ch12 ch13 ch11_ent ch12_ent ch11_ep ch11_sp ch12_sp ch12_ep
148.               sub12e sub12s sub11e sub11s 14_ep 14_sp)
149. (setq ang1 (+ angw (dtr 90)))
150. (setq ang2 (- angw (dtr 90)))
151. (setq pt10  (polar jt1 angw (/ wlt 2))
152.        pt11  (polar jt1 ang1 (* wlt 1.2))
153.        pt12  (polar jt1 ang2 (* wlt 1.2))
154.        pt13  (polar jt2 angw (/ wlt 2))
155. )
156. (command "layer" "s" walay "")
157. (setq ch10  (ssget pt10 (list (cons 8 walay))))
158. (setq ch13  (ssget pt13 (list (cons 8 walay))))
159. (setq ch11  (ssget pt11 (list (cons 8 walay))))
160. (setq ch12  (ssget pt12 (list (cons 8 walay))))
161. (if (and ch10 ch13)
162.      (command "line" jt1 jt2 "")
163.      (progn
164.        (if (and ch10 ch11) (command "fillet" pt10 pt11 ) )
165.        (if (and ch10 ch12) (command "fillet" pt10 pt12 ) )
166.        (if (and ch13 ch11) (command "fillet" pt13 pt11 ) )
167.        (if (and ch13 ch12) (command "fillet" pt13 pt12 ) )
168.        (if (and ch11 ch12)
169.          (progn
170.            (setq ch11_ent (entget (ssname ch11 0)))
171.            (setq ch12_ent (entget (ssname ch12 0)))
172.            (setq ch11_ep  (cdr (setq sub11e (assoc 10 ch11_ent))))
173.            (setq ch11_sp  (cdr (setq sub11s (assoc 11 ch11_ent))))
174.            (setq ch12_ep  (cdr (setq sub12e (assoc 10 ch12_ent))))
175.            (setq ch12_sp  (cdr (setq sub12s (assoc 11 ch12_ent))))
176.            (if (< (distance pt11 ch11_sp) (distance pt11 ch11_ep))
177.                (setq 14_ep ch11_ep)
178.                (setq 14_ep ch11_sp)
179.            )
180.            (if (< (distance pt12 ch12_sp) (distance pt12 ch12_ep))
181.                (setq 14_sp ch12_ep)
182.                (setq 14_sp ch12_sp)
183.            )
184.            (command "erase" pt12 "")
185.            (entmod (subst (cons 10 14_ep) sub11e ch11_ent))
186.            (entmod (subst (cons 11 14_sp) sub11s ch11_ent))
187.          )
188.        )
189.      )
190. )
191. )
193. (defun c:wwnl () (setq wwlay nil) (ww))
194. (defun c:ww () (WW) )

(defun wwerr (msg)   (setq offd nil win_l nil )   (setvar "osmode" os)   (setvar "pickbox" pb)   (command "layer" "s" clay "")   (setvar "cmdecho" 1)   (if wwolderr (setq *error* wwolderr wwolderr nil)) ) (defun ww  (/ wwlayer wwclr  os clay pb lu jmb_w lin lin_ent lin_pp splin eplin              mplin spd epd mpd d_min _pt1 lin_l wl_lay _ang1 _pto _ang2 _ang3              wal_thk offdt win_lt _pt2 _ang4 o_pt1 o_pt2 j_of j_p1 j_p2 j_p3              j_p4 j_p5 j_p6 j_p7 j_p8) () (if *error* (setq wwolderr *error* *error* wwerr) (setq *error* wwerr)) (if (null wwlay)        (progn          (setq wwlay "window")          (setq wwlayer (tblsearch "layer" wwlay))          (if (null wwlayer)              (progn               (setq wwlay (getstring "\nLayer name for WINDOW : "))               (if (tblsearch "layer" wwlay)                   (prompt (strcat"\nWindow on " wwlay " layer.."))                   (progn                     (prompt (strcat"\nColor for " wwlay " layer : "))                     (setq wwclr (acad_colordlg 72))                     (command "layer" "n" wwlay "c" wwclr  wwlay  "")                   )               )                 )              (prompt "\nWINDOW ON WD LAYER")          )        )    )   (setq os   (getvar "osmode")         clay (getvar "clayer")         pb   (getvar "pickbox")         lu   (getvar "lunits")   )   (if (= lu 2) (setq jmb_w 35) (setq jmb_w 1.5))   (setvar "cmdecho" 0)   (setvar "osmode" 512)   (setq lin (entsel "\nSelect wall : "))   (setq lin_ent (entget (car lin))         lin_pp  (cadr lin)   )   (setq splin  (cdr (assoc 10 lin_ent))         eplin  (cdr (assoc 11 lin_ent))         mplin  (osnap lin_pp "midp")         lin_pp (osnap lin_pp "nea")   )   (setq spd (distance splin lin_pp)         epd (distance eplin lin_pp)         mpd (distance mplin lin_pp)   )   (setq d_min (min spd epd mpd))   (if (= d_min spd) (setq _pt1 splin))   (if (= d_min epd) (setq _pt1 eplin))   (if (= d_min mpd) (setq _pt1 mplin))   (setq lin_l (distance eplin splin)         wl_lay (cdr (assoc 8 lin_ent))         _ang1 (angle _pt1 mplin)   )   ;;;;;;;;;;;;;; offd= offset from endpoint;;;;;;;;;;;;;;;;   (setvar "osmode" 128)   (setq _pto  (getpoint lin_pp "\nSelect opposite wall : "))   (setq _ang2 (angle lin_pp _pto)         _ang3 (angle _pto lin_pp)         wal_thk (distance lin_pp _pto)   )   (if (or (= d_min spd) (= d_min epd))       (progn         (if (null offd)             (setq offd "600")             (setq offd (rtos offd lu 2))         )         (setq offdt (getdist _pt1 (strcat "\nOffset distance < " offd " > : ")))         (if (not offdt) (setq offd (atof offd)) (setq offd offdt))         (if (or (not offd) (=  offd  0) (zerop offd) )             (setq _pt1 _pt1)             (setq _pt1 (polar _pt1 _ang1 offd))         )       )   )   ;;;;;;;;;;;;;;win_l = window length;;;;;;;;;;;;;;;;;;;;;;;   (if (null win_l)       (setq win_l (rtos (- lin_l 600) lu 2))       (setq win_l (rtos win_l lu 2))   )   (setq win_lt (getdist _pt1 (strcat "\nWindow length < " WIN_L  " > : ")))   (if (not  win_lt)       (setq win_l (atof win_l))       (setq win_l win_lt)   )   ;;;;;;;;;;;;;points;;;;;;;;;;;;;;;;;;   (if (= d_min mpd)       (setq _pt1 (polar mplin (angle eplin splin) (/ win_l 2))             _pt2 (polar mplin (angle splin eplin) (/ win_l 2))         )             (setq _pt2 (polar _pt1  _ang1 win_l))   )   (setq _ang1 (angle _pt1 _pt2)         _ang4 (angle _pt2 _pt1)   )   (setq _ang5 (angle _pt2 _pt1)         _ang6 (angle _pt1 _pt2)   )   (setq o_pt1 (polar _pt1 _ang2 wal_thk)         o_pt2 (polar _pt2 _ang2 wal_thk)         j_of  (/ wal_thk 2.75)         j_p1  (polar _pt1 _ang2 j_of)         j_p2  (polar j_p1 _ang1 jmb_w)         j_p4  (polar o_pt1 _ang3 j_of)         j_p3  (polar J_p4 _ang1 jmb_w)         j_p5  (polar _pt2 _ang2 j_of)         j_p6  (polar j_p5 _ang4 jmb_w)         j_p8  (polar o_pt2 _ang3 j_of)         j_p7  (polar J_p8 _ang4 jmb_w)   )   (setvar "osmode" 0)   (setvar "pickbox" 1)   (command  "break" lin_pp "f" _pt1 _pt2             "break" _pto "f" o_pt1 o_pt2)                (joint _pt2 o_pt2 wal_thk _ang6 wl_lay)   (joint _pt1 o_pt1 wal_thk _ang5 wl_lay)   (command  "layer" "t" wwlay  "on" wwlay "s" wwlay ""             "pline" j_p1 j_p2 j_p3 j_p4 "c"             "pline" j_p5 j_p6 j_p7 j_p8 "c"             "line"  j_p2 j_p6 ""             "line"  j_p3 j_p7 ""             "line" _pt1 _pt2 ""             "line" o_pt1 o_pt2 ""   )   (setvar "pickbox" pb)   (setvar "osmode" os)   (command "layer" "s" clay "")   (if wwolderr (setq *error* wwolderr wwolderr nil) (setq *error* nil))   (sk)   (setvar "cmdecho" 1) ) (defun joint (jt1 jt2 wlt angw walay / ang1 ang2 pt10 pt11 pt12 pt13 ch10               ch11 ch12 ch13 ch11_ent ch12_ent ch11_ep ch11_sp ch12_sp ch12_ep               sub12e sub12s sub11e sub11s 14_ep 14_sp) (setq ang1 (+ angw (dtr 90))) (setq ang2 (- angw (dtr 90))) (setq pt10  (polar jt1 angw (/ wlt 2))        pt11  (polar jt1 ang1 (* wlt 1.2))        pt12  (polar jt1 ang2 (* wlt 1.2))        pt13  (polar jt2 angw (/ wlt 2)) ) (command "layer" "s" walay "") (setq ch10  (ssget pt10 (list (cons 8 walay)))) (setq ch13  (ssget pt13 (list (cons 8 walay)))) (setq ch11  (ssget pt11 (list (cons 8 walay)))) (setq ch12  (ssget pt12 (list (cons 8 walay)))) (if (and ch10 ch13)      (command "line" jt1 jt2 "")      (progn        (if (and ch10 ch11) (command "fillet" pt10 pt11 ) )        (if (and ch10 ch12) (command "fillet" pt10 pt12 ) )        (if (and ch13 ch11) (command "fillet" pt13 pt11 ) )        (if (and ch13 ch12) (command "fillet" pt13 pt12 ) )        (if (and ch11 ch12)          (progn            (setq ch11_ent (entget (ssname ch11 0)))            (setq ch12_ent (entget (ssname ch12 0)))            (setq ch11_ep  (cdr (setq sub11e (assoc 10 ch11_ent))))            (setq ch11_sp  (cdr (setq sub11s (assoc 11 ch11_ent))))            (setq ch12_ep  (cdr (setq sub12e (assoc 10 ch12_ent))))            (setq ch12_sp  (cdr (setq sub12s (assoc 11 ch12_ent))))            (if (< (distance pt11 ch11_sp) (distance pt11 ch11_ep))                (setq 14_ep ch11_ep)                (setq 14_ep ch11_sp)            )            (if (< (distance pt12 ch12_sp) (distance pt12 ch12_ep))                (setq 14_sp ch12_ep)                (setq 14_sp ch12_sp)            )            (command "erase" pt12 "")            (entmod (subst (cons 10 14_ep) sub11e ch11_ent))            (entmod (subst (cons 11 14_sp) sub11s ch11_ent))          )        )      ) ) ) (defun c:wwnl () (setq wwlay nil) (ww)) (defun c:ww () (WW) )

zmzk

不错，14年前就能 编出 这么 多的代码！