StartUndoMark在访问命令行后失效问题

xuxt

先看一下我写的测试子例程:

Sub test()
    ThisDrawing.StartUndoMark
    ThisDrawing.SendCommand "line 0,0 500,500  "
    ThisDrawing.SendCommand "c 0,0 50 "
    ThisDrawing.Utility.Prompt "测试结束"
    ThisDrawing.EndUndoMark
End Sub

在加入SendCommand语句后,出现了两个问题,

1.使用U撤消命令时,不能一步退回到运行这个子例程前的位置,而是选取消了圆,再取消直线,而如果是直接在VBAIDE里运行是有效的,如果是在ACAD2004.lsp调用的,就不行.

(defun C:test ()  (vl-vbarun "EditDwg.dvb!ThisDrawing.test"))

2."测试结束"这个命令行提示也和没有访问命令行的子例程是不一样的,不能出现新的命令行

请问哪位高手能帮我分析一下这个故障,怎么解决

xuxt

怎么没有回复呢,郁闷ing

xuxt

哪位大侠路过,一定要留下一招半式啊

xuxt

好失望啊,明经的大侠都忙什么去了