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

hanyu_gis

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

在CAD中怎么用LISP提取图案的面积呢？

在线等！

carrot1983

(defun c:tt ()
  (command "._AREA" "O" (car (entsel)))
  (princ (getvar "AREA"))
)

无痕

(vlax-get (vlax-ename->vla-object (car (entsel))) 'area)

hanyu_gis

无痕发表于2008-4-10 18:47:00(vlax-get (vlax-ename->vla-object (car (entsel))) 'area)

为何用vlx-get-area不行呢？

再顺便问下，

填充的图案可以转成面域吗？

hanyu_gis

carrot1983发表于2008-4-10 17:01:00(defun c:tt ()  (command \"._AREA\" \"O\" (car (entsel)))  (princ (getvar \"AREA\")))

这个是不行的。在CAD2005中，

2006中应该可以吧。呵呵。

hanyu_gis

无痕发表于2008-4-10 18:47:00(vlax-get (vlax-ename->vla-object (car (entsel))) 'area)

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

选择对象: ; 错误: ActiveX 服务器返回错误: 未知名称: "AREA"
为何这样提示啊？用vla-get-area也是这样提示，晕了。

ZZXXQQ

(vl-load-com)先

danxingpen

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

无痕

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 . <图元名: 7ef712f8>) (0 . "HATCH") (330 . <图元名: 7ef6fc10>) (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 . <图元名: 7ef712e8>) (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))

danxingpen

看来还是升级版本的好啊!都08年了,用老古董却是是落后.