在多段线上增加一端点(自己DIY)点是否在线上的判断(已更新，请nonsmall指导，感谢！

wchaop

在多段线上增加一端点(自己DIY)点是否在线上的判断(已更新，请nonsmall指导，感谢！)[br]

(defun c:cfg
       (/ ent pt ents i n npt item item1 item2 item3 item4 x y x1 y1 x2 y2 lstNew)
  (setq ent (entsel "\n选择一条多段线:"))

  (while (setq point (getpoint "\n在线上选择添加端点的位置:"))
    (setq ents (entget (car ent)))
    (setq i  0
   npt  0
   n  (length ents)
   lstNew '()
    )
    (while
      (< i n)
       (setq item (nth i ents))
       (setq lstNew (append lstNew (list item)))
       (if (= (car item) 10)
  (if (setq item4 (nth (+ i 4) ents))
    (progn
      (setq x  (car point)
     y  (cadr point)
     X1 (cadr item)
     y1 (caddr item)
     x2 (cadr item4)
     y2 (caddr item4)
      )
      (if
        (and
   (and (or (and (> x x1) (< x x2)) (and (< x x1) (> x x2)))
        (or (and (> y y1) (< y y2)) (and (< y y1) (> y y2)))
   ) ;点的X,Y是否在线段两端点间
   (equal (* (- x x1) (- y2 y1))
   (* (- y y1) (- x2 x1));点是否在线上(两点式直线方程)
   0.0001
   )
        )
  (setq item1  (nth (+ i 1) ents)
        item2  (nth (+ i 2) ents)
        item3  (nth (+ i 3) ents)
        lstNew (append lstNew (list item1))
        lstNew (append lstNew (list item2))
        lstNew (append lstNew (list item3))
        lstNew (append lstNew
         (list (list 10 (car point) (cadr point)))
        )
  );增加点的坐标
      )
    )
  )
       )
       (setq i (1+ i))
    )
    (entmod lstNew);重生成多段线
  )
  (princ)
)

wchaop

请高手指点：点是否在直线上是否有更好的方法？是否可以通过inters实现？

nonsmall

返回曲线上离指定点最近的点（在 WCS 上）

(vlax-curve-getClosestPointTo curve-obj givenPnt [extend])

若返回点和你给定的点重合说明该点在多线上

wchaop

高手！你好。这是VISUAL LISP吧，在语句怎么VISUAL LISP编辑器里怎么不识别呢？求高手指点！

wchaop

(vl-load-com)才能加载VISUAL LISP!太菜了！！！！！！！！！！！！！！！！！1

wchaop

(vlax-curve-getClosestPointTo curve-obj givenPnt [extend])是可以判断是否在线上，但是在多段线哪两个点间无法确定。好像不好解决！

nonsmall

请把vlax-curve函数多看几遍

多线上任一点到起点距离可求

此点到起点距离已知

怎么判断在哪两个点之间就不用多说了吧？

wchaop

感谢nonsmall 高手！

再帮我看看这个新程序为什么还有时不能正确增加端点?

(defun c:cfg
      (/      ents   ployobj  ploy_z  pt pt1  pt2 i      n
       L      L1     L2    lstNew item  item1 item2  item3
       item4
      )
  (vl-load-com)
  (setq ent (car (entsel "\n选择一条多段线:")))
  (setq ployobj (vlax-ename->vla-object ent)) 
  (while (setq pt (getpoint "\n在线上选择添加端点的位置:"))   
    (if ( equal (vlax-curve-getClosestPointTo ployobj pt) pt )
      (progn
 (setq i      0
       ents (entget ent)
              ploy_z (cdr (assoc 38 ents))
       n      (length ents)
       lstNew '()
       L      (vlax-curve-getDistAtPoint ployobj pt)
 )
 (while
   (< i n)
    (setq item (nth i ents))
    (setq lstNew (append lstNew (list item)))
    (if (= (car item) 10)
      (if
        (and (setq item4 (nth (+ i 4) ents)) (= (car item4) 10))
  (Progn
    (setq pt1 (list (cadr item) (caddr item) ploy_z)
   pt2 (list (cadr item4) (caddr item4) ploy_z)
   L1  (vlax-curve-getDistAtPoint ployobj pt1)
   L2  (vlax-curve-getDistAtPoint ployobj pt2)
    )
    (if (and (> L L1) (< L L2))
      (setq item1  (nth (+ i 1) ents)
     item2  (nth (+ i 2) ents)
     item3  (nth (+ i 3) ents)
     lstNew (append lstNew (list item1))
     lstNew (append lstNew (list item2))
     lstNew (append lstNew (list item3))
     lstNew (append lstNew
      (list (list 10 (car pt) (cadr pt)))
     )
      )   ;增加点的坐标
    )
  )
      )
    )
    (setq i (1+ i))
 )
 (entmod lstNew)   ;重生成多段线
      )
    )
  )
  (princ)
)

nonsmall

惭愧 高手还算不上

我手上没有CAD 暂不能帮你看了