[讨论]：AutoCAD中量算面积

fajulian

本人觉得AutoCAD中量算面积时，不易找准所量区域，此工具需要改进。

lixuedong

求取房间面积新方法。
经常有要求取房间面积，需要一点一点的围，多了，就很烦。
但如果规定一个原则，按顺时针逐个选取线段后，求出交点，得出房间面积。
如果有一段没有线选择时，可输入一个切换键，直接画一条线来替代。

方法很苯一点，但应该很有效。

当然，对弧线还是单独求面积。

(VL-LOAD-COM)
(setq AcadObject (vlax-get-acad-object))
(setq AcadDocument (vla-get-ActiveDocument Acadobject))
(setq mSpace (vla-get-ModelSpace Acaddocument)) ;_获得模型空间指针
(defun c:mj (/ lineObjNames lay-name lyspt1
i p1 p2 linePointCol
P3 p4 p tmpEnt lineObjNames
) ;_主函数
(while (null lay-name)
(prompt "\n顺时针选择面积边线(选一次回车):")
(setq lay-name (ssget '((0 . "LINE"))))
)
(setq lay-name (ssname lay-name 0))
(setq p3 (vlax-curve-getStartPoint lay-name))
(setq p4 (vlax-curve-getEndPoint lay-name))
(setq pa p3
pb p4
)
(setq pi1 nul
pi2 nul
)
(vl-cmdf "_.PLINE")
(while lay-name
(setq p1 p3
p2 p4
)
(setq p3 nul
p4 nul
)
(prompt "\n选择面积边线下一条(选一次回车):")
(setq lay-name (ssget '((0 . "LINE"))))
(if (null lay-name)
(progn
(setq p3 (getpoint "\n起点(回车结束):"))
(if p3
(setq p4 (getpoint p3 "\n终点: "))
)
(if (and p3 p4)
(setq lay-name T)
)
)
(progn
(setq lay-name (ssname lay-name 0))
(setq p3 (vlax-curve-getStartPoint lay-name))
(setq p4 (vlax-curve-getEndPoint lay-name))
)
)
(if (and p3 p4)
(setq pi1 (inters p1 p2 p3 p4 nil))
)
(if pi1
(progn
(vl-cmdf Pi1)
(setq pi2 pi1
pi1 nul
)
)
)

)
(if (and p1 p2)
(setq pi1 (inters pa pb p1 p2 nil))
)
(if pi1
(vl-cmdf pi1 "C")
(vl-cmdf "C")
)
(vl-cmdf "_.AREA" "O" "L")
(setq pl_mj_jg (/ (getvar "AREA") 1000000))
(princ "面积:")
(princ pl_mj_jg)
(princ)
)

fjs0515

算出来得不对

kll1008

哪个算面积的能用啊~


期待~~

zml84

这个问题的根本是寻求封闭边界。
若边界是直线、圆弧或多段线之类，可以以一下思路进行分析：
[PHP]任选一个起点，规定一个正方向，向前探索并建立链路表；
直至回到起点，则范围确定；
若到达线段端点，则将链路回溯，即删除分支；
当某一节点下分支全部删除时，则向上删除该节点所在的分支；
若回溯至链路表为空时，则表示图形本身不是闭合的。
[/PHP]

yuleihz888

好象要先编辑为面域才能求面积的吧？

wcn_sheng

有没有直接标注面积出来的程序啊,发一个喂