[编程申请]：面积,还是面积

黑心萝卜

　　ＣＡＤ中默认的面积总是平方毫米，而常用的却总是平方米，所以ＣＡＤ本身中两个面积命令很不好用（area和list（闭合pline的面积）），因为都是平方毫米，所以每次读数时非常费力，常常要用鼠标去数上６个数位，非常的费时间，也很费眼神，请高手编一个这两个命令的增强显示，把面积的单位变成平方米就可，谢谢！

bqzs1970

好建议

lsjjm

最初由 黑心萝卜 发布
[B]　　ＣＡＤ中默认的面积总是平方毫米.. [/B]

不会吧? AutoCAD的单位只是个"画图"单位!

movie2003

对呀，不存在单位的问题啊

wb0815

就算是存在，你不会在程序中提取一下前几位数字，进行换算一下就可以了呀。

黑心萝卜

最初由 lsjjm 发布
[B]

不会吧? AutoCAD的单位只是个"画图"单位! [/B]

知道,但是对于大多数图来说(我绘建筑),都是以毫米为单位的,而面积一般很少用平方毫米来表示

f5612140

試試這個程序如何

2. 
   
3. (defun c:aarea( )
   
4. 
   
5.        (setvar "blipmode" 0)
   
6.        (setvar "cmdecho" 0)
   
7.        (setq aread nil)
   
8.        (setq dfc1 (getvar "dimlfac"))
   
9.        (if (= sca nil)(setq sca 100))
   
10.        (setq sca1 sca)
    
11.        (if (= txth1 nil)(setq txth1 (getvar "textsize")))
    
12.        (setq txth2 (getvar "textsize"))
    
13.        (setq cly (getvar "clayer"))
    
14.        (command "layer" "m" "OUT-1" "c" 8 "OUT-1" "")
    
15.        (command "layer" "s" cly "")
    
16. 
    
17.        (setq en (entsel "\nSelect object cal area"))
    
18.               (setq ensel en)
    
19.               (setq endata (entget (car en)))
    
20.               (setq stype (cdr (assoc 0 endata)))
    
21.               (command "area" "o" en)
    
22.               (command "chprop" en "" "c" "2" "")
    
23.               (setq aread (getvar "area"))
    
24.               (setq aread (* aread dfc1 dfc1))
    
25.               (setq aread1 (/ aread sca1 sca1))
    
26.               (setq aread (rtos (/ aread sca1 sca1) 2 2))
    
27. 
    
28.    (dcl_area)
    
29.    
    
30.    (command "layer" "s" cly "")
    
31. (prin1)
    
32. )
    
33. 
    
34. (prin1)
    
35. 
    
36. 
    
37. (defun dcl_area()
    
38. 
    
39.     (setq dcl_id (load_dialog "aarea"))
    
40.     (new_dialog "aarea" dcl_id)
    
41. 
    
42.     (set_tile "stype" stype)
    
43.     (set_tile "aread" aread)
    
44.     (set_tile "txth" (rtos txth1))
    
45.     (set_tile "dfc" (rtos dfc1))
    
46.     (set_tile "sca" (rtos sca1))
    
47.     (setq defkey "type2")
    
48.     (set_tile defkey "2")
    
49.     (setq layset (get_attr defkey "label"))
    
50.    
    
51.     (action_tile "type1" "(setq layset (get_attr $key "label"))")
    
52.     (action_tile "type2" "(setq layset (get_attr $key "label"))")
    
53. 
    
54.    (action_tile "ins_ok" "(ok_area)(done_dialog 1)")
    
55.    (setq dd(start_dialog))
    
56.      (if (= dd 1)
    
57.          (progn
    
58.              (setq pt (getpoint "\ninsert point :"))
    
59.              (setq aread (* (/ aread1 dfc1 dfc1) dfc dfc))
    
60.              (setq aread (* (/ aread sca sca) sca1 sca1))
    
61.              (setq aread (rtos aread 2 2))
    
62.              (command "text" "m" pt txth1 0 aread)
    
63.        (if (= layset "OUT-1")
    
64.            (progn
    
65.             (command "chprop" "L" "" "la" "OUT-1" "")
    
66.             (command "chprop" en "" "la" "OUT-1" "")
    
67.            )
    
68.        )
    
69.              (setvar "textsize" txth2)
    
70.          )
    
71.      )
    
72. 
    
73.               (command "chprop" en "" "c" "bylayer" "")
    
74. 
    
75. )
    
76. (defun ok_area()
    
77. 
    
78.     (setq txth1 (atof (get_tile "txth")))
    
79.     (setq dfc (atof (get_tile "dfc")))
    
80.     (setvar "dimlfac" dfc)
    
81.     (setq sca (atof (get_tile "sca")))
    
82. 
    
83. )
    
84. (prin1)
    
85. 
    
86. aarea:dialog{
    
87.   label="計算長度";
    
88.   :concatenation {
    
89.      :text_part {label="選到";}
    
90.       :text {width=12;key="stype";}
    
91.   }
    
92.   :concatenation {
    
93.       :text_part {label="面積";}
    
94.       :text {width=12;key="aread";}
    
95.    }
    
96. // spacer_1;
    
97.   :edit_box{
    
98.       label="textsize";
    
99.       key= "txth";
    
100.       edit_width=8;
     
101.       edit_limit=8;
     
102.       fixed_width=true;
     
103.   }
     
104. // spacer_1;
     
105.   :edit_box{
     
106.       label="dimlfac ";
     
107.       key= "dfc";
     
108.       edit_width=8;
     
109.       edit_limit=8;
     
110.       fixed_width=true;
     
111.   }
     
112. // spacer_1;
     
113.   :edit_box{
     
114.       label="scale 1/";
     
115.       key= "sca";
     
116.       edit_width=8;
     
117.       edit_limit=8;
     
118.       fixed_width=true;
     
119.   }
     
120. 
     
121.   :boxed_radio_row{
     
122.       label="layer";
     
123.       :radio_button{label="bylayer";key="type2";}
     
124.       :radio_button{label="OUT-1";key="type1";}
     
125.   }
     
126.    spacer_1;
     
127.   :row{
     
128.       fixed_width = true;
     
129.       alignment = centered;
     
130.      :button{
     
131.         label="插入文字";
     
132.         key="ins_ok";
     
133.         width=8;
     
134.     }
     
135.     : spacer {width = 2;}
     
136.     cancel_button;
     
137.   }
     
138. }
     

<br /> (defun c:aarea( )<br /> <br />        (setvar "blipmode" 0)<br />        (setvar "cmdecho" 0)<br />        (setq aread nil)<br />        (setq dfc1 (getvar "dimlfac"))<br />        (if (= sca nil)(setq sca 100))<br />        (setq sca1 sca)<br />        (if (= txth1 nil)(setq txth1 (getvar "textsize")))<br />        (setq txth2 (getvar "textsize"))<br />        (setq cly (getvar "clayer"))<br />        (command "layer" "m" "OUT-1" "c" 8 "OUT-1" "")<br />        (command "layer" "s" cly "")<br /> <br />        (setq en (entsel "\nSelect object cal area"))<br />               (setq ensel en)<br />               (setq endata (entget (car en)))<br />               (setq stype (cdr (assoc 0 endata)))<br />               (command "area" "o" en)<br />               (command "chprop" en "" "c" "2" "")<br />               (setq aread (getvar "area"))<br />               (setq aread (* aread dfc1 dfc1))<br />               (setq aread1 (/ aread sca1 sca1))<br />               (setq aread (rtos (/ aread sca1 sca1) 2 2))<br /> <br />    (dcl_area)<br />    <br />    (command "layer" "s" cly "")<br /> (prin1)<br /> )<br /> <br /> (prin1)<br /> <br /> <br /> (defun dcl_area()<br /> <br />     (setq dcl_id (load_dialog "aarea"))<br />     (new_dialog "aarea" dcl_id)<br /> <br />     (set_tile "stype" stype)<br />     (set_tile "aread" aread)<br />     (set_tile "txth" (rtos txth1))<br />     (set_tile "dfc" (rtos dfc1))<br />     (set_tile "sca" (rtos sca1))<br />     (setq defkey "type2")<br />     (set_tile defkey "2")<br />     (setq layset (get_attr defkey "label"))<br />    <br />     (action_tile "type1" "(setq layset (get_attr $key "label"))")<br />     (action_tile "type2" "(setq layset (get_attr $key "label"))")<br /> <br />    (action_tile "ins_ok" "(ok_area)(done_dialog 1)")<br />    (setq dd(start_dialog))<br />      (if (= dd 1)<br />          (progn<br />              (setq pt (getpoint "\ninsert point :"))<br />              (setq aread (* (/ aread1 dfc1 dfc1) dfc dfc))<br />              (setq aread (* (/ aread sca sca) sca1 sca1))<br />              (setq aread (rtos aread 2 2))<br />              (command "text" "m" pt txth1 0 aread)<br />        (if (= layset "OUT-1")<br />            (progn<br />             (command "chprop" "L" "" "la" "OUT-1" "")<br />             (command "chprop" en "" "la" "OUT-1" "")<br />            )<br />        )<br />              (setvar "textsize" txth2)<br />          )<br />      )<br /> <br />               (command "chprop" en "" "c" "bylayer" "")<br /> <br /> )<br /> (defun ok_area()<br /> <br />     (setq txth1 (atof (get_tile "txth")))<br />     (setq dfc (atof (get_tile "dfc")))<br />     (setvar "dimlfac" dfc)<br />     (setq sca (atof (get_tile "sca")))<br /> <br /> )<br /> (prin1)<br /> <br /> aarea:dialog{<br />   label="計算長度";<br />   :concatenation {<br />      :text_part {label="選到";}<br />       :text {width=12;key="stype";}<br />   }<br />   :concatenation {<br />       :text_part {label="面積";}<br />       :text {width=12;key="aread";}<br />    }<br /> // spacer_1;<br />   :edit_box{<br />       label="textsize";<br />       key= "txth";<br />       edit_width=8;<br />       edit_limit=8;<br />       fixed_width=true;<br />   }<br /> // spacer_1;<br />   :edit_box{<br />       label="dimlfac ";<br />       key= "dfc";<br />       edit_width=8;<br />       edit_limit=8;<br />       fixed_width=true;<br />   }<br /> // spacer_1;<br />   :edit_box{<br />       label="scale 1/";<br />       key= "sca";<br />       edit_width=8;<br />       edit_limit=8;<br />       fixed_width=true;<br />   }<br /> <br />   :boxed_radio_row{<br />       label="layer";<br />       :radio_button{label="bylayer";key="type2";}<br />       :radio_button{label="OUT-1";key="type1";}<br />   }<br />    spacer_1;<br />   :row{<br />       fixed_width = true;<br />       alignment = centered;<br />      :button{<br />         label="插入文字";<br />         key="ins_ok";<br />         width=8;<br />     }<br />     : spacer {width = 2;}<br />     cancel_button;<br />   }<br /> }<br />



版主题示：含DCL的程序最好再编译一个VLX文件，方便不熟悉Lisp网友使用，谢谢    eachy

黑心萝卜

好东东，非常好用
现在小东下下载文件怎么都变成attchment了，害得我一阵好找

wb0815

怎么用啊我不知道如何使用dcl能指导一下吗

zxp

怎样将这个命令的快捷键设置成“AA”？

f5612140

最初由 wb0815 发布
[B]怎么用啊我不知道如何使用dcl能指导一下吗 [/B]

將程序放在工作檔支援路徑下或開啟檔案所在的資料夾下,載入程序後執行"aarea"自動出現dcl畫面

最初由 zxp发布
[B]怎样将这个命令的快捷键设置成“AA”？[/B]

在acad.pgp中增加一行
  AA,   *AAREA
開啟acad.pgp一看就知道

myfreemind

最初由 黑心萝卜 发布
[B]

知道,但是对于大多数图来说(我绘建筑),都是以毫米为单位的,而面积一般很少用平方毫米来表示 [/B]

你不能把毫米理解作米吗？1:1000的图上一毫米相当于实地一米，如果图上的面积是100平方毫米也就是实地100平方米嘛·

hrbpkf

下面这段程序是我从网上七拼八凑来的，被我改过一些，已经用了多时了，感觉很不错！介绍一下：
1，可以计算多义线的面积，如果绘图单位是毫米，则计算结果为米，并且可以标注于图上。（当前“文字样式“高度应设置为0方可，字高及精度可在程序中调整）。命令：vv
2，可将图中多个数字相加，并标注于图中。命令：ra
3，可将图中多个数字相减，并标注于图中。命令：ea
相信楼主能用上。（如无需标注，单击鼠标右键即可）

lsjjm

最初由 zxp 发布
[B]怎样将这个命令的快捷键设置成“AA”？ [/B]

或者ET工具:Tools-Command Alias Editor.重新设置aa=aarea

fieldfield_1

确实不错