[求助] 有关文字生成及Undo

52okok

重复调用子程序，并在其中调用 ThisDrawing.ModelSpace.AddText 向图中生成文字，

问题１：生成时是一个一个跳出来的，感觉不好。

问题２：程序执行完了，如果想Undo回去，每次也只能删除一个文字。例如生成了300个文字，要回车300次才能彻底恢复到初始状态, 每次 Command 后面显示的是 U OLEAPPLICATION

请问是何原因, 各位大侠有何建议

xinghesnak

1。没有办法，你不会想一次生成300个文字吧？

2。用startundomark和endundomark试一试。。。。。应该没问题的！

52okok

xinghesnak发表于2006-6-7 8:14:00 1。没有办法，你不会想一次生成300个文字吧？ 2。用startundomark和endundomark试一试。。。。。应该没问题的！

1. yes, sometimes even over 500 texts

2. Thanks, I will try.

52okok

不起作用。

xinghesnak

没有问题，下面是我自己做的一个例子，你也可以试试：

Sub main()
Dim line As AcadLine
Dim i As Integer
Dim p1(2) As Double
Dim p2(2) As Double
p1(0) = 0: p1(1) = 0: p1(2) = 0
p2(0) = 5: p2(1) = 5: p2(2) = 5
ThisDrawing.StartUndoMark
For i = 0 To 10
    ThisDrawing.ModelSpace.AddLine p1, p2
Next

ThisDrawing.EndUndoMark
End Sub

52okok

谢了，是管用。上回是我搞错了。

68651521

一个一个跳出来 是因为你在子程序里用了regen Update 或者Zoom

peicong

一次可以全部撤回去了。