xuxt 发表于 2006-1-4 21:08:00

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

<P>先看一下我写的测试子例程:</P>
<P>Sub test()<BR>&nbsp;&nbsp;&nbsp; ThisDrawing.StartUndoMark<BR>&nbsp;&nbsp;&nbsp; ThisDrawing.SendCommand "line 0,0 500,500&nbsp; "<BR>&nbsp;&nbsp;&nbsp; ThisDrawing.SendCommand "c 0,0 50 "<BR>&nbsp;&nbsp;&nbsp; ThisDrawing.Utility.Prompt "测试结束"<BR>&nbsp;&nbsp;&nbsp; ThisDrawing.EndUndoMark<BR>End Sub<BR></P>
<P>在加入SendCommand语句后,出现了两个问题,</P>
<P>1.使用U撤消命令时,不能一步退回到运行这个子例程前的位置,而是选取消了圆,再取消直线,而如果是直接在VBAIDE里运行是有效的,如果是在ACAD2004.lsp调用的,就不行.</P>
<P>(defun C:test ()&nbsp; (vl-vbarun "EditDwg.dvb!ThisDrawing.test"))</P>
<P>2."测试结束"这个命令行提示也和没有访问命令行的子例程是不一样的,不能出现新的命令行</P>
<P>请问哪位高手能帮我分析一下这个故障,怎么解决</P>

xuxt 发表于 2006-1-5 11:02:00

怎么没有回复呢,郁闷ing

xuxt 发表于 2006-1-5 21:18:00

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

xuxt 发表于 2006-1-6 23:53:00

<P>好失望啊,明经的大侠都忙什么去了</P>
页: [1]
查看完整版本: StartUndoMark在访问命令行后失效问题