怎么样才能更新多段线第N个点的位置，求求啦

nonsmall

liminnet你这帮人法还不如不帮

为了简单的2句话还得求你要个加密的函数库？

当初大家是怎么教你的？

前人种树后人乘凉，别扛着树就走了……

==================================

;修改多线段定点坐标函数

;writen by nonsmall 2009

(defun ModifyPlinePoint(PointNum)
 (vl-load-com)
 (setq pts (Vlax-Get (Vlax-Ename->Vla-Object (setq pl (car (entsel "请选择多线段")))) 'Coordinates ))
 (entmod (subst (cons 10 (getpoint (setq oldpt (list (nth (* pointnum 2) pts) (nth (1+ (* pointnum 2)) pts))) "请选择新点")) (cons 10 oldpt) (entget pl)))
)
;测试 修改第1个点
(ModifyPlinePoint 0)
;测试 修改第2个点
(ModifyPlinePoint 1)