求大侠帮忙完善程序

吴琦

小弟有一个增加多段线顶点的程序，求大侠帮忙增加出错函数，并能够在自定义坐标下使用，不胜感激

2. ;增加多段线顶点
   
3. (defun c:jdd(/ e pt)
   
4. (setq e (entsel "\n选择多段线"))
   
5. (setq pt (getpoint))
   
6. (ls-addver (car e) (cadr e) pt)
   
7.   (princ)
   
8.   )
   
9. ;25.a增加多段线顶点
   
10. (defun ls-ADDVER (ENAME P pn / obj pp n newv)
    
11. (if pn
    
12. (progn
    
13. (setq OBJ (vlax-ename->vla-object ENAME)
    
14. PP (vlax-curve-getclosestpointto OBJ (trans P 1 0))
    
15. N (fix (vlax-curve-getparamatpoint OBJ PP))
    
16. PN (list (car PN) (cadr PN))
    
17. NEWV (vlax-safearray-fill
    
18.   (vlax-make-safearray vlax-vbdouble '(0 . 1))
    
19.   PN
    
20.   )
    
21. )
    
22. (vla-addvertex OBJ (1+ N) NEWV)
    
23. )
    
24.   )
    
25. )

;增加多段线顶点<br /> (defun c:jdd(/ e pt)<br /> (setq e (entsel "\n选择多段线"))<br /> (setq pt (getpoint))<br /> (ls-addver (car e) (cadr e) pt)<br />   (princ)<br />   )<br /> ;25.a增加多段线顶点<br /> (defun ls-ADDVER (ENAME P pn / obj pp n newv)<br /> (if pn<br /> (progn<br /> (setq OBJ (vlax-ename->vla-object ENAME)<br /> PP (vlax-curve-getclosestpointto OBJ (trans P 1 0))<br /> N (fix (vlax-curve-getparamatpoint OBJ PP))<br /> PN (list (car PN) (cadr PN))<br /> NEWV (vlax-safearray-fill<br />   (vlax-make-safearray vlax-vbdouble '(0 . 1))<br />   PN<br />   )<br /> )<br /> (vla-addvertex OBJ (1+ N) NEWV)<br /> )<br />   )<br /> )