请问大侠们这个函数是干嘛用

jiangfei9393

(defun ADDVERTEX (ENAME Pt / obj pp newv n)
  (if (/= (type ename) 'ENAME)
    (SETQ ENAME (HANDENT ENAME))
  )
  (setq    OBJ  (vlax-ename->vla-object ENAME)
    PP   (vlax-curve-getclosestpointto OBJ (trans Pt 1 0))
    N    (fix (vlax-curve-getparamatpoint OBJ PP))
    pt   (list (car pt) (cadr pt))
    NEWV (vlax-safearray-fill
           (vlax-make-safearray vlax-vbdouble '(0 . 1))
           pt
         )
  )
  (vla-addvertex OBJ (1+ N) NEWV)
)

vlisp2012

好像是添加顶点的，给多段线。2011以上的版本，自带这个功能。

byghbcx

添加顶点,CAD中pedit中早就有这个功能了