求各个多线的总长度，同时减去对应多线上直线的长度

品茗新秀

xyp1964 发表于 2014-4-22 23:22
给出算式：

给人的感觉是取得多线的长度，取得各多线的顶点，然后排序，再选择得对应的直线，取得直线的长度，然后两数相减，得差值。具体怎样，实在想不起来

zfsaaa

具体怎样，实在想不起来

xyp1964

品茗新秀 发表于 2014-4-23 01:04
给人的感觉是取得多线的长度，取得各多线的顶点，然后排序，再选择得对应的直线，取得直线的长度，然后两 ...

2. 
   
3. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF 访问密码 2ffa
   
4. 
   
5. (defun c:tt ()
   
6.   (xyp-CMDLA0)
   
7.   (setq i -1)
   
8.   (if (setq ss (ssget '((0 . "*polyline"))))
   
9.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.       (setq ptn        (xyp-get-Vertexs s1 0)
    
11.             ptn        (cons (last ptn) ptn)
    
12.             ptn        (xyp-Ptn-Offset ptn 100 t t)
    
13.             l1        (xyp-CurveLength s1)
    
14.       )
    
15.       (if (setq ss1 (ssget "cp" ptn '((0 . "line"))))
    
16.         (progn
    
17.           (setq        lst (xyp-ss2list ss1)
    
18.                 lst (mapcar 'xyp-CurveLength lst)
    
19.                 l2  (apply '+ lst)
    
20.                 l3  (- l1 l2)
    
21.                 tx  (strcat (rtos l1 2 2) "-" (rtos l2 2 2) "=" (rtos l3 2 2))
    
22.                 s2  (xyp-Text 5 (xyp-9pt s1 5) tx)
    
23.           )
    
24.         )
    
25.       )
    
26.     )
    
27.   )
    
28.   (xyp-CMDLA1)
    
29. )

<br /> ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF 访问密码 2ffa<br /> <br /> (defun c:tt ()<br />   (xyp-CMDLA0)<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "*polyline"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq ptn        (xyp-get-Vertexs s1 0)<br />             ptn        (cons (last ptn) ptn)<br />             ptn        (xyp-Ptn-Offset ptn 100 t t)<br />             l1        (xyp-CurveLength s1)<br />       )<br />       (if (setq ss1 (ssget "cp" ptn '((0 . "line"))))<br />         (progn<br />           (setq        lst (xyp-ss2list ss1)<br />                 lst (mapcar 'xyp-CurveLength lst)<br />                 l2  (apply '+ lst)<br />                 l3  (- l1 l2)<br />                 tx  (strcat (rtos l1 2 2) "-" (rtos l2 2 2) "=" (rtos l3 2 2))<br />                 s2  (xyp-Text 5 (xyp-9pt s1 5) tx)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (xyp-CMDLA1)<br /> )

品茗新秀

顶出高手，让初学者们学习一下

Andyhon

取得各顶点值那么就可依之扫描出短线了 (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

多线段的顶点坐标不能进行排序，排序后多半不能用了
用多线段顶点表进行sset “f"选取直线，再把直线起止点不在多线段上的全部排除掉剩下的就是被多线段压盖的短直线

品茗新秀

llsheng_73 发表于 2014-4-23 18:27
多线段的顶点坐标不能进行排序，排序后多半不能用了
用多线段顶点表进行sset “f"选取直线，再把直线起止点 ...

我太菜了，还是再顶顶，争取顶出高手让初学者们学习一下

liu22737

品茗新秀 发表于 2014-4-24 11:36
我太菜了，还是再顶顶，争取顶出高手让初学者们学习一下

用vlax-curve-getClosestPointTo判断直线起点或尾点倒多线距离来确定是否在多线上

陨落

哈哈！这位楼主非常有意思，也很大方和有钱

lucas_3333

陨落 发表于 2014-4-25 11:03
哈哈！这位楼主非常有意思，也很大方和有钱

有钱就直接付人民币找别人开发哟，哪有这样的，发了61个主题都是求，G版都看不下去了，还总是自顶，当这里的高手都是他家请的员工？高手们也需要工作，也需要休息，为什么就不能耐心等待？