多线段顶点调整，程序出现“参数类型错误: 二维/三维点: 2”，怎么回事？

〓桠枫〓/db

(defun c:kk (/ ent pnt pp pa )
  (setq ent (entsel "\n多线段顶点拉伸:"))
  (setq pnt (apply 'vlax-curve-getclosestpointto ent))
  (setq ent (car ent))
  (setq pp (fix (vlax-curve-getparamatpoint ent pnt)))
  (setq  pa (vlax-curve-getClosestPointTo ent pp)
  )
(command "_.stretch" "c" "non" pa "non" pa "" "non" pa)
)

xyp1964

1. (defun c:tt ()
   
2. (while (setq ent (entsel "\n多线段顶点拉伸<退出>: "))
   
3.   (setq pt (osnap (cadr ent) "end"))
   
4.   (command "_.stretch" "c" pt pt "" pt pause)
   
5. )
   
6. (princ)
   
7. )
   

(defun c:tt ()<br /> (while (setq ent (entsel "\n多线段顶点拉伸<退出>: "))<br />   (setq pt (osnap (cadr ent) "end"))<br />   (command "_.stretch" "c" pt pt "" pt pause)<br /> )<br /> (princ)<br /> )<br />

〓桠枫〓/db

{:7_488:}厉害，谢谢了