返回多段线拾取位置所在的“段”和该段的起点和端点

Lisphk

1. (defun XD:Segment (objPnt)
   
2.   (if (vl-consp objPnt)
   
3.     ((lambda (seg)
   
4.        (list seg
   
5.              (list (vlax-curve-getPointAtParam (car objPnt) seg)
   
6.                    (cond ((vlax-curve-getPointAtParam (car objPnt) (1+ seg)))
   
7.                          ((vlax-curve-getPointAtParam (car objPnt) (1- seg)))
   
8.                    )
   
9.              )
   
10.        )
    
11.      )
    
12.       (fix (vlax-curve-getParamAtPoint
    
13.              (car objPnt)
    
14.              (vlax-curve-getClosestPointTo (car objPnt) (trans (cadr objPnt) 1 0))
    
15.            )
    
16.       )
    
17.     )
    
18.   )
    
19. )
    

(defun XD:Segment (objPnt)<br />   (if (vl-consp objPnt)<br />     ((lambda (seg)<br />        (list seg<br />              (list (vlax-curve-getPointAtParam (car objPnt) seg)<br />                    (cond ((vlax-curve-getPointAtParam (car objPnt) (1+ seg)))<br />                          ((vlax-curve-getPointAtParam (car objPnt) (1- seg)))<br />                    )<br />              )<br />        )<br />      )<br />       (fix (vlax-curve-getParamAtPoint<br />              (car objPnt)<br />              (vlax-curve-getClosestPointTo (car objPnt) (trans (cadr objPnt) 1 0))<br />            )<br />       )<br />     )<br />   )<br /> )<br />

返回多段线拾取位置所在的“段”和该段的起点和端点

用法例子：

[it618postdisplay>0]

1. 命令: (XD:SEGMENT (ENTSEL))
   
2. 选择对象: (1 ((973.602 478.18 0.0) (1811.73 1319.06 0.0)))
   

命令: (XD:SEGMENT (ENTSEL))<br /> 选择对象: (1 ((973.602 478.18 0.0) (1811.73 1319.06 0.0)))<br />

[/it618postdisplay]

yoyoho

感谢 Lisphk 分享程序!!!!!

HLCAD

感谢楼主提供源码！

whdong76

学习下.....

柴月二号

学习学习学习学习

杜流浪人

新产品    新作品

天若有情007

不错，学习了

kqqt6236

很实用。   

凌乱一夏

返回多段线拾取位置所在的“段”和该段的起点和端点。。。。。。有图就好了

ngc

学习一下，

向嘟嘟

看看如何使用

cq_qg68

实用代码，值得借鉴。

freefor5127

VLISP返回曲线的所有顶点表

laiz3000

回复看看

lhtfhc

学习学习,谢谢楼主分享