[求助]版主帮忙调试一小段代码，谢谢！

mycad

;;下面是从教科书上抄写的，调试未通过；版主可以帮忙调试一下吗，谢谢！！

(setq p1(getpoint"input p1:"))
(setq p2(getpoint"input p1:"))
(setq p3(getpoint"input p1:"))
(setq p4(getpoint"input p1:"))
(setq p5(getpoint"input p1:"))
(setq p6(getpoint"input p1:"))
(command "pline" p1 p2 p3 p4 p5 p6 "c")
(setq e(entlast))
(setq n(getint"Num of edit poit(1---6)"))
(repeat n
  (setq e(entnext e))
 )
(setq m(entget e))
(setq pt(getpoint"input new point value:"))
(setq m(subst(cons 10 pt)(assoc 10 m)m))
(entmod m)
(entupd e)
(setq p1(getpoint "input p1:"))

caoyin

这段代码适合早期的AutoCAD版本，因为早期版本的PLINE命令创建的对象是POLYLINE，而高版本的AutoCAD缺省状态下创建的是LWPOLYLINE。

修改方法：在代码前面加上：

(setvar "PLINETYPE" 0)

mycad

谢谢版主！