多线段顶点调整，程序出现“参数类型错误: 二维/三维点: 2”，怎么回事？
(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)))
(setqpa (vlax-curve-getClosestPointTo ent pp)
)
(command "_.stretch" "c" "non" pa "non" pa "" "non" pa)
) (defun c:tt ()
(while (setq ent (entsel "\n多线段顶点拉伸<退出>: "))
(setq pt (osnap (cadr ent) "end"))
(command "_.stretch" "c" pt pt "" pt pause)
)
(princ)
)
{:7_488:}厉害，谢谢了
页:
[1]