aozero 发表于 2007-1-29 16:55:00

面积查询单位是平方米？

<p>请问：在CAD图中，单位设置的是毫米，查询出来的面积是平方毫米，能有工具查询出来的面积是平方米吗？（因为面积太大，自己都搞求清楚几位了）</p><p>谢谢！</p>

phoenixdjq 发表于 2007-1-29 18:54:00

<p>声名:这个程序不是本人所做</p><p></p><p><br/>(Defun c:SAREA ()<br/>&nbsp; (Setvar "Cmdecho" 0)<br/>&nbsp; (Setq A (Entsel "请选择封闭实体: "))<br/>&nbsp; (If<br/>&nbsp;&nbsp;&nbsp; A<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (Progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (Setq B (Entget (Car A)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (OR (="LWPOLYLINE"(Cdr(Assoc 0 B))) (="CIRCLE"(Cdr(Assoc 0 B))) )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (Progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "area" "E" A)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ AREAm (/ (getvar "area") 1000000))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (Setq A1 (Rtos AREAm (Getvar "Lunits") 3) )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq txthgt (* (getvar "dimscale") 5) )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "选择文字的位置: ")<br/>;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "text" pause txthgt "" (Strcat "AREA=" a1 " sq m"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "text" pause txthgt "" a1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (Princ "\nSelected entity is neither a CIRCLE nor a POLYLINE")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (Princ "\nNo entity found at that location")<br/>&nbsp; )<br/>&nbsp; (Princ)<br/>)</p><p></p>

aozero 发表于 2007-1-30 09:33:00

<p>谢谢！！！</p><p>我想请问一下怎么运行这个程序</p>

lxg 发表于 2007-1-30 09:54:00

<p>没有可能吧?</p>

aozero 发表于 2007-1-30 10:00:00

<p>我拷贝到LSP中，命名MIANJI.LSP,加载了MIANJI.LSP,在命令栏里打MIANJI,提示错误,请高手指点迷津.</p><p>谢谢!!!</p>

aozero 发表于 2007-1-30 10:10:00

<p>不知道怎么做呀</p>

aozero 发表于 2007-1-30 10:36:00

<p>另外,长度怎么直接测量米呢?</p><p>谢谢!</p><p>(生命不息,疑问不止)</p>

aozero 发表于 2007-1-30 11:55:00

<p>可以在命令栏显示出来吗？</p><p>谢谢！！！</p>

lzu1797 发表于 2007-1-30 14:09:00

<p>2006版以後可用FIELD看看</p><p>可以滿足你的需要</p><p></p>

aozero 发表于 2007-1-30 14:56:00

<p>谢谢！！！</p><p>我的是2004版，郁闷。</p>
页: [1] 2 3
查看完整版本: 面积查询单位是平方米？