vlisp难题!!!!!!!!

叶文军

如图中所示，1，2两个区域是由多条复合线围成的，现在想要写一个程序，实现分别用一条闭合的复合线围出1，2域的边线，这样一来，我们就可以用面积标注程序对其进行自动标注了。介意看一下CAD中的填充程序，它可以用鼠标点击的形式来识别边界的，有人能写出来的话请联系我好吗？我的QQ76908501，我的EMAI：ywj_82@163.com。谢谢！

精灵王

(defun c:MJ (/ A P P1 oldcmdecho )
(setq A 0.0 P 0.0 )
(setq oldcmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(if (setq p1 (getpoint "\n选择闭合区域内任意一点"))
(progn
(command "boundary" p1 "" ) ;;;需要设置是生成面域还是多义线,可以生成孤岛两个面域，判定两个面域可以解决孤岛问题。用massprop 获得形心。
(command "._area" "_O" "L")
(setq A (getvar "area"))
(setq P (getvar "Perimeter"))
)
)
(princ "\n块面积 = ")(princ A)
(princ " 块周长 = ")(princ P)
(command "erase" "L" "")
(setvar "cmdecho" oldcmdecho)
(princ)
)

叶文军

用CAD打开图形

alin

再本坛搜索“面积”

梁旭武

以前编过这个程序了，你仔细找一下就得了。

xyp1964

看偶的：封闭域面积标注程序！
dispbbs.asp?BoardID=2&ID=24021 －－－－－－－－－－－－－－－－－－－－－－－－－ 使用中有问题请回复！

叶文军

谢谢大家的帮助!