统计线长及面积对话框函数

edata

统计的线长，面积一般会显示在命令行，或发送到剪贴板，如果同时统计面积和线长的时候，发送到剪贴板就不那么方便了。
因此采用对话框的形式，可以调整两种单位，转换米制或毫米制（1:1），精度显示，补零。分别复制。
对话框函数 (sk_area_dcl aa cd )aa为面积数值 cd为长度数值
统计代码采用该贴代码。
请帮忙修改下，谢谢！http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795

1. (defun c:tt(/ ename i l modelspace obj ss text1 text2 totalarea totlength)
   
2.   (if (setq ss (ssget'((0 . "*line,arc,circle,ellipse"))))
   
3.     (progn
   
4.       (vl-load-com)      
   
5.       (setq modelspace (vla-get-Modelspace (vla-get-activeDocument (vlax-get-acad-object))))
   
6.       (setq l (sslength ss) i 0 totalarea 0 totlength 0)
   
7.       (repeat l
   
8.         (setq ename (ssname ss i))
   
9.         (setq obj (vlax-ename->vla-object ename))
   
10.   (if (vlax-property-available-p obj "area")
    
11.     (setq totalarea (+ (vlax-get-property obj 'area) totalarea))
    
12.     )
    
13.   (if (= (cdr (assoc 0 (entget ename))) "MLINE")
    
14.     (setq totlength (+ totlength (ml-length ename)))
    
15.     (setq totlength (+ totlength (vlax-curve-getdistatparam ename (vlax-curve-getendparam ename))))
    
16.     )
    
17.   (setq i (1+ i))
    
18.   )      
    
19.       (setq text1 (rtos (* totalarea 0.000001) 2 4))
    
20.       (setq text2 (rtos (* totlength 0.001) 2 4))
    
21.       (sk_area_dcl  totalarea totlength)
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    
26. (defun ml-length (ename / j d ptlist)
    
27.   (foreach n (entget ename)
    
28.     (if (= (car n) 11)
    
29.       (setq ptlist (cons (cdr n) ptlist))
    
30.     )
    
31.   )
    
32.   (reverse ptlist)
    
33.   (setq j 0 d 0)
    
34.   (repeat (1- (length ptlist))
    
35.     (setq d (+ d (distance (nth j ptlist) (nth (1+ j) ptlist))))
    
36.     (setq j (1+ j))
    
37.   )
    
38.   d
    
39. )
    
40. 
    
41. 
    
42. 
    
43. (defun sk_area_dcl(aa cd / dcl_id chk CLIP_BORD DCL F HTM  STR)
    
44.   (setq bak_dimzin(getvar 'dimzin))
    
45.   (if (and aa cd (numberp aa)(numberp cd))
    
46.     (progn
    
47.   (setq DCL (vl-filename-mktemp nil nil ".Lsp"))
    
48.   (setq f (open dcl "w"))
    
49.   (foreach s '(
    
50. "sk_area:dialog {"
    
51. "    label = \"统计\" ;"
    
52. "    :boxed_column {"
    
53. "        fixed_height = true ;"
    
54. "        height = 6 ;"
    
55. "        label = \"统计\" ;"
    
56. "        width = 70 ;"
    
57. "        :column {"
    
58. "         children_alignment = left ;"
    
59. "                    fixed_width = true ;"
    
60. "                    width = 50 ;"
    
61. "            :row {"
    
62. "                    fixed_width = true ;"
    
63. "                    width = 35 ;"
    
64. "    children_alignment = top ;"
    
65. "                :edit_box {"
    
66. "                    key = \"sk_total_l\" ;"
    
67. "                    label = \"总长度:\" ;"
    
68. "                    fixed_width = true ;"
    
69. "                    width = 20 ;"
    
70. "                }"
    
71. "                :radio_row {"
    
72. "                    alignment = left ;"
    
73. "                    fixed_width = true ;"
    
74. "                    width = 16 ;"
    
75. "                    :radio_button {"
    
76. "                        label = \"米\" ;"
    
77. "         value = \"1\" ;"
    
78. "         key = \"sk_radio1\" ;"
    
79. "                    fixed_width = true ;"
    
80. "                    width = 8 ;"
    
81. "                    }"
    
82. "    spacer;"
    
83. "    spacer;"
    
84. "                    :radio_button {"
    
85. "                        label = \"毫米\" ;"
    
86. "         key = \"sk_radio2\" ;"
    
87. "                    fixed_width = true ;"
    
88. "                    width = 8 ;"
    
89. "                    }"
    
90. "                }"
    
91. "    spacer;"
    
92. "    spacer;"
    
93. "    spacer;"
    
94. "         :popup_list {"
    
95. "                    label = \"精度\" ;"
    
96. "                    key = \"sk_jingdu1\" ;"
    
97. "                    fixed_width = true ;"
    
98. "                    width = 20 ;"
    
99.        "}"
    
100. "                :button {"
     
101. "                    fixed_width = true ;"
     
102. "                    key = \"sk_copy1\" ;"
     
103. "                    label = \"复制(&L)\" ;"
     
104. "                    width = 4 ;"
     
105. "                }"
     
106. "            }"
     
107. "            :row {"
     
108. "    children_alignment = top ;"
     
109. "                :edit_box {"
     
110. "                    key = \"sk_total_a\" ;"
     
111. "                    label = \"总面积:\" ;"
     
112. "                    fixed_width = true ;"
     
113. "                    width = 20 ;"
     
114. "                }"
     
115. "                :radio_row {"
     
116. "                    alignment = left ;"
     
117. "                    fixed_width = true ;"
     
118. "                    width = 16 ;"
     
119. "         children_alignment = left ;"
     
120. "                    :radio_button {"
     
121. "                        label = \"平方米\" ;"
     
122. "         key = \"sk_radio3\" ;"
     
123. "         value = \"1\" ;"
     
124. "                    fixed_width = true ;"
     
125. "                    width = 8 ;"
     
126. "                    }"
     
127. "                    :radio_button {"
     
128. "                        label = \"平方毫米\" ;"
     
129. "         key = \"sk_radio4\" ;"
     
130. "                    fixed_width = true ;"
     
131. "                    width = 8 ;"
     
132. "                    }"
     
133. "                }"
     
134. "         :popup_list {"
     
135. "                    label = \"精度\" ;"
     
136. "                    key = \"sk_jingdu2\" ;"
     
137. "                    fixed_width = true ;"
     
138. "                    width = 20 ;"
     
139.        "}"
     
140. "                :button {"
     
141. "                    fixed_width = true ;"
     
142. "                    key = \"sk_copy2\" ;"
     
143. "                    label = \"复制(&A)\" ;"
     
144. "                    width = 4 ;"
     
145. "                }"
     
146. "            }"
     
147. "        }"
     
148. "        :boxed_column {"
     
149. "            alignment = centered ;"
     
150. "            children_alignment = centered ;"
     
151. "         :toggle {"
     
152. "    key = \"sk_dimzin1\" ;"
     
153. "    label = \"去零\" ;"
     
154. "    value = \"1\" ;"
     
155. "}"
     
156. "            :edit_box {"
     
157. "                key = \"sk_paste1\" ;"
     
158. "                label = \"当前剪贴板文字:\" ;"
     
159. "                    fixed_width = true ;"
     
160. "                    width = 50 ;"
     
161. "            }"
     
162. "    spacer;"
     
163. "    spacer;"
     
164. "    spacer;"
     
165. "        }"
     
166. "    spacer;"
     
167. "    }"
     
168. "    spacer;"
     
169. "    ok_only;"
     
170. "}"
     
171.   )
     
172.   (write-line s f))
     
173.   (close f)
     
174.   (setq dcl_id (load_dialog DCL))
     
175.   (vl-file-delete DCL)
     
176.   (if (> dcl_id 0)
     
177.     (progn      
     
178.       (setq htm (vlax-create-object "htmlfile"))
     
179.       (defun sk_GetClipboard();获取剪切板
     
180.         (setq Clip_Bord (Vlax-Get-Property (Vlax-Get htm 'ParentWindow) 'ClipboardData))
     
181.         (Vlax-Invoke Clip_Bord 'GetData "text")
     
182.         )
     
183.       (defun sk_SetClipboard(clip);设置剪切板
     
184.         (Vlax-Invoke Clip_Bord 'SetData "text" clip)
     
185.         )
     
186.       (defun sk_ClearClipboard();清空
     
187.         (setq Clip_Bord (Vlax-Get-Property (Vlax-Get htm 'ParentWindow) 'ClipboardData))
     
188.         (Vlax-Invoke Clip_Bord 'ClearData "text")
     
189.         )
     
190.       (defun Show_list(Key Newlist)
     
191.         (start_list Key)
     
192.         (mapcar 'add_list Newlist)
     
193.         (end_list)
     
194.         )
     
195.       (new_dialog "sk_area" dcl_id)
     
196.       (if(setq str(sk_GetClipboard))(set_Tile "sk_paste1" str))
     
197.       (or jingdu01 (setq jingdu01 3))
     
198.       (or jingdu02 (setq jingdu02 3))
     
199.       (or sk_dimzin1 (setq sk_dimzin1 1))
     
200.       (Show_list "sk_jingdu1" '( "0" "00" "000" "0000" "00000" "000000" "0000000" "00000000"))
     
201.       (Show_list "sk_jingdu2" '( "0" "00" "000" "0000" "00000" "000000" "0000000" "00000000"))
     
202.       (if (and jingdu01 (= (type jingdu01) 'INT))(set_tile "sk_jingdu1" (itoa (1- jingdu01))))
     
203.       (if (and jingdu02 (= (type jingdu02) 'INT))(set_tile "sk_jingdu2" (itoa (1- jingdu02))))
     
204.       (if (and sk_dimzin1 (= (type sk_dimzin1) 'INT))(progn (set_tile "sk_dimzin1" (itoa sk_dimzin1))(if(= sk_dimzin1 1)(setvar 'dimzin 8)(setvar 'dimzin 0))))      
     
205.       (if cd(set_Tile "sk_total_l" (if (= (get_Tile "sk_radio1") "1")(rtos (* cd 0.001) 2 jingdu01)(rtos cd 2 jingdu01))))
     
206.       (if aa(set_Tile "sk_total_a" (if (= (get_Tile "sk_radio3") "1")(rtos (* aa 0.000001) 2 jingdu02)(rtos aa 2 jingdu02))))
     
207.     (Action_Tile "sk_copy1" "(sk_SetClipboard (get_Tile \"sk_total_l\"))
     
208.     (if (setq str (sk_GetClipboard))(set_Tile \"sk_paste1\" str))")
     
209.     (Action_Tile "sk_copy2" "(sk_SetClipboard (get_Tile \"sk_total_a\"))
     
210.     (if (setq str (sk_GetClipboard))(set_Tile \"sk_paste1\" str))")
     
211.       (Action_Tile "sk_jingdu1" "(setq jingdu01 (1+ (atoi(get_tile \"sk_jingdu1\" )))) (set_Tile \"sk_total_l\" (if (= (get_Tile \"sk_radio1\") \"1\")(rtos (* cd 0.001) 2 jingdu01)(rtos cd 2 jingdu01)))")
     
212.       (Action_Tile "sk_jingdu2" "(setq jingdu02 (1+ (atoi(get_tile \"sk_jingdu2\" )))) (set_Tile \"sk_total_a\" (if (= (get_Tile \"sk_radio3\") \"1\")(rtos (* aa 0.000001) 2 jingdu02)(rtos aa 2 jingdu02)))")
     
213.       (Action_Tile "sk_radio1" "(set_Tile \"sk_total_l\" (rtos (* cd 0.001) 2 jingdu01))")
     
214.       (Action_Tile "sk_radio2" "(set_Tile \"sk_total_l\" (rtos cd 2 jingdu01))")
     
215.       (Action_Tile "sk_radio3" "(set_Tile \"sk_total_a\" (rtos (* aa 0.000001) 2 jingdu02))")
     
216.       (Action_Tile "sk_radio4" "(set_Tile \"sk_total_a\" (rtos aa 2 jingdu02))")
     
217.       (Action_Tile "sk_dimzin1" "(setq sk_dimzin1 (atoi (get_tile \"sk_dimzin1\" )))(if(= sk_dimzin1 1)(setvar 'dimzin 8)(setvar 'dimzin 0))
     
218.       (set_Tile \"sk_total_l\" (if (= (get_Tile \"sk_radio1\") \"1\")(rtos (* cd 0.001) 2 jingdu01)(rtos cd 2 jingdu01)))
     
219.       (set_Tile \"sk_total_a\" (if (= (get_Tile \"sk_radio3\") \"1\")(rtos (* aa 0.000001) 2 jingdu02)(rtos aa 2 jingdu02)))      
     
220.       ")
     
221.     (setq chk (start_dialog))
     
222.   ))
     
223.   (unload_dialog dcl_id)  
     
224.       )
     
225.     )
     
226.   (and bak_dimzin(setvar 'dimzin bak_dimzin))
     
227.   (princ)
     
228.   )
     
229. 
     
230. 
     
231. 
     

(defun c:tt(/ ename i l modelspace obj ss text1 text2 totalarea totlength)<br />   (if (setq ss (ssget'((0 . "*line,arc,circle,ellipse"))))<br />     (progn<br />       (vl-load-com)      <br />       (setq modelspace (vla-get-Modelspace (vla-get-activeDocument (vlax-get-acad-object))))<br />       (setq l (sslength ss) i 0 totalarea 0 totlength 0)<br />       (repeat l<br />         (setq ename (ssname ss i))<br />         (setq obj (vlax-ename->vla-object ename))<br />   (if (vlax-property-available-p obj "area")<br />     (setq totalarea (+ (vlax-get-property obj 'area) totalarea))<br />     )<br />   (if (= (cdr (assoc 0 (entget ename))) "MLINE")<br />     (setq totlength (+ totlength (ml-length ename)))<br />     (setq totlength (+ totlength (vlax-curve-getdistatparam ename (vlax-curve-getendparam ename))))<br />     )<br />   (setq i (1+ i))<br />   )      <br />       (setq text1 (rtos (* totalarea 0.000001) 2 4))<br />       (setq text2 (rtos (* totlength 0.001) 2 4))<br />       (sk_area_dcl  totalarea totlength)<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun ml-length (ename / j d ptlist)<br />   (foreach n (entget ename)<br />     (if (= (car n) 11)<br />       (setq ptlist (cons (cdr n) ptlist))<br />     )<br />   )<br />   (reverse ptlist)<br />   (setq j 0 d 0)<br />   (repeat (1- (length ptlist))<br />     (setq d (+ d (distance (nth j ptlist) (nth (1+ j) ptlist))))<br />     (setq j (1+ j))<br />   )<br />   d<br /> )<br /> <br /> <br /> <br /> (defun sk_area_dcl(aa cd / dcl_id chk CLIP_BORD DCL F HTM  STR)<br />   (setq bak_dimzin(getvar 'dimzin))<br />   (if (and aa cd (numberp aa)(numberp cd))<br />     (progn<br />   (setq DCL (vl-filename-mktemp nil nil ".Lsp"))<br />   (setq f (open dcl "w"))<br />   (foreach s '(<br /> "sk_area:dialog {"<br /> "    label = \"统计\" ;"<br /> "    :boxed_column {"<br /> "        fixed_height = true ;"<br /> "        height = 6 ;"<br /> "        label = \"统计\" ;"<br /> "        width = 70 ;"<br /> "        :column {"<br /> "         children_alignment = left ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 50 ;" <br /> "            :row {"<br /> "                    fixed_width = true ;"<br /> "                    width = 35 ;" <br /> "    children_alignment = top ;"<br /> "                :edit_box {"<br /> "                    key = \"sk_total_l\" ;"<br /> "                    label = \"总长度:\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 20 ;"<br /> "                }"<br /> "                :radio_row {"<br /> "                    alignment = left ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 16 ;"<br /> "                    :radio_button {"<br /> "                        label = \"米\" ;" <br /> "         value = \"1\" ;"<br /> "         key = \"sk_radio1\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 8 ;"<br /> "                    }"<br /> "    spacer;"<br /> "    spacer;"<br /> "                    :radio_button {"<br /> "                        label = \"毫米\" ;"<br /> "         key = \"sk_radio2\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 8 ;"<br /> "                    }"<br /> "                }"<br /> "    spacer;"<br /> "    spacer;"<br /> "    spacer;"<br /> "         :popup_list {"<br /> "                    label = \"精度\" ;"<br /> "                    key = \"sk_jingdu1\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 20 ;"<br />        "}"<br /> "                :button {"<br /> "                    fixed_width = true ;"<br /> "                    key = \"sk_copy1\" ;"<br /> "                    label = \"复制(&L)\" ;"<br /> "                    width = 4 ;"<br /> "                }"<br /> "            }"<br /> "            :row {"<br /> "    children_alignment = top ;"<br /> "                :edit_box {"<br /> "                    key = \"sk_total_a\" ;"<br /> "                    label = \"总面积:\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 20 ;"<br /> "                }"<br /> "                :radio_row {"<br /> "                    alignment = left ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 16 ;"<br /> "         children_alignment = left ;"<br /> "                    :radio_button {"<br /> "                        label = \"平方米\" ;"<br /> "         key = \"sk_radio3\" ;"<br /> "         value = \"1\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 8 ;"<br /> "                    }"<br /> "                    :radio_button {"<br /> "                        label = \"平方毫米\" ;"<br /> "         key = \"sk_radio4\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 8 ;"<br /> "                    }"<br /> "                }"<br /> "         :popup_list {"<br /> "                    label = \"精度\" ;"<br /> "                    key = \"sk_jingdu2\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 20 ;"<br />        "}"<br /> "                :button {"<br /> "                    fixed_width = true ;"<br /> "                    key = \"sk_copy2\" ;"<br /> "                    label = \"复制(&A)\" ;"<br /> "                    width = 4 ;"<br /> "                }"<br /> "            }"<br /> "        }"<br /> "        :boxed_column {"<br /> "            alignment = centered ;"<br /> "            children_alignment = centered ;"<br /> "         :toggle {"<br /> "    key = \"sk_dimzin1\" ;"<br /> "    label = \"去零\" ;"<br /> "    value = \"1\" ;"<br /> "}"<br /> "            :edit_box {"<br /> "                key = \"sk_paste1\" ;"<br /> "                label = \"当前剪贴板文字:\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 50 ;"<br /> "            }"<br /> "    spacer;"<br /> "    spacer;"<br /> "    spacer;" <br /> "        }"<br /> "    spacer;"<br /> "    }"<br /> "    spacer;"<br /> "    ok_only;"<br /> "}"<br />   )<br />   (write-line s f))<br />   (close f)<br />   (setq dcl_id (load_dialog DCL))<br />   (vl-file-delete DCL)<br />   (if (> dcl_id 0)<br />     (progn       <br />       (setq htm (vlax-create-object "htmlfile"))<br />       (defun sk_GetClipboard();获取剪切板<br />         (setq Clip_Bord (Vlax-Get-Property (Vlax-Get htm 'ParentWindow) 'ClipboardData))<br />         (Vlax-Invoke Clip_Bord 'GetData "text")<br />         )<br />       (defun sk_SetClipboard(clip);设置剪切板<br />         (Vlax-Invoke Clip_Bord 'SetData "text" clip)<br />         )<br />       (defun sk_ClearClipboard();清空<br />         (setq Clip_Bord (Vlax-Get-Property (Vlax-Get htm 'ParentWindow) 'ClipboardData))<br />         (Vlax-Invoke Clip_Bord 'ClearData "text")<br />         )<br />       (defun Show_list(Key Newlist)<br />         (start_list Key)<br />         (mapcar 'add_list Newlist)<br />         (end_list)<br />         )<br />       (new_dialog "sk_area" dcl_id)<br />       (if(setq str(sk_GetClipboard))(set_Tile "sk_paste1" str))<br />       (or jingdu01 (setq jingdu01 3))<br />       (or jingdu02 (setq jingdu02 3))<br />       (or sk_dimzin1 (setq sk_dimzin1 1))<br />       (Show_list "sk_jingdu1" '( "0" "00" "000" "0000" "00000" "000000" "0000000" "00000000"))<br />       (Show_list "sk_jingdu2" '( "0" "00" "000" "0000" "00000" "000000" "0000000" "00000000"))<br />       (if (and jingdu01 (= (type jingdu01) 'INT))(set_tile "sk_jingdu1" (itoa (1- jingdu01))))<br />       (if (and jingdu02 (= (type jingdu02) 'INT))(set_tile "sk_jingdu2" (itoa (1- jingdu02))))<br />       (if (and sk_dimzin1 (= (type sk_dimzin1) 'INT))(progn (set_tile "sk_dimzin1" (itoa sk_dimzin1))(if(= sk_dimzin1 1)(setvar 'dimzin 8)(setvar 'dimzin 0))))      <br />       (if cd(set_Tile "sk_total_l" (if (= (get_Tile "sk_radio1") "1")(rtos (* cd 0.001) 2 jingdu01)(rtos cd 2 jingdu01))))<br />       (if aa(set_Tile "sk_total_a" (if (= (get_Tile "sk_radio3") "1")(rtos (* aa 0.000001) 2 jingdu02)(rtos aa 2 jingdu02))))<br />     (Action_Tile "sk_copy1" "(sk_SetClipboard (get_Tile \"sk_total_l\"))<br />     (if (setq str (sk_GetClipboard))(set_Tile \"sk_paste1\" str))")<br />     (Action_Tile "sk_copy2" "(sk_SetClipboard (get_Tile \"sk_total_a\"))<br />     (if (setq str (sk_GetClipboard))(set_Tile \"sk_paste1\" str))")<br />       (Action_Tile "sk_jingdu1" "(setq jingdu01 (1+ (atoi(get_tile \"sk_jingdu1\" )))) (set_Tile \"sk_total_l\" (if (= (get_Tile \"sk_radio1\") \"1\")(rtos (* cd 0.001) 2 jingdu01)(rtos cd 2 jingdu01)))")<br />       (Action_Tile "sk_jingdu2" "(setq jingdu02 (1+ (atoi(get_tile \"sk_jingdu2\" )))) (set_Tile \"sk_total_a\" (if (= (get_Tile \"sk_radio3\") \"1\")(rtos (* aa 0.000001) 2 jingdu02)(rtos aa 2 jingdu02)))")<br />       (Action_Tile "sk_radio1" "(set_Tile \"sk_total_l\" (rtos (* cd 0.001) 2 jingdu01))")<br />       (Action_Tile "sk_radio2" "(set_Tile \"sk_total_l\" (rtos cd 2 jingdu01))")<br />       (Action_Tile "sk_radio3" "(set_Tile \"sk_total_a\" (rtos (* aa 0.000001) 2 jingdu02))")<br />       (Action_Tile "sk_radio4" "(set_Tile \"sk_total_a\" (rtos aa 2 jingdu02))")<br />       (Action_Tile "sk_dimzin1" "(setq sk_dimzin1 (atoi (get_tile \"sk_dimzin1\" )))(if(= sk_dimzin1 1)(setvar 'dimzin 8)(setvar 'dimzin 0))<br />       (set_Tile \"sk_total_l\" (if (= (get_Tile \"sk_radio1\") \"1\")(rtos (* cd 0.001) 2 jingdu01)(rtos cd 2 jingdu01)))<br />       (set_Tile \"sk_total_a\" (if (= (get_Tile \"sk_radio3\") \"1\")(rtos (* aa 0.000001) 2 jingdu02)(rtos aa 2 jingdu02)))      <br />       ")<br />     (setq chk (start_dialog))<br />   ))<br />   (unload_dialog dcl_id)  <br />       )<br />     )<br />   (and bak_dimzin(setvar 'dimzin bak_dimzin))<br />   (princ)<br />   )<br /> <br /> <br /> <br />

tianyi1230

一大早就看到了好东西，谢谢楼主了！

xyp1964

2. (defun c:tt ()
   
3.   (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
   
4.     (progn
   
5.       (setq lst(xyp-ss2list ss)
   
6.             lst1  (mapcar 'xyp-CurveLength lst)
   
7.             lst2  (vl-remove-if '(lambda (x) (xyp-etype x "line")) lst)
   
8.             lst2  (mapcar '(lambda (x) (vla-get-area (vlax-ename->vla-object x))) lst2)
   
9.             text1 (strcat "总面积为: " (rtos (apply '+ lst2) 2 4))
   
10.             text2 (strcat "总长度为: " (rtos (apply '+ lst1) 2 4))
    
11.       )
    
12.       (xyp-Put-Cliptext (strcat text1 "\n" text2))
    
13.       (princ "\n")(princ text1)
    
14.       (princ "\n")(princ text2)
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )

(defun c:tt ()<br />   (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))<br />     (progn<br />       (setq lst(xyp-ss2list ss)<br />             lst1  (mapcar 'xyp-CurveLength lst)<br />             lst2  (vl-remove-if '(lambda (x) (xyp-etype x "line")) lst)<br />             lst2  (mapcar '(lambda (x) (vla-get-area (vlax-ename->vla-object x))) lst2)<br />             text1 (strcat "总面积为: " (rtos (apply '+ lst2) 2 4))<br />             text2 (strcat "总长度为: " (rtos (apply '+ lst1) 2 4))<br />       )<br />       (xyp-Put-Cliptext (strcat text1 "\n" text2))<br />       (princ "\n")(princ text1)<br />       (princ "\n")(princ text2)<br />     )<br />   )<br />   (princ)<br /> )

xiaobaixiaobu

D:\桌面\1111咋回事？

434939575

正在学习DCL,参考学习的好东东。感谢楼主无私奉献，

edata

xiaobaixiaobu 发表于 2014-6-5 09:26
咋回事？

应该是原来剪贴板的文本超出DCL处理范围。
可以忽略。

669423907

请问E大，我想把默认改为毫米，要改哪个呢？谢谢

edata

669423907 发表于 2018-1-12 11:08
请问E大，我想把默认改为毫米，要改哪个呢？谢谢

1. (defun c:tt(/ ename i l modelspace obj ss text1 text2 totalarea totlength)
   
2.   (if (setq ss (ssget'((0 . "*line,arc,circle,ellipse"))))
   
3.     (progn
   
4.       (vl-load-com)      
   
5.       (setq modelspace (vla-get-Modelspace (vla-get-activeDocument (vlax-get-acad-object))))
   
6.       (setq l (sslength ss) i 0 totalarea 0 totlength 0)
   
7.       (repeat l
   
8.         (setq ename (ssname ss i))
   
9.         (setq obj (vlax-ename->vla-object ename))
   
10.   (if (vlax-property-available-p obj "area")
    
11.     (setq totalarea (+ (vlax-get-property obj 'area) totalarea))
    
12.     )
    
13.   (if (= (cdr (assoc 0 (entget ename))) "MLINE")
    
14.     (setq totlength (+ totlength (ml-length ename)))
    
15.     (setq totlength (+ totlength (vlax-curve-getdistatparam ename (vlax-curve-getendparam ename))))
    
16.     )
    
17.   (setq i (1+ i))
    
18.   )      
    
19.       (setq text1 (rtos (* totalarea 0.000001) 2 4))
    
20.       (setq text2 (rtos (* totlength 0.001) 2 4))
    
21.       (sk_area_dcl  totalarea totlength)
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    
26. (defun ml-length (ename / j d ptlist)
    
27.   (foreach n (entget ename)
    
28.     (if (= (car n) 11)
    
29.       (setq ptlist (cons (cdr n) ptlist))
    
30.     )
    
31.   )
    
32.   (reverse ptlist)
    
33.   (setq j 0 d 0)
    
34.   (repeat (1- (length ptlist))
    
35.     (setq d (+ d (distance (nth j ptlist) (nth (1+ j) ptlist))))
    
36.     (setq j (1+ j))
    
37.   )
    
38.   d
    
39. )
    
40. 
    
41. 
    
42. 
    
43. (defun sk_area_dcl(aa cd / dcl_id chk CLIP_BORD DCL F HTM  STR)
    
44.   (setq bak_dimzin(getvar 'dimzin))
    
45.   (if (and aa cd (numberp aa)(numberp cd))
    
46.     (progn
    
47.   (setq DCL (vl-filename-mktemp nil nil ".Lsp"))
    
48.   (setq f (open dcl "w"))
    
49.   (foreach s '(
    
50. "sk_area:dialog {"
    
51. "    label = \"统计\" ;"
    
52. "    :boxed_column {"
    
53. "        fixed_height = true ;"
    
54. "        height = 6 ;"
    
55. "        label = \"统计\" ;"
    
56. "        width = 70 ;"
    
57. "        :column {"
    
58. "         children_alignment = left ;"
    
59. "                    fixed_width = true ;"
    
60. "                    width = 50 ;"
    
61. "            :row {"
    
62. "                    fixed_width = true ;"
    
63. "                    width = 35 ;"
    
64. "    children_alignment = top ;"
    
65. "                :edit_box {"
    
66. "                    key = \"sk_total_l\" ;"
    
67. "                    label = \"总长度:\" ;"
    
68. "                    fixed_width = true ;"
    
69. "                    width = 20 ;"
    
70. "                }"
    
71. "                :radio_row {"
    
72. "                    alignment = left ;"
    
73. "                    fixed_width = true ;"
    
74. "                    width = 16 ;"
    
75. "                    :radio_button {"
    
76. "                        label = \"米\" ;"
    
77. "         key = \"sk_radio1\" ;"
    
78. "                    fixed_width = true ;"
    
79. "                    width = 8 ;"
    
80. "                    }"
    
81. "    spacer;"
    
82. "    spacer;"
    
83. "                    :radio_button {"
    
84. "                        label = \"毫米\" ;"
    
85. "         value = \"1\" ;"
    
86. "         key = \"sk_radio2\" ;"
    
87. "                    fixed_width = true ;"
    
88. "                    width = 8 ;"
    
89. "                    }"
    
90. "                }"
    
91. "    spacer;"
    
92. "    spacer;"
    
93. "    spacer;"
    
94. "         :popup_list {"
    
95. "                    label = \"精度\" ;"
    
96. "                    key = \"sk_jingdu1\" ;"
    
97. "                    fixed_width = true ;"
    
98. "                    width = 20 ;"
    
99.        "}"
    
100. "                :button {"
     
101. "                    fixed_width = true ;"
     
102. "                    key = \"sk_copy1\" ;"
     
103. "                    label = \"复制(&L)\" ;"
     
104. "                    width = 4 ;"
     
105. "                }"
     
106. "            }"
     
107. "            :row {"
     
108. "    children_alignment = top ;"
     
109. "                :edit_box {"
     
110. "                    key = \"sk_total_a\" ;"
     
111. "                    label = \"总面积:\" ;"
     
112. "                    fixed_width = true ;"
     
113. "                    width = 20 ;"
     
114. "                }"
     
115. "                :radio_row {"
     
116. "                    alignment = left ;"
     
117. "                    fixed_width = true ;"
     
118. "                    width = 16 ;"
     
119. "         children_alignment = left ;"
     
120. "                    :radio_button {"
     
121. "                        label = \"平方米\" ;"
     
122. "         key = \"sk_radio3\" ;"
     
123. 
     
124. "                    fixed_width = true ;"
     
125. "                    width = 8 ;"
     
126. "                    }"
     
127. "                    :radio_button {"
     
128. "                        label = \"平方毫米\" ;"
     
129. "         key = \"sk_radio4\" ;"
     
130. "         value = \"1\" ;"
     
131. "                    fixed_width = true ;"
     
132. "                    width = 8 ;"
     
133. "                    }"
     
134. "                }"
     
135. "         :popup_list {"
     
136. "                    label = \"精度\" ;"
     
137. "                    key = \"sk_jingdu2\" ;"
     
138. "                    fixed_width = true ;"
     
139. "                    width = 20 ;"
     
140.        "}"
     
141. "                :button {"
     
142. "                    fixed_width = true ;"
     
143. "                    key = \"sk_copy2\" ;"
     
144. "                    label = \"复制(&A)\" ;"
     
145. "                    width = 4 ;"
     
146. "                }"
     
147. "            }"
     
148. "        }"
     
149. "        :boxed_column {"
     
150. "            alignment = centered ;"
     
151. "            children_alignment = centered ;"
     
152. "         :toggle {"
     
153. "    key = \"sk_dimzin1\" ;"
     
154. "    label = \"去零\" ;"
     
155. "    value = \"1\" ;"
     
156. "}"
     
157. "            :edit_box {"
     
158. "                key = \"sk_paste1\" ;"
     
159. "                label = \"当前剪贴板文字:\" ;"
     
160. "                    fixed_width = true ;"
     
161. "                    width = 50 ;"
     
162. "            }"
     
163. "    spacer;"
     
164. "    spacer;"
     
165. "    spacer;"
     
166. "        }"
     
167. "    spacer;"
     
168. "    }"
     
169. "    spacer;"
     
170. "    ok_only;"
     
171. "}"
     
172.   )
     
173.   (write-line s f))
     
174.   (close f)
     
175.   (setq dcl_id (load_dialog DCL))
     
176.   (vl-file-delete DCL)
     
177.   (if (> dcl_id 0)
     
178.     (progn      
     
179.       (setq htm (vlax-create-object "htmlfile"))
     
180.       (defun sk_GetClipboard();获取剪切板
     
181.         (setq Clip_Bord (Vlax-Get-Property (Vlax-Get htm 'ParentWindow) 'ClipboardData))
     
182.         (Vlax-Invoke Clip_Bord 'GetData "text")
     
183.         )
     
184.       (defun sk_SetClipboard(clip);设置剪切板
     
185.         (Vlax-Invoke Clip_Bord 'SetData "text" clip)
     
186.         )
     
187.       (defun sk_ClearClipboard();清空
     
188.         (setq Clip_Bord (Vlax-Get-Property (Vlax-Get htm 'ParentWindow) 'ClipboardData))
     
189.         (Vlax-Invoke Clip_Bord 'ClearData "text")
     
190.         )
     
191.       (defun Show_list(Key Newlist)
     
192.         (start_list Key)
     
193.         (mapcar 'add_list Newlist)
     
194.         (end_list)
     
195.         )
     
196.       (new_dialog "sk_area" dcl_id)
     
197.       (if(setq str(sk_GetClipboard))(set_Tile "sk_paste1" str))
     
198.       (or jingdu01 (setq jingdu01 3))
     
199.       (or jingdu02 (setq jingdu02 3))
     
200.       (or sk_dimzin1 (setq sk_dimzin1 1))
     
201.       (Show_list "sk_jingdu1" '( "0" "00" "000" "0000" "00000" "000000" "0000000" "00000000"))
     
202.       (Show_list "sk_jingdu2" '( "0" "00" "000" "0000" "00000" "000000" "0000000" "00000000"))
     
203.       (if (and jingdu01 (= (type jingdu01) 'INT))(set_tile "sk_jingdu1" (itoa (1- jingdu01))))
     
204.       (if (and jingdu02 (= (type jingdu02) 'INT))(set_tile "sk_jingdu2" (itoa (1- jingdu02))))
     
205.       (if (and sk_dimzin1 (= (type sk_dimzin1) 'INT))(progn (set_tile "sk_dimzin1" (itoa sk_dimzin1))(if(= sk_dimzin1 1)(setvar 'dimzin 8)(setvar 'dimzin 0))))      
     
206.       (if cd(set_Tile "sk_total_l" (if (= (get_Tile "sk_radio1") "1")(rtos (* cd 0.001) 2 jingdu01)(rtos cd 2 jingdu01))))
     
207.       (if aa(set_Tile "sk_total_a" (if (= (get_Tile "sk_radio3") "1")(rtos (* aa 0.000001) 2 jingdu02)(rtos aa 2 jingdu02))))
     
208.     (Action_Tile "sk_copy1" "(sk_SetClipboard (get_Tile \"sk_total_l\"))
     
209.     (if (setq str (sk_GetClipboard))(set_Tile \"sk_paste1\" str))")
     
210.     (Action_Tile "sk_copy2" "(sk_SetClipboard (get_Tile \"sk_total_a\"))
     
211.     (if (setq str (sk_GetClipboard))(set_Tile \"sk_paste1\" str))")
     
212.       (Action_Tile "sk_jingdu1" "(setq jingdu01 (1+ (atoi(get_tile \"sk_jingdu1\" )))) (set_Tile \"sk_total_l\" (if (= (get_Tile \"sk_radio1\") \"1\")(rtos (* cd 0.001) 2 jingdu01)(rtos cd 2 jingdu01)))")
     
213.       (Action_Tile "sk_jingdu2" "(setq jingdu02 (1+ (atoi(get_tile \"sk_jingdu2\" )))) (set_Tile \"sk_total_a\" (if (= (get_Tile \"sk_radio3\") \"1\")(rtos (* aa 0.000001) 2 jingdu02)(rtos aa 2 jingdu02)))")
     
214.       (Action_Tile "sk_radio1" "(set_Tile \"sk_total_l\" (rtos (* cd 0.001) 2 jingdu01))")
     
215.       (Action_Tile "sk_radio2" "(set_Tile \"sk_total_l\" (rtos cd 2 jingdu01))")
     
216.       (Action_Tile "sk_radio3" "(set_Tile \"sk_total_a\" (rtos (* aa 0.000001) 2 jingdu02))")
     
217.       (Action_Tile "sk_radio4" "(set_Tile \"sk_total_a\" (rtos aa 2 jingdu02))")
     
218.       (Action_Tile "sk_dimzin1" "(setq sk_dimzin1 (atoi (get_tile \"sk_dimzin1\" )))(if(= sk_dimzin1 1)(setvar 'dimzin 8)(setvar 'dimzin 0))
     
219.       (set_Tile \"sk_total_l\" (if (= (get_Tile \"sk_radio1\") \"1\")(rtos (* cd 0.001) 2 jingdu01)(rtos cd 2 jingdu01)))
     
220.       (set_Tile \"sk_total_a\" (if (= (get_Tile \"sk_radio3\") \"1\")(rtos (* aa 0.000001) 2 jingdu02)(rtos aa 2 jingdu02)))      
     
221.       ")
     
222.     (setq chk (start_dialog))
     
223.   ))
     
224.   (unload_dialog dcl_id)  
     
225.       )
     
226.     )
     
227.   (and bak_dimzin(setvar 'dimzin bak_dimzin))
     
228.   (princ)
     
229.   )

(defun c:tt(/ ename i l modelspace obj ss text1 text2 totalarea totlength)<br />   (if (setq ss (ssget'((0 . "*line,arc,circle,ellipse"))))<br />     (progn<br />       (vl-load-com)      <br />       (setq modelspace (vla-get-Modelspace (vla-get-activeDocument (vlax-get-acad-object))))<br />       (setq l (sslength ss) i 0 totalarea 0 totlength 0)<br />       (repeat l<br />         (setq ename (ssname ss i))<br />         (setq obj (vlax-ename->vla-object ename))<br />   (if (vlax-property-available-p obj "area")<br />     (setq totalarea (+ (vlax-get-property obj 'area) totalarea))<br />     )<br />   (if (= (cdr (assoc 0 (entget ename))) "MLINE")<br />     (setq totlength (+ totlength (ml-length ename)))<br />     (setq totlength (+ totlength (vlax-curve-getdistatparam ename (vlax-curve-getendparam ename))))<br />     )<br />   (setq i (1+ i))<br />   )      <br />       (setq text1 (rtos (* totalarea 0.000001) 2 4))<br />       (setq text2 (rtos (* totlength 0.001) 2 4))<br />       (sk_area_dcl  totalarea totlength)<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun ml-length (ename / j d ptlist)<br />   (foreach n (entget ename)<br />     (if (= (car n) 11)<br />       (setq ptlist (cons (cdr n) ptlist))<br />     )<br />   )<br />   (reverse ptlist)<br />   (setq j 0 d 0)<br />   (repeat (1- (length ptlist))<br />     (setq d (+ d (distance (nth j ptlist) (nth (1+ j) ptlist))))<br />     (setq j (1+ j))<br />   )<br />   d<br /> )<br /> <br /> <br /> <br /> (defun sk_area_dcl(aa cd / dcl_id chk CLIP_BORD DCL F HTM  STR)<br />   (setq bak_dimzin(getvar 'dimzin))<br />   (if (and aa cd (numberp aa)(numberp cd))<br />     (progn<br />   (setq DCL (vl-filename-mktemp nil nil ".Lsp"))<br />   (setq f (open dcl "w"))<br />   (foreach s '(<br /> "sk_area:dialog {"<br /> "    label = \"统计\" ;"<br /> "    :boxed_column {"<br /> "        fixed_height = true ;"<br /> "        height = 6 ;"<br /> "        label = \"统计\" ;"<br /> "        width = 70 ;"<br /> "        :column {"<br /> "         children_alignment = left ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 50 ;" <br /> "            :row {"<br /> "                    fixed_width = true ;"<br /> "                    width = 35 ;" <br /> "    children_alignment = top ;"<br /> "                :edit_box {"<br /> "                    key = \"sk_total_l\" ;"<br /> "                    label = \"总长度:\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 20 ;"<br /> "                }"<br /> "                :radio_row {"<br /> "                    alignment = left ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 16 ;"<br /> "                    :radio_button {"<br /> "                        label = \"米\" ;" <br /> "         key = \"sk_radio1\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 8 ;"<br /> "                    }"<br /> "    spacer;"<br /> "    spacer;"<br /> "                    :radio_button {"<br /> "                        label = \"毫米\" ;"<br /> "         value = \"1\" ;"<br /> "         key = \"sk_radio2\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 8 ;"<br /> "                    }"<br /> "                }"<br /> "    spacer;"<br /> "    spacer;"<br /> "    spacer;"<br /> "         :popup_list {"<br /> "                    label = \"精度\" ;"<br /> "                    key = \"sk_jingdu1\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 20 ;"<br />        "}"<br /> "                :button {"<br /> "                    fixed_width = true ;"<br /> "                    key = \"sk_copy1\" ;"<br /> "                    label = \"复制(&L)\" ;"<br /> "                    width = 4 ;"<br /> "                }"<br /> "            }"<br /> "            :row {"<br /> "    children_alignment = top ;"<br /> "                :edit_box {"<br /> "                    key = \"sk_total_a\" ;"<br /> "                    label = \"总面积:\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 20 ;"<br /> "                }"<br /> "                :radio_row {"<br /> "                    alignment = left ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 16 ;"<br /> "         children_alignment = left ;"<br /> "                    :radio_button {"<br /> "                        label = \"平方米\" ;"<br /> "         key = \"sk_radio3\" ;"<br /> <br /> "                    fixed_width = true ;"<br /> "                    width = 8 ;"<br /> "                    }"<br /> "                    :radio_button {"<br /> "                        label = \"平方毫米\" ;"<br /> "         key = \"sk_radio4\" ;"<br /> "         value = \"1\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 8 ;"<br /> "                    }"<br /> "                }"<br /> "         :popup_list {"<br /> "                    label = \"精度\" ;"<br /> "                    key = \"sk_jingdu2\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 20 ;"<br />        "}"<br /> "                :button {"<br /> "                    fixed_width = true ;"<br /> "                    key = \"sk_copy2\" ;"<br /> "                    label = \"复制(&A)\" ;"<br /> "                    width = 4 ;"<br /> "                }"<br /> "            }"<br /> "        }"<br /> "        :boxed_column {"<br /> "            alignment = centered ;"<br /> "            children_alignment = centered ;"<br /> "         :toggle {"<br /> "    key = \"sk_dimzin1\" ;"<br /> "    label = \"去零\" ;"<br /> "    value = \"1\" ;"<br /> "}"<br /> "            :edit_box {"<br /> "                key = \"sk_paste1\" ;"<br /> "                label = \"当前剪贴板文字:\" ;"<br /> "                    fixed_width = true ;"<br /> "                    width = 50 ;"<br /> "            }"<br /> "    spacer;"<br /> "    spacer;"<br /> "    spacer;" <br /> "        }"<br /> "    spacer;"<br /> "    }"<br /> "    spacer;"<br /> "    ok_only;"<br /> "}"<br />   )<br />   (write-line s f))<br />   (close f)<br />   (setq dcl_id (load_dialog DCL))<br />   (vl-file-delete DCL)<br />   (if (> dcl_id 0)<br />     (progn       <br />       (setq htm (vlax-create-object "htmlfile"))<br />       (defun sk_GetClipboard();获取剪切板<br />         (setq Clip_Bord (Vlax-Get-Property (Vlax-Get htm 'ParentWindow) 'ClipboardData))<br />         (Vlax-Invoke Clip_Bord 'GetData "text")<br />         )<br />       (defun sk_SetClipboard(clip);设置剪切板<br />         (Vlax-Invoke Clip_Bord 'SetData "text" clip)<br />         )<br />       (defun sk_ClearClipboard();清空<br />         (setq Clip_Bord (Vlax-Get-Property (Vlax-Get htm 'ParentWindow) 'ClipboardData))<br />         (Vlax-Invoke Clip_Bord 'ClearData "text")<br />         )<br />       (defun Show_list(Key Newlist)<br />         (start_list Key)<br />         (mapcar 'add_list Newlist)<br />         (end_list)<br />         )<br />       (new_dialog "sk_area" dcl_id)<br />       (if(setq str(sk_GetClipboard))(set_Tile "sk_paste1" str))<br />       (or jingdu01 (setq jingdu01 3))<br />       (or jingdu02 (setq jingdu02 3))<br />       (or sk_dimzin1 (setq sk_dimzin1 1))<br />       (Show_list "sk_jingdu1" '( "0" "00" "000" "0000" "00000" "000000" "0000000" "00000000"))<br />       (Show_list "sk_jingdu2" '( "0" "00" "000" "0000" "00000" "000000" "0000000" "00000000"))<br />       (if (and jingdu01 (= (type jingdu01) 'INT))(set_tile "sk_jingdu1" (itoa (1- jingdu01))))<br />       (if (and jingdu02 (= (type jingdu02) 'INT))(set_tile "sk_jingdu2" (itoa (1- jingdu02))))<br />       (if (and sk_dimzin1 (= (type sk_dimzin1) 'INT))(progn (set_tile "sk_dimzin1" (itoa sk_dimzin1))(if(= sk_dimzin1 1)(setvar 'dimzin 8)(setvar 'dimzin 0))))      <br />       (if cd(set_Tile "sk_total_l" (if (= (get_Tile "sk_radio1") "1")(rtos (* cd 0.001) 2 jingdu01)(rtos cd 2 jingdu01))))<br />       (if aa(set_Tile "sk_total_a" (if (= (get_Tile "sk_radio3") "1")(rtos (* aa 0.000001) 2 jingdu02)(rtos aa 2 jingdu02))))<br />     (Action_Tile "sk_copy1" "(sk_SetClipboard (get_Tile \"sk_total_l\"))<br />     (if (setq str (sk_GetClipboard))(set_Tile \"sk_paste1\" str))")<br />     (Action_Tile "sk_copy2" "(sk_SetClipboard (get_Tile \"sk_total_a\"))<br />     (if (setq str (sk_GetClipboard))(set_Tile \"sk_paste1\" str))")<br />       (Action_Tile "sk_jingdu1" "(setq jingdu01 (1+ (atoi(get_tile \"sk_jingdu1\" )))) (set_Tile \"sk_total_l\" (if (= (get_Tile \"sk_radio1\") \"1\")(rtos (* cd 0.001) 2 jingdu01)(rtos cd 2 jingdu01)))")<br />       (Action_Tile "sk_jingdu2" "(setq jingdu02 (1+ (atoi(get_tile \"sk_jingdu2\" )))) (set_Tile \"sk_total_a\" (if (= (get_Tile \"sk_radio3\") \"1\")(rtos (* aa 0.000001) 2 jingdu02)(rtos aa 2 jingdu02)))")<br />       (Action_Tile "sk_radio1" "(set_Tile \"sk_total_l\" (rtos (* cd 0.001) 2 jingdu01))")<br />       (Action_Tile "sk_radio2" "(set_Tile \"sk_total_l\" (rtos cd 2 jingdu01))")<br />       (Action_Tile "sk_radio3" "(set_Tile \"sk_total_a\" (rtos (* aa 0.000001) 2 jingdu02))")<br />       (Action_Tile "sk_radio4" "(set_Tile \"sk_total_a\" (rtos aa 2 jingdu02))")<br />       (Action_Tile "sk_dimzin1" "(setq sk_dimzin1 (atoi (get_tile \"sk_dimzin1\" )))(if(= sk_dimzin1 1)(setvar 'dimzin 8)(setvar 'dimzin 0))<br />       (set_Tile \"sk_total_l\" (if (= (get_Tile \"sk_radio1\") \"1\")(rtos (* cd 0.001) 2 jingdu01)(rtos cd 2 jingdu01)))<br />       (set_Tile \"sk_total_a\" (if (= (get_Tile \"sk_radio3\") \"1\")(rtos (* aa 0.000001) 2 jingdu02)(rtos aa 2 jingdu02)))      <br />       ")<br />     (setq chk (start_dialog))<br />   ))<br />   (unload_dialog dcl_id)  <br />       )<br />     )<br />   (and bak_dimzin(setvar 'dimzin bak_dimzin))<br />   (princ)<br />   )

669423907

edata 发表于 2018-1-12 11:28

非常感谢E大

xiao88gang

edata 发表于 2018-1-12 11:28

能改为这样的对话框吗？