jiangfei9393 发表于 2012-5-13 08:49:30

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

(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 发表于 2012-5-13 09:19:45

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

byghbcx 发表于 2012-5-13 09:36:26

添加顶点,CAD中pedit中早就有这个功能了
页: [1]
查看完整版本: 请问大侠们这个函数是干嘛用