hanyu_gis 发表于 2008-4-10 14:26:00

怎么计算填充图案的面积？

<p>怎么计算填充图案的面积？</p><p>在CAD中怎么用LISP提取图案的面积呢？</p><p>在线等！</p>

carrot1983 发表于 2008-4-10 17:01:00

<p>(defun c:tt ()<br/>&nbsp; (command "._AREA" "O" (car (entsel)))<br/>&nbsp; (princ (getvar "AREA"))<br/>)<br/></p>

无痕 发表于 2008-4-10 18:47:00

(vlax-get (vlax-ename-&gt;vla-object (car (entsel))) 'area)<br/>

hanyu_gis 发表于 2008-4-11 09:27:00

无痕发表于2008-4-10 18:47:00static/image/common/back.gif(vlax-get (vlax-ename-&gt;vla-object (car (entsel))) 'area)

<p></p><p>为何用vlx-get-area不行呢？</p><p>再顺便问下，</p><p>填充的图案可以转成面域吗？</p>

hanyu_gis 发表于 2008-4-11 09:28:00

carrot1983发表于2008-4-10 17:01:00static/image/common/back.gif(defun c:tt ()&nbsp; (command \"._AREA\" \"O\" (car (entsel)))&nbsp; (princ (getvar \"AREA\")))

<p>这个是不行的。在CAD2005中，</p><p>2006中应该可以吧。呵呵。</p>

hanyu_gis 发表于 2008-4-11 09:30:00

无痕发表于2008-4-10 18:47:00static/image/common/back.gif(vlax-get (vlax-ename-&gt;vla-object (car (entsel))) 'area)

<p>命令: (vlax-get (vlax-ename-&gt;vla-object (car (entsel))) 'area)</p><p>选择对象: ; 错误: ActiveX 服务器返回错误: 未知名称: "AREA"<br/>为何这样提示啊？用vla-get-area也是这样提示，晕了。</p>

ZZXXQQ 发表于 2008-4-11 19:08:00

(vl-load-com)先

danxingpen 发表于 2008-4-12 16:05:00

填充图案没有面积属性的当然不能直接获得了~~~,<br/>获得填充图案各个顶点再计算吧~<br/>

无痕 发表于 2008-4-12 20:39:00

danxingpen发表于2008-4-12 16:05:00static/image/common/back.gif填充图案没有面积属性的当然不能直接获得了~~~,获得填充图案各个顶点再计算吧~

<p></p><p>cad2006版本是可以的（估计≥2006版也可以），2004以下版本未测试。</p><p>帮助没有说的，不一定就没有。</p><p>命令: (vlax-get (vlax-ename-&gt;vla-object(setq a(car(entsel)))) 'area)</p><p>选择对象: 10131.8</p><p>命令: (entget a)<br/>((-1 . &lt;图元名: 7ef712f8&gt;) (0 . "HATCH") (330 . &lt;图元名: 7ef6fc10&gt;) (5 . "18F") <br/>(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbHatch") (10 <br/>0.0 0.0 0.0) (210 0.0 0.0 1.0) (2 . "ANGLE") (70 . 0) (71 . 1) (91 . 1) (92 . <br/>7) (72 . 1) (73 . 1) (93 . 6) (10 33387.1 17585.0 0.0) (42 . 0.0) (10 33254.9 <br/>17585.0 0.0) (42 . 0.0) (10 33254.9 17493.7 0.0) (42 . 0.0) (10 33343.0 17493.7 <br/>0.0) (42 . -0.028336) (10 33342.7 17499.4 0.0) (42 . -0.381387) (10 33387.1 <br/>17549.1 0.0) (42 . 0.0) (97 . 2) (330 . &lt;图元名: 7ef712e8&gt;) (330 . &lt;图元名: <br/>7ef712f0&gt;) (75 . 0) (76 . 1) (52 . 0.0) (41 . 1.0) (77 . 0) (78 . 2) (53 . 0.0) <br/>(43 . 33168.7) (44 . 17380.3) (45 . 0.0) (46 . 6.985) (79 . 2) (49 . 5.08) (49 <br/>. -1.905) (53 . 1.5708) (43 . 33168.7) (44 . 17380.3) (45 . -6.985) (46 . <br/>4.27694e-016) (79 . 2) (49 . 5.08) (49 . -1.905) (47 . 0.377382) (98 . 1) (10 <br/>33340.3 17561.3 0.0))</p>

danxingpen 发表于 2008-4-14 10:28:00

看来还是升级版本的好啊!都08年了,用老古董却是是落后.
页: [1] 2
查看完整版本: 怎么计算填充图案的面积？