xyp1964 发表于 2014-4-22 23:22 static/image/common/back.gif
给出算式：
给人的感觉是取得多线的长度，取得各多线的顶点，然后排序，再选择得对应的直线，取得直线的长度，然后两数相减，得差值。具体怎样，实在想不起来
具体怎样，实在想不起来
品茗新秀 发表于 2014-4-23 01:04 static/image/common/back.gif
给人的感觉是取得多线的长度，取得各多线的顶点，然后排序，再选择得对应的直线，取得直线的长度，然后两 ...
;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF 访问密码 2ffa
(defun c:tt ()
(xyp-CMDLA0)
(setq i -1)
(if (setq ss (ssget '((0 . "*polyline"))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq ptn (xyp-get-Vertexs s1 0)
ptn (cons (last ptn) ptn)
ptn (xyp-Ptn-Offset ptn 100 t t)
l1 (xyp-CurveLength s1)
)
(if (setq ss1 (ssget "cp" ptn '((0 . "line"))))
(progn
(setq lst (xyp-ss2list ss1)
lst (mapcar 'xyp-CurveLength lst)
l2(apply '+ lst)
l3(- l1 l2)
tx(strcat (rtos l1 2 2) "-" (rtos l2 2 2) "=" (rtos l3 2 2))
s2(xyp-Text 5 (xyp-9pt s1 5) tx)
)
)
)
)
)
(xyp-CMDLA1)
)
顶出高手，让初学者们学习一下
取得各顶点值那么就可依之扫描出短线了 (ssget "F" ...
acet-geom-pline-point-list
or
acet-geom-object-point-list
请教：如何提取多段线的周长和面积
http://bbs.mjtd.com/thread-96592-1-1.html
如何计算所点选的所有线段长
http://bbs.mjtd.com/thread-83098-1-1.html
本帖最后由 llsheng_73 于 2014-4-23 18:29 编辑
多线段的顶点坐标不能进行排序，排序后多半不能用了
用多线段顶点表进行sset “f"选取直线，再把直线起止点不在多线段上的全部排除掉剩下的就是被多线段压盖的短直线
本帖最后由 品茗新秀 于 2014-4-24 11:37 编辑
llsheng_73 发表于 2014-4-23 18:27 static/image/common/back.gif
多线段的顶点坐标不能进行排序，排序后多半不能用了
用多线段顶点表进行sset “f"选取直线，再把直线起止点 ...
我太菜了，还是再顶顶，争取顶出高手让初学者们学习一下
品茗新秀 发表于 2014-4-24 11:36 static/image/common/back.gif
我太菜了，还是再顶顶，争取顶出高手让初学者们学习一下
用vlax-curve-getClosestPointTo判断直线起点或尾点倒多线距离来确定是否在多线上
哈哈！这位楼主非常有意思，也很大方和有钱
陨落 发表于 2014-4-25 11:03 static/image/common/back.gif
哈哈！这位楼主非常有意思，也很大方和有钱
有钱就直接付人民币找别人开发哟，哪有这样的，发了61个主题都是求，G版都看不下去了，还总是自顶，当这里的高手都是他家请的员工？高手们也需要工作，也需要休息，为什么就不能耐心等待？