SendCommand命令后怎么继续执行后面的代码
<p>有个问题找不到解决的方法，就是SendCommand命令后，程序再不执行后面的代码了，有办法让它继续执行吗？如下：</p><p> Dim n As Double<br/> Dim obj As AcadEntity<br/> n = ThisDrawing.ModelSpace.Count<br/> <br/> ThisDrawing.SendCommand "_pline" & vbCr 执行"_pline",后面的命令再不执行了，怎么办？<br/> If ThisDrawing.ModelSpace.Count > n Then<br/> Set obj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)<br/> <br/> obj.Color = acRed<br/> <br/> End If</p> 本帖最后由 作者 于 2008-1-24 12:49:04 编辑 <br /><br /> <p>"二次开发教程"中说的很清楚,转抄:</p><p>使用SendCommand方法简单直接,能在AutoCAD命令行中完成的操作,用SendCommand方法基本都能完成,但是SendCommand方法是将命令传给AutoCAD,而不等其执行完毕就直接运行后续的语句,所以经常会导致程序运行次序的混乱.</p><p>尽量不要使用SendCommand方法,如果用的话,最好也把它放在最后.再不行的话,把一个过程分成两段,第一段把SendCommand方法写在最后,接下来再执行第二段.而第二段可以在第一段最后直接用程序调用.</p><p></p> <p>谢谢指导</p>
页:
[1]