[求助]

ding9736

请问在一条多义线上，已知一个点的座标，如何去找这条多义线上这个已知点附近的点的座标呢

xyp1964

2. (defun c:test ()
3.      ;(CMDLA0)
4.   (setq s1 (entsel "\n选择多义线 : ")
5. pt (cadr s1)
6. e  (car s1)
7.   )
8.   (entdel e)
9.   (setvar "APERTURE" 50)
10.   (setq pt1 (osnap pt "near"))
11.   (entdel e)
12.   (setvar "APERTURE" 5)
13.      ;(x_zb pt1)
14.   pt1
15.      ;(CMDLA1)
16. )

(defun c:test ()      ;(CMDLA0)   (setq s1 (entsel "\n选择多义线 : ") pt (cadr s1) e  (car s1)   )   (entdel e)   (setvar "APERTURE" 50)   (setq pt1 (osnap pt "near"))   (entdel e)   (setvar "APERTURE" 5)      ;(x_zb pt1)   pt1      ;(CMDLA1) )