[编程申请]：提出，求取房间面积新方法，盼高手写为程序。

lixuedong

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

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

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

sky20062006

求面积，还没有好的办法，图元复杂，不好控制边线。

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)
)