cad面积累计lisp怎么用_怎么计算填充图案的面积？ - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

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

cad2006版本是可以的(估计≥2006版也可以)，2004以下版本未测试。

帮助没有说的，不一定就没有。

命令: (vlax-get (vlax-ename->vla-object(setq a(car(entsel)))) 'area)

选择对象: 10131.8

命令: (entget a)

((-1 . ) (0 . "HATCH") (330 . ) (5 . "18F")

(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbHatch") (10

0.0 0.0 0.0) (210 0.0 0.0 1.0) (2 . "ANGLE") (70 . 0) (71 . 1) (91 . 1) (92 .

7) (72 . 1) (73 . 1) (93 . 6) (10 33387.1 17585.0 0.0) (42 . 0.0) (10 33254.9

17585.0 0.0) (42 . 0.0) (10 33254.9 17493.7 0.0) (42 . 0.0) (10 33343.0 17493.7

0.0) (42 . -0.028336) (10 33342.7 17499.4 0.0) (42 . -0.381387) (10 33387.1

17549.1 0.0) (42 . 0.0) (97 . 2) (330 . ) (330 .

7ef712f0>) (75 . 0) (76 . 1) (52 . 0.0) (41 . 1.0) (77 . 0) (78 . 2) (53 . 0.0)

(43 . 33168.7) (44 . 17380.3) (45 . 0.0) (46 . 6.985) (79 . 2) (49 . 5.08) (49

. -1.905) (53 . 1.5708) (43 . 33168.7) (44 . 17380.3) (45 . -6.985) (46 .

4.27694e-016) (79 . 2) (49 . 5.08) (49 . -1.905) (47 . 0.377382) (98 . 1) (10

33340.3 17561.3 0.0))