如何修改实现下面功能

江南十笑

正在编写一个结构画节点大样的程序 ，已经实现点一个幻灯片画出大样，如何修改能让他们进行自由组合？就是勾选两个或三个（可以考虑加方框）  让他们一起画？相同部分代码是共用的。下面是DCL代码

1. lwwjddy:dialog {
   
2. label = "【舞】节点大样 " ;
   
3. :boxed_row {
   
4. label = "基本节点形式" ;
   
5. 
   
6. 
   
7. :column {
   
8. :text {
   
9. label = " 悬挑板(雨篷)" ;
   
10. alignment = centered  ;
    
11. }
    
12. :image_button {
    
13. key = "jddyimage1";
    
14. color = -2 ;
    
15. width = 40 ;
    
16. aspect_ratio = 0.66 ;
    
17. allow_accept = true ;
    
18. }
    
19. 
    
20. :text {
    
21. label = "悬挑板(空调板)" ;
    
22. alignment = centered ;
    
23. }
    
24. :image_button {
    
25. key = "jddyimage2";
    
26. color = -2;
    
27. width = 40;
    
28. aspect_ratio = 0.66;
    
29. allow_accept = true;
    
30. }
    
31. 
    
32. }
    
33. 
    
34. 
    
35. :column {
    
36. :text {
    
37. label = "上翻" ;
    
38. alignment = centered ;
    
39. }
    
40. :image_button {
    
41. key = "jddyimage3";
    
42. color = -2;
    
43. width = 20;
    
44. aspect_ratio = 1.32;
    
45. allow_accept = true;
    
46. }
    
47. 
    
48. :text {
    
49. label = "下挂";
    
50. alignment = centered ;
    
51. }
    
52. :image_button {
    
53. key = "jddyimage4";
    
54. color = -2;
    
55. width = 20;
    
56. aspect_ratio = 1.32;
    
57. allow_accept = true;
    
58. }
    
59. }
    
60. 
    
61. 
    
62. :column {
    
63. :text {
    
64. label = "上翻(L型)" ;
    
65. alignment = centered ;
    
66. }
    
67. :image_button {
    
68. key = "jddyimage5";
    
69. color = -2;
    
70. width = 20;
    
71. aspect_ratio = 1.32;
    
72. allow_accept = true;
    
73. }
    
74. 
    
75. :text {
    
76. label = "下挂(L型)";
    
77. alignment = centered ;
    
78. }
    
79. :image_button {
    
80. key = "jddyimage6";
    
81. color = -2;
    
82. width = 20;
    
83. aspect_ratio = 1.32;
    
84. allow_accept = true;
    
85. }
    
86. }
    
87. 
    
88. 
    
89. :column {
    
90. :text {
    
91. label = "上翻(砖砌)";
    
92. alignment = centered ;
    
93. }
    
94. :image_button {
    
95. key = "jddyimage7";
    
96. color = -2;
    
97. width = 20;
    
98. aspect_ratio = 1.32;
    
99. allow_accept = true;
    
100. }
     
101. 
     
102. :text {
     
103. label = "下挂(圈梁)";
     
104. alignment = centered ;
     
105. }
     
106. :image_button {
     
107. key = "jddyimage8";
     
108. color = -2;
     
109. width = 20;
     
110. aspect_ratio = 1.32;
     
111. allow_accept = true;
     
112. }
     
113. }
     
114. 
     
115. 
     
116. :column {
     
117. :text {
     
118. label = "悬挑板(造型)" ;
     
119. alignment = centered ;
     
120. }
     
121. :image_button {
     
122. key = "jddyimage9";
     
123. color = -2;
     
124. width = 40;
     
125. aspect_ratio = 0.66;
     
126. allow_accept = true;
     
127. }
     
128. 
     
129. 
     
130. :text {
     
131. label = "悬挑板(砌墙)";
     
132. alignment = centered ;
     
133. }
     
134. :image_button {
     
135. key = "jddyimage10";
     
136. color = -2;
     
137. width = 40;
     
138. aspect_ratio = 0.66;
     
139. allow_accept = true;
     
140. }
     
141. }
     
142. 
     
143. 
     
144. 
     
145. 
     
146. 
     
147. }
     
148. :boxed_row {
     
149. label = "相关尺寸";
     
150. :column {
     
151. :edit_box {label = "梁宽" ; key = "bbbb";}
     
152. :edit_box {label = "梁高" ; key = "hhhh";}
     
153. :edit_box {label = "板厚" ; key = "dddd";}
     
154. }
     
155. :column {
     
156. :edit_box {label = "a" ; key = "kaa";}
     
157. :edit_box {label = "b" ; key = "kbb";}
     
158. :edit_box {label = "c" ; key = "kcc";}
     
159. }
     
160. :column {
     
161. :edit_box {label = "d" ; key = "kdd";}
     
162. :edit_box {label = "e" ; key = "kee";}
     
163. :edit_box {label = "f" ; key = "kff";}
     
164. :edit_box {label = "g" ; key = "kgg";}
     
165. }
     
166. 
     
167. :column {
     
168. :edit_box {label = "h" ; key = "khh";}
     
169. :edit_box {label = "i" ; key = "kii";}
     
170. :edit_box {label = "j" ; key = "kjj";}
     
171. }
     
172. 
     
173. :column {
     
174. :edit_box {label = "k" ; key = "kkk";}
     
175. :edit_box {label = "l" ; key = "kll";}
     
176. 
     
177. }
     
178. 
     
179. 
     
180. 
     
181. }
     
182. spacer_1;
     
183. ok_cancel;
     
184. }

lwwjddy:dialog {<br /> label = "【舞】节点大样 " ;<br /> :boxed_row {<br /> label = "基本节点形式" ;<br /> <br /> <br /> :column {<br /> :text {<br /> label = " 悬挑板(雨篷)" ; <br /> alignment = centered  ; <br /> }<br /> :image_button {<br /> key = "jddyimage1";<br /> color = -2 ;<br /> width = 40 ;<br /> aspect_ratio = 0.66 ;<br /> allow_accept = true ;<br /> }<br /> <br /> :text { <br /> label = "悬挑板(空调板)" ;<br /> alignment = centered ;<br /> }<br /> :image_button {<br /> key = "jddyimage2";<br /> color = -2;<br /> width = 40;<br /> aspect_ratio = 0.66;<br /> allow_accept = true;<br /> }<br /> <br /> }<br /> <br /> <br /> :column {<br /> :text { <br /> label = "上翻" ;<br /> alignment = centered ; <br /> }<br /> :image_button {<br /> key = "jddyimage3";<br /> color = -2;<br /> width = 20;<br /> aspect_ratio = 1.32;<br /> allow_accept = true;<br /> }<br /> <br /> :text { <br /> label = "下挂";<br /> alignment = centered ;<br /> }<br /> :image_button {<br /> key = "jddyimage4";<br /> color = -2;<br /> width = 20;<br /> aspect_ratio = 1.32;<br /> allow_accept = true;<br /> }<br /> }<br /> <br /> <br /> :column {<br /> :text { <br /> label = "上翻(L型)" ;<br /> alignment = centered ; <br /> }<br /> :image_button {<br /> key = "jddyimage5";<br /> color = -2;<br /> width = 20;<br /> aspect_ratio = 1.32;<br /> allow_accept = true;<br /> }<br /> <br /> :text { <br /> label = "下挂(L型)";<br /> alignment = centered ;<br /> }<br /> :image_button {<br /> key = "jddyimage6";<br /> color = -2;<br /> width = 20;<br /> aspect_ratio = 1.32;<br /> allow_accept = true;<br /> }<br /> }<br /> <br /> <br /> :column {<br /> :text { <br /> label = "上翻(砖砌)";<br /> alignment = centered ;<br /> }<br /> :image_button {<br /> key = "jddyimage7";<br /> color = -2;<br /> width = 20;<br /> aspect_ratio = 1.32;<br /> allow_accept = true;<br /> }<br /> <br /> :text { <br /> label = "下挂(圈梁)";<br /> alignment = centered ;<br /> }<br /> :image_button {<br /> key = "jddyimage8";<br /> color = -2;<br /> width = 20;<br /> aspect_ratio = 1.32;<br /> allow_accept = true;<br /> }<br /> }<br /> <br /> <br /> :column {<br /> :text { <br /> label = "悬挑板(造型)" ;<br /> alignment = centered ;<br /> }<br /> :image_button {<br /> key = "jddyimage9";<br /> color = -2;<br /> width = 40;<br /> aspect_ratio = 0.66;<br /> allow_accept = true;<br /> }<br /> <br /> <br /> :text { <br /> label = "悬挑板(砌墙)";<br /> alignment = centered ;<br /> }<br /> :image_button {<br /> key = "jddyimage10";<br /> color = -2;<br /> width = 40;<br /> aspect_ratio = 0.66;<br /> allow_accept = true;<br /> }<br /> }<br /> <br /> <br /> <br /> <br /> <br /> }<br /> :boxed_row {<br /> label = "相关尺寸";<br /> :column {<br /> :edit_box {label = "梁宽" ; key = "bbbb";}<br /> :edit_box {label = "梁高" ; key = "hhhh";}<br /> :edit_box {label = "板厚" ; key = "dddd";}<br /> }<br /> :column {<br /> :edit_box {label = "a" ; key = "kaa";}<br /> :edit_box {label = "b" ; key = "kbb";}<br /> :edit_box {label = "c" ; key = "kcc";}<br /> }<br /> :column {<br /> :edit_box {label = "d" ; key = "kdd";}<br /> :edit_box {label = "e" ; key = "kee";}<br /> :edit_box {label = "f" ; key = "kff";}<br /> :edit_box {label = "g" ; key = "kgg";}<br /> }<br /> <br /> :column {<br /> :edit_box {label = "h" ; key = "khh";}<br /> :edit_box {label = "i" ; key = "kii";}<br /> :edit_box {label = "j" ; key = "kjj";}<br /> }<br /> <br /> :column {<br /> :edit_box {label = "k" ; key = "kkk";}<br /> :edit_box {label = "l" ; key = "kll";}<br /> <br /> }<br /> <br /> <br /> <br /> }<br /> spacer_1;<br /> ok_cancel;<br /> }

江南十笑

lisp 代码没写完  主要框架如下：

1. (defun c:tt()
   
2.   (setq clay (getvar "clayer"))   ;;图层
   
3.   (setq cm (getvar "cmdecho"))   ;;回显
   
4.   (setq osm (getvar "osmode"))    ;;抓点
   
5.   (setvar "cmdecho" 0)
   
6.   (setvar "osmode" 0)
   
7.   (dcl_lwwjddy)
   
8.   (setvar "clayer" clay)
   
9.   (setvar "cmdecho" cm)
   
10.   (setvar "osmode" osm)
    
11.   ( prin1 )
    
12. )
    
13. (defun dcl_lwwjddy ()
    
14.   (setq dcl_id ( load_dialog "lwwjddy" ))
    
15.   ( new_dialog "lwwjddy" dcl_id )
    
16.   ( def_lwwjddy )
    
17.   (action_tile "jddyimage1" "( setq ddtype 1)")
    
18.   (action_tile "jddyimage2" "( setq ddtype 2)")
    
19.   (action_tile "jddyimage3" "( setq ddtype 3)")
    
20.   (action_tile "jddyimage4" "( setq ddtype 4)")
    
21.   (action_tile "accept" "(ok_lwwjddy) (done_dialog 1)")
    
22.   (setq flag (start_dialog))
    
23.   (if( = flag 1)
    
24.     (draw_lwwjddy)
    
25.   )
    
26.   
    
27.   
    
28. )
    
29. (defun def_lwwjddy()
    
30.   
    
31.   (if sjbbbb
    
32.     (set_tile "bbbb" ( rtos sjbbbb 2 0))
    
33.     (set_tile "bbbb" "200")
    
34.   )
    
35.   (if sjhhhh
    
36.     (set_tile "hhhh" ( rtos sjhhhh 2 0))
    
37.     ( set_tile "hhhh" "600" )
    
38.   )
    
39.   (if sjdddd
    
40.     (set_tile "dddd" ( rtos sjdddd 2 0))
    
41.     ( set_tile "dddd" "120" )
    
42.   )
    
43.   (if sjkaa
    
44.     (set_tile "kaa" ( rtos sjkaa 2 0))
    
45.     ( set_tile "kaa" "100" )
    
46.   )
    
47.   (if sjkbb
    
48.     (set_tile "kbb" ( rtos sjkbb 2 0))
    
49.     ( set_tile "kbb" "1000" )
    
50.   )
    
51.   (if sjkcc
    
52.     (set_tile "kcc" ( rtos sjkcc 2 0))
    
53.     ( set_tile "kcc" "100" )
    
54.   )
    
55. 
    
56.   
    
57.   (setq sldkey_list '( "jddyimage1" "jddyimage2" "jddyimage3" "jddyimage4"))
    
58.   (setq sld_list '("lwwjddy01" "lwwjddy02" "lwwjddy03" "lwwjddy04"))
    
59.   (mapcar 'show_sld  sldkey_list sld_list)
    
60. )
    
61. (defun show_sld ( key sld)
    
62.   (setq x ( dimx_tile key ))
    
63.   (setq y ( dimy_tile key ))
    
64.   (start_image key )
    
65.   (fill_image 0 0 x y -2 )
    
66.   (slide_image 0 0 x y sld )
    
67.   (end_image)
    
68. )
    
69. (defun ok_lwwjddy()
    
70.   (setq bbb (* 4 ( atof ( get_tile "bbbb"))))
    
71.   (setq sjbbbb ( atof ( get_tile "bbbb")))
    
72.   (setq hhh (* 4 ( atof ( get_tile "hhhh"))))
    
73.   (setq sjhhhh ( atof ( get_tile "hhhh")))
    
74.   (setq ddd (* 4 ( atof ( get_tile "dddd"))))
    
75.   (setq sjdddd ( atof ( get_tile "dddd")))
    
76.   (setq aa (* 4 ( atof ( get_tile "kaa"))))
    
77.   (setq sjkaa ( atof ( get_tile "kaa")))
    
78.   (setq bb (* 4 ( atof ( get_tile "kbb"))))
    
79.   (setq sjkbb ( atof ( get_tile "kbb")))
    
80.   (setq cc (* 4 ( atof ( get_tile "kcc"))))
    
81.   (setq sjkcc ( atof ( get_tile "kcc")))
    
82.   (setq dd (* 4 ( atof ( get_tile "kdd"))))
    
83.   (setq sjkdd ( atof ( get_tile "kdd")))
    
84.   (setq ee (* 4 ( atof ( get_tile "kee"))))
    
85.   (setq sjkee ( atof ( get_tile "kee")))
    
86. 
    
87.   
    
88.   
    
89.   
    
90. )
    
91. (defun draw_lwwjddy()
    
92.   (if (not(tblsearch "style" "TSSD_Norm"))(vl-cmdf "-style" "TSSD_Norm" "Tssdeng.shx,hztxt.shx" "" 0.7 "" "" "" ""))
    
93.   (if (not(tblsearch "style" "TSSD_THZX"))(vl-cmdf "-style" "TSSD_THZX" "complex.shx,gbcbig.shx" "" 1.0 "" "" "" ""))
    
94. 
    
95.   (setq pt1 ( getpoint "指定插入点："))
    
96.   ;以下为三个模块共享的点坐标变量
    
97.   (setq pt2 (polar pt1 ( * pi 0.5) hhh))
    
98.   (setq pt3 (polar pt2 0 bbb ))
    
99.   (setq pt4 (polar pt1  0 bbb))
    
100.   (setq pt5 (polar pt3 0 1600))
     
101.   (setq pt6 (polar pt5 (* pi 1.5) ddd))
     
102.   (setq pt7 (polar pt3 (* pi 1.5) ddd))
     
103.   (setq pt8 (lww_midPt pt1 pt3))
     
104.   (setq pt81 (polar pt8 0 1200))
     
105.   (setq pt82 (lww_xyzPt pt81 -150 200 0))
     
106.   
     
107.   (setq pt51 (polar pt5 (* pi 0.5) 180))
     
108.   (setq pt52 (polar pt5 (* pi 1.5) 110))
     
109.   (setq pt53 (polar pt52 (* pi 1.9) 230))
     
110.   (setq pt61 (polar pt6 (* pi 1.5) 180))
     
111.   (setq pt62 (polar pt6 (* pi 0.5) 110))
     
112.   (setq pt63 (polar pt62 (* pi 0.9) 230))
     
113.   (setq ppt1 (polar (lww_midPt pt3 pt5) pi  350) )
     
114.   (setq ppt2 (polar ppt1 (* pi 0.5) 300))
     
115.   (setq ppt3 (polar ppt2 pi 300))
     
116.   (setq ppt4 (polar ppt2 0  300))
     
117.   (setq ppt5 (polar ppt4 0 600))
     
118.   (setq ppt6 (polar ppt5 (* pi 0.75) 85))
     
119.   (command "clayer" "S-BG")
     
120.   (command "pline" ppt5 "w" "0" "0" ppt3 ppt1 ppt4 "")
     
121.   (command "text" "s" "TSSD_Norm" "J" "BR" ppt6 "300" "0" "Hs")
     
122.   (command "clayer" "S-DETL")
     
123.   (command "pline" pt1 pt2 pt3 pt4  "C" "" )
     
124.   (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 2) '(6 . "DASHED") (cons 10 pt1) (cons 10 pt3)))
     
125.   (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 2) '(6 . "DASHED") (cons 10 pt2) (cons 10 pt4)))
     
126.   (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 2)  (cons 10 pt3) (cons 10 pt5)))
     
127.   (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 2)  (cons 10 pt7) (cons 10 pt6)))
     
128.   (command "pline" pt51 pt52 pt53 pt63 pt62 pt61 "" )
     
129.   (command "pline" pt8 pt81 "" )
     
130.   
     
131.   (entmake (list '(0 . "TEXT") (cons 1 "梁") (cons 8 "S-TEXT") (cons 7 "TSSD_Norm") (cons 41 0.7) (cons 72 1)(cons 73 2) (cons 10 pt82) (cons 11 pt82) (cons 40 300)))
     
132.   
     
133.   ;以下依据不同的类别，调用不同的绘图模式
     
134.   (cond
     
135.     (( = ddtype 1)  ;;悬挑雨棚型
     
136.       (setq apt1 (polar pt1 pi  bb))
     
137.       (setq apt2 (polar apt1 ( * pi 0.5) aa ))
     
138.      
     
139.       (command "pline" pt1 apt1 apt2 apt3 "" )
     
140.       (command "pline" apt12 apt13 apt14 "" )
     
141.      
     
142.     )
     
143.    
     
144.     (( = ddtype 2)       ;;;悬挑板空调板型
     
145.         (setq bpt1 (lww_xyzPt pt2 ( - 0 dd) ( - 0 ee) 0))
     
146.       (setq bpt2 (polar bpt1 ( * pi 0.5) ee ))
     
147.      
     
148.       )
     
149.    
     
150.     )
     
151.     (( = ddtype 3)       ;;上翻型
     
152.         (setq cpt1 (polar pt2( * pi 0.5) hh ))
     
153.       (setq cpt2 (polar cpt1 0 ii ))
     
154.   
     
155.     )
     
156.     (( = ddtype 4)     ;;下挂型
     
157.         (setq dpt1 (polar pt1( * pi 1.5) kk ))
     
158.       (setq dpt2 (polar dpt1 0 ll ))
     
159.    
     
160.      
     
161.     )
     
162.    
     
163.    
     
164.    
     
165.    
     
166.   );结束cond
     
167. )

(defun c:tt()<br />   (setq clay (getvar "clayer"))   ;;图层<br />   (setq cm (getvar "cmdecho"))   ;;回显<br />   (setq osm (getvar "osmode"))    ;;抓点<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (dcl_lwwjddy)<br />   (setvar "clayer" clay)<br />   (setvar "cmdecho" cm)<br />   (setvar "osmode" osm)<br />   ( prin1 )<br /> )<br /> (defun dcl_lwwjddy ()<br />   (setq dcl_id ( load_dialog "lwwjddy" ))<br />   ( new_dialog "lwwjddy" dcl_id )<br />   ( def_lwwjddy )<br />   (action_tile "jddyimage1" "( setq ddtype 1)")<br />   (action_tile "jddyimage2" "( setq ddtype 2)")<br />   (action_tile "jddyimage3" "( setq ddtype 3)")<br />   (action_tile "jddyimage4" "( setq ddtype 4)")<br />   (action_tile "accept" "(ok_lwwjddy) (done_dialog 1)")<br />   (setq flag (start_dialog))<br />   (if( = flag 1)<br />     (draw_lwwjddy)<br />   )<br />   <br />   <br /> )<br /> (defun def_lwwjddy()<br />   <br />   (if sjbbbb<br />     (set_tile "bbbb" ( rtos sjbbbb 2 0))<br />     (set_tile "bbbb" "200")<br />   )<br />   (if sjhhhh<br />     (set_tile "hhhh" ( rtos sjhhhh 2 0))<br />     ( set_tile "hhhh" "600" )<br />   )<br />   (if sjdddd<br />     (set_tile "dddd" ( rtos sjdddd 2 0))<br />     ( set_tile "dddd" "120" )<br />   )<br />   (if sjkaa<br />     (set_tile "kaa" ( rtos sjkaa 2 0))<br />     ( set_tile "kaa" "100" )<br />   )<br />   (if sjkbb<br />     (set_tile "kbb" ( rtos sjkbb 2 0))<br />     ( set_tile "kbb" "1000" )<br />   )<br />   (if sjkcc<br />     (set_tile "kcc" ( rtos sjkcc 2 0))<br />     ( set_tile "kcc" "100" )<br />   )<br /> <br />   <br />   (setq sldkey_list '( "jddyimage1" "jddyimage2" "jddyimage3" "jddyimage4"))<br />   (setq sld_list '("lwwjddy01" "lwwjddy02" "lwwjddy03" "lwwjddy04"))<br />   (mapcar 'show_sld  sldkey_list sld_list)<br /> )<br /> (defun show_sld ( key sld)<br />   (setq x ( dimx_tile key ))<br />   (setq y ( dimy_tile key ))<br />   (start_image key )<br />   (fill_image 0 0 x y -2 )<br />   (slide_image 0 0 x y sld )<br />   (end_image)<br /> )<br /> (defun ok_lwwjddy()<br />   (setq bbb (* 4 ( atof ( get_tile "bbbb"))))<br />   (setq sjbbbb ( atof ( get_tile "bbbb")))<br />   (setq hhh (* 4 ( atof ( get_tile "hhhh"))))<br />   (setq sjhhhh ( atof ( get_tile "hhhh")))<br />   (setq ddd (* 4 ( atof ( get_tile "dddd"))))<br />   (setq sjdddd ( atof ( get_tile "dddd")))<br />   (setq aa (* 4 ( atof ( get_tile "kaa"))))<br />   (setq sjkaa ( atof ( get_tile "kaa")))<br />   (setq bb (* 4 ( atof ( get_tile "kbb"))))<br />   (setq sjkbb ( atof ( get_tile "kbb")))<br />   (setq cc (* 4 ( atof ( get_tile "kcc"))))<br />   (setq sjkcc ( atof ( get_tile "kcc")))<br />   (setq dd (* 4 ( atof ( get_tile "kdd"))))<br />   (setq sjkdd ( atof ( get_tile "kdd")))<br />   (setq ee (* 4 ( atof ( get_tile "kee"))))<br />   (setq sjkee ( atof ( get_tile "kee")))<br /> <br />   <br />   <br />   <br /> )<br /> (defun draw_lwwjddy()<br />   (if (not(tblsearch "style" "TSSD_Norm"))(vl-cmdf "-style" "TSSD_Norm" "Tssdeng.shx,hztxt.shx" "" 0.7 "" "" "" ""))<br />   (if (not(tblsearch "style" "TSSD_THZX"))(vl-cmdf "-style" "TSSD_THZX" "complex.shx,gbcbig.shx" "" 1.0 "" "" "" ""))<br /> <br />   (setq pt1 ( getpoint "指定插入点："))<br />   ;以下为三个模块共享的点坐标变量<br />   (setq pt2 (polar pt1 ( * pi 0.5) hhh))<br />   (setq pt3 (polar pt2 0 bbb ))<br />   (setq pt4 (polar pt1  0 bbb))<br />   (setq pt5 (polar pt3 0 1600))<br />   (setq pt6 (polar pt5 (* pi 1.5) ddd))<br />   (setq pt7 (polar pt3 (* pi 1.5) ddd))<br />   (setq pt8 (lww_midPt pt1 pt3))<br />   (setq pt81 (polar pt8 0 1200))<br />   (setq pt82 (lww_xyzPt pt81 -150 200 0))<br />   <br />   (setq pt51 (polar pt5 (* pi 0.5) 180))<br />   (setq pt52 (polar pt5 (* pi 1.5) 110))<br />   (setq pt53 (polar pt52 (* pi 1.9) 230))<br />   (setq pt61 (polar pt6 (* pi 1.5) 180))<br />   (setq pt62 (polar pt6 (* pi 0.5) 110))<br />   (setq pt63 (polar pt62 (* pi 0.9) 230))<br />   (setq ppt1 (polar (lww_midPt pt3 pt5) pi  350) )<br />   (setq ppt2 (polar ppt1 (* pi 0.5) 300))<br />   (setq ppt3 (polar ppt2 pi 300))<br />   (setq ppt4 (polar ppt2 0  300))<br />   (setq ppt5 (polar ppt4 0 600))<br />   (setq ppt6 (polar ppt5 (* pi 0.75) 85))<br />   (command "clayer" "S-BG")<br />   (command "pline" ppt5 "w" "0" "0" ppt3 ppt1 ppt4 "")<br />   (command "text" "s" "TSSD_Norm" "J" "BR" ppt6 "300" "0" "Hs")<br />   (command "clayer" "S-DETL")<br />   (command "pline" pt1 pt2 pt3 pt4  "C" "" )<br />   (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 2) '(6 . "DASHED") (cons 10 pt1) (cons 10 pt3)))<br />   (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 2) '(6 . "DASHED") (cons 10 pt2) (cons 10 pt4)))<br />   (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 2)  (cons 10 pt3) (cons 10 pt5)))<br />   (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 2)  (cons 10 pt7) (cons 10 pt6)))<br />   (command "pline" pt51 pt52 pt53 pt63 pt62 pt61 "" )<br />   (command "pline" pt8 pt81 "" )<br />   <br />   (entmake (list '(0 . "TEXT") (cons 1 "梁") (cons 8 "S-TEXT") (cons 7 "TSSD_Norm") (cons 41 0.7) (cons 72 1)(cons 73 2) (cons 10 pt82) (cons 11 pt82) (cons 40 300)))<br />   <br />   ;以下依据不同的类别，调用不同的绘图模式<br />   (cond <br />     (( = ddtype 1)  ;;悬挑雨棚型<br />       (setq apt1 (polar pt1 pi  bb))<br />       (setq apt2 (polar apt1 ( * pi 0.5) aa ))<br />      <br />       (command "pline" pt1 apt1 apt2 apt3 "" )<br />       (command "pline" apt12 apt13 apt14 "" )<br />      <br />     )<br />     <br />     (( = ddtype 2)       ;;;悬挑板空调板型<br />         (setq bpt1 (lww_xyzPt pt2 ( - 0 dd) ( - 0 ee) 0))<br />       (setq bpt2 (polar bpt1 ( * pi 0.5) ee ))<br />      <br />       )<br />     <br />     )<br />     (( = ddtype 3)       ;;上翻型<br />         (setq cpt1 (polar pt2( * pi 0.5) hh ))<br />       (setq cpt2 (polar cpt1 0 ii ))<br />   <br />     )<br />     (( = ddtype 4)     ;;下挂型<br />         (setq dpt1 (polar pt1( * pi 1.5) kk ))<br />       (setq dpt2 (polar dpt1 0 ll ))<br />     <br />      <br />     )<br />     <br />     <br />     <br />     <br />   );结束cond<br /> )

江南十笑

就是同时勾选  悬挑板（雨棚）和上翻 在文字后面加复选框  就画出

江南十笑

有米有大佬啊

mikewolf2k

只要定义好基点,画完一个就接着画下一个,有什么问题?

江南十笑

mikewolf2k 发表于 2020-3-23 10:46
只要定义好基点,画完一个就接着画下一个,有什么问题?

怎么在面板上由用户选择 那几个组合  然后点确定绘图   现在只能一个一个画