[求助]版主帮忙调试一小段代码，谢谢！
<p><strong><font face="Verdana" color="#da2549">;;下面是从教科书上抄写的，调试未通过；版主可以帮忙调试一下吗，谢谢！！</font></strong></p><p><strong><font face="Verdana" color="#da2549">(setq p1(getpoint"input p1:"))<br/>(setq p2(getpoint"input p1:"))<br/>(setq p3(getpoint"input p1:"))<br/>(setq p4(getpoint"input p1:"))<br/>(setq p5(getpoint"input p1:"))<br/>(setq p6(getpoint"input p1:"))<br/>(command "pline" p1 p2 p3 p4 p5 p6 "c")<br/>(setq e(entlast))<br/>(setq n(getint"Num of edit poit(1---6)"))<br/>(repeat n<br/> (setq e(entnext e))<br/> )<br/>(setq m(entget e))<br/>(setq pt(getpoint"input new point value:"))<br/>(setq m(subst(cons 10 pt)(assoc 10 m)m))<br/>(entmod m)<br/>(entupd e)<br/>(setq p1(getpoint "input p1:"))</font></strong></p> <p>这段代码适合早期的AutoCAD版本，因为早期版本的PLINE命令创建的对象是POLYLINE，而高版本的AutoCAD缺省状态下创建的是LWPOLYLINE。</p><p>修改方法：在代码前面加上：</p><p>(setvar "PLINETYPE" 0)</p> <p>谢谢版主！</p>
页:
[1]