叶文军 发表于 2004-8-19 16:53:00

vlisp难题!!!!!!!!

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

精灵王 发表于 2004-8-23 14:41:00

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

叶文军 发表于 2004-8-19 16:57:00

用CAD打开图形

alin 发表于 2004-8-19 17:20:00

再本坛搜索“面积”

梁旭武 发表于 2004-8-19 20:40:00

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

xyp1964 发表于 2004-8-19 22:36:00

<B>看偶的：</B><B>封闭域面积标注程序！</B><BR>



<A href="dispbbs.asp?BoardID=2&amp;ID=24021" target="_blank" >dispbbs.asp?BoardID=2&amp;ID=24021</A>











－－－－－－－－－－－－－－－－－－－－－－－－－ 使用中有问题请回复！

叶文军 发表于 2004-8-20 12:48:00

谢谢大家的帮助!
页: [1]
查看完整版本: vlisp难题!!!!!!!!