找到原因了,自问自答吧,不好意思了。
还是acad的问题,当第二条pline不在屏幕内时就出错。可以把原语句改为:
(command "pline" pt3 pt4 "a" "r" r pt5 "l" pt6 "a" "r" r pt7 "l" pt8 "") (setq en0 (entlast)) (command "pline" pt3 "a" "r" r1 pt2 "l" pt1 pt0 pt11 pt10 pt9 "a" "r" r1 pt8 "")
(setq en1 (entlast))
(command "pedit" en1 "j" en0 "" "") |