asdfxx
发表于 2009-8-31 12:31:00
liminnet
发表于 2009-8-31 14:14:00
nonsmall
发表于 2009-8-31 14:34:00
<p>liminnet你这帮人法还不如不帮</p><p>为了简单的2句话还得求你要个加密的函数库？</p><p>当初大家是怎么教你的？</p><p>前人种树后人乘凉，别扛着树就走了……</p><p>==================================</p><p>;修改多线段定点坐标函数</p><p>;writen by nonsmall 2009</p><p>(defun ModifyPlinePoint(PointNum)<br/> (vl-load-com)<br/> (setq pts (Vlax-Get (Vlax-Ename->Vla-Object (setq pl (car (entsel "请选择多线段")))) 'Coordinates ))<br/> (entmod (subst (cons 10 (getpoint (setq oldpt (list (nth (* pointnum 2) pts) (nth (1+ (* pointnum 2)) pts))) "请选择新点")) (cons 10 oldpt) (entget pl)))<br/>)<br/>;测试 修改第1个点<br/>(ModifyPlinePoint 0)<br/>;测试 修改第2个点<br/>(ModifyPlinePoint 1)</p>
liminnet
发表于 2009-8-31 15:00:00
liminnet
发表于 2009-8-31 15:03:00
liminnet
发表于 2009-8-31 15:16:00
页:
[1]