能够直接通过entget取得封闭区域的面积值吗？

tonyabbs

请问各位大侠，能够直接通过entget取得封闭区域的面积值吗？还是只能用area命令？谢谢！
如：(setq ss (entget en))
((-1 . <图元名: 7ef94260>) (0 . "LWPOLYLINE") (330 . <图元名: 7ef92cf8>) (5 . "20C")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 1) (100 .
"AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 23678.9
20620.3) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 23688.9 20620.3) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 23688.9 20663.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
23678.9 20663.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))
好像找不到哪个码是面积值。

小龙龙

(vla-get-area obj)

牢固

(vlax-curve-getarea ent)

wowan1314

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

tonyabbs

谢谢。我问的是用原始lisp。不是用vlisp。

wowan1314

tonyabbs 发表于 2013-8-9 10:28
谢谢。我问的是用原始lisp。不是用vlisp。

entget里面没有面积值。

你可以提起entget里面的顶点坐标。 然后通过 多边形面积公式 计算出面积。

st788796

取点，用点算面积，有圆弧的单算扇形面积。
这是自找麻烦来自: Android客户端

wowan1314

st788796 发表于 2013-8-9 10:37
取点，用点算面积，有圆弧的单算扇形面积。
这是自找麻烦

条条马路通罗马。 我支持楼主。


保持思维的开放自由性。 说不定会有不一样的未来。

wowan1314

还想到个。
1、调用命令 area或list 。 然后好像有个 系统变量 存储文本窗口的 记录。
    吧这个记录调出来，找到刚才命令产生的文字。就找到面积了。

牢固

wowan1314 发表于 2013-8-9 10:46
还想到个。
1、调用命令 area或list 。 然后好像有个 系统变量 存储文本窗口的 记录。
    吧这个记录调 ...

命令 area  后用 (getvar 'area) 查询面积值！

tonyabbs

(vlax-get (vlax-ename->vla-object en)) 'Area) 懂了，谢谢！

newer

entget是求的实体数据的函数，求面积是求面积，楼主为啥要非用entget函数求面积呢？