选边求两点

行雲

点选多义线，求被点选段两端端点的一个函数
点选直线line，求出的不是两端端点
请教各位大神，这个函数选直线时也能求出端点，该如何改？
(defun getpts (curve p / pam)
  (setq pam (vlax-curve-getparamatpoint
       curve
       (vlax-curve-getclosestpointto curve p)
     )
  )
  (list (vlax-curve-getpointatparam curve (fix pam))
(vlax-curve-getpointatparam curve (1+ (fix pam)))
  )
)

marting

直线的参数值和多段线的定义是不一样的，你要适合直线，用IF做个分支呗，是直线，你直接求得两端点不就行了。

Lisphk

1. (defun getpts (curve p / pam)
   
2.   (if (= (cdr (assoc 0 (entget curve))) "LWPOLYLINE")
   
3.     (progn (setq pam (vlax-curve-getparamatpoint
   
4.                        curve
   
5.                        (vlax-curve-getclosestpointto curve p)
   
6.                      )
   
7.            )
   
8.            (list (vlax-curve-getpointatparam curve (fix pam))
   
9.                  (vlax-curve-getpointatparam curve (1+ (fix pam)))
   
10.            )
    
11.     )
    
12.     (progn (list (vlax-curve-getstartpoint curve)
    
13.                  (vlax-curve-getendpoint curve)
    
14.            )
    
15.     )
    
16.   )
    
17. )
    

(defun getpts (curve p / pam)<br />   (if (= (cdr (assoc 0 (entget curve))) "LWPOLYLINE")<br />     (progn (setq pam (vlax-curve-getparamatpoint<br />                        curve<br />                        (vlax-curve-getclosestpointto curve p)<br />                      )<br />            )<br />            (list (vlax-curve-getpointatparam curve (fix pam))<br />                  (vlax-curve-getpointatparam curve (1+ (fix pam)))<br />            )<br />     )<br />     (progn (list (vlax-curve-getstartpoint curve)<br />                  (vlax-curve-getendpoint curve)<br />            )<br />     )<br />   )<br /> )<br />

行雲

Lisphk 发表于 2017-9-6 17:27

谢谢你，，我试试

sicky111

这个函数不错？