请教高手一个问题？

雷

怎样判断线（LWPOLYLINE与SPLINE）上的任意点到终点或起点的距离？

xyp1964

2. (defun c:test ()
3.    (setq  s1   (entsel "\n选择曲线上的点 : ")
4.   e     (car s1)
5.   pt   (cadr s1)
6.   pt0 (osnap pt "near")
7.    )
8.    (setq  leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))
9.   leng1     (vlax-curve-getDistAtPoint e pt0)
10.   leng2     (- leng leng1)
11.    )
12.    (princ "\n总长 = ")
13.    (princ leng)
14.    (princ "\n分长1 = ")
15.    (princ leng1)
16.    (princ "\n分长2 = ")
17.    (princ engl2)
18.    (princ)
19. )

(defun c:test ()    (setq  s1   (entsel "\n选择曲线上的点 : ")   e     (car s1)   pt   (cadr s1)   pt0 (osnap pt "near")    )    (setq  leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))   leng1     (vlax-curve-getDistAtPoint e pt0)   leng2     (- leng leng1)    )    (princ "\n总长 = ")    (princ leng)    (princ "\n分长1 = ")    (princ leng1)    (princ "\n分长2 = ")    (princ engl2)    (princ) )

雷

再问一下，如果分长1是指定的长度怎么求出点的坐标？

xiaomihu

可以用cad的定长等分啊，然后捕捉生成的点，不就可以满足你的要求了

LONGXIN

雷发表于2005-6-20 10:02:00再问一下，如果分长1是指定的长度怎么求出点的坐标？

2. (defun c:test ()
3.    (setq  s1   (entsel "\n选择曲线 : ")
4.                    e     (vlax-ename->vla-object (car s1))
5.                    len   (getreal "\n输入长度 : ")
6.    )
7.    (setq  pt (vlax-curve-getPointAtDist　e   len))
8. )

(defun c:test ()    (setq  s1   (entsel "\n选择曲线 : ")                    e     (vlax-ename->vla-object (car s1))                    len   (getreal "\n输入长度 : ")    )    (setq  pt (vlax-curve-getPointAtDist　e   len)) )