[LISP程序]：怎样快速的在多义线上增加节点?

gzwhm

大家好！

多义线一般由多条线段或弧线组成。在工作中我常碰到在多义线的某线段上要增加节点，但这过程有点繁琐：PEDIT-->Edit vertex-->多次空格键或回车键(要起始点到目标线段）-->Insert vertex-->Esc键结束

我的想法是:键入快捷键J-->出现选择光标-->点击目标线段结束（要增加节点位置),这样就很省时间了。哪位朋友能帮帮忙写个lisp，在R14实现该功能？谢谢！

ljpnb

在2004可以实现，R14不可以
(defun c:test ()
  (setq ent (entsel "\n 选择一条多义线: "))
  (setq p0 (cadr ent))
  (setq p0 (osnap p0 "nea"))
  (setq        obj (vlax-ename->vla-object
              (car ent)
            )
  )
  (setq point (vla-get-Coordinates obj))
  (setq point1 (vlax-safearray->list (vlax-variant-value point)))
  (setq len (length point1))
  (setq p1 (list (nth 0 point1) (nth 1 point1)))
  (setq i 2 k 0)  
  (repeat (1- (/ len 2))
    (setq p2 (list (nth i point1) (nth (1+ i) point1)))
    (setq dis0 (distance p1 p2)
          dis1 (distance p1 p0)
          dis2 (distance p2 p0)
    )
    (if        (equal (+ dis1 dis2) dis0 0.00001)
      (setq n k)
    )
    (setq p1 p2)
    (setq i (+ i 2) k (1+ k))
  )
  (command "pedit" ent "e")
  (repeat n
    (command "n")      
  )
  (command "i" p0 "x" "")
)