[求助]：[0206]如何处理绘製及復原的一次性

tctabc

[求助]：[0206]如何处理绘製及復原的一次性
请教各位高手们
小弟做了一个等分距离偏移的程序
但在执行程序时,绘製都是一段段的偏移
无法再画面内一次完成
且復原 undo 也是一段段还原
不知道该怎样处理解决此问题呢

烦请各位高手帮忙一下

谢谢~

(defun cOK ( )
(setvar "cmdecho" 0)
(setq p1 (getpoint "\n 起始点:"))
(setq p2 (getpoint "\n 长度点:"))
(setq p3 (getpoint "\n 宽度点:"))
(setq 2ar4 (getreal "\n D.等分距离.<75>:"))
(if (= 2ar4 nil)(setq 2ar4 75))
(setq en3:ang (angle p1 p2))
(setq en4:ang (angle p1 p3))
(setq dd (distance p1 p2))
(setq 2ar2 (fix (/ dd 2ar4)))
(setq ww (distance p1 p3))
(setq p4 (polar p1 en4:ang (/ ww 2)))
(setq p5 (polar p4 en3:ang dd))
(setq oss (getvar "osmode"))(setvar "osmode" 0)
(command "_.line" p1 p3 "")
(setq ob1 (entlast))
(setq 2ar5 0 )
(repeat 2ar2
   (setq 2ar5 (+ 2ar5 2ar4))
   (command "_.offset" 2ar5 ob1 p5 "")
)
(setvar "osmode" oss)
(prin1))

citykunan

(command "_.undo" "be")

.

.

.

 (command "_.undo" "e")

viz528

原来要如此设定,
另外这程序,如果使用 "entmake" 来绘制
不知道该怎样编写呢?
希望有高手可以解答一下
谢谢~