SendCommand命令后怎么继续执行后面的代码

tnt1095

有个问题找不到解决的方法，就是SendCommand命令后，程序再不执行后面的代码了，有办法让它继续执行吗？如下：

  Dim n As Double
 Dim obj As AcadEntity
 n = ThisDrawing.ModelSpace.Count
 
  ThisDrawing.SendCommand "_pline" & vbCr    执行"_pline",后面的命令再不执行了，怎么办？
 If ThisDrawing.ModelSpace.Count > n Then
  Set obj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
 
  obj.Color = acRed
 
  End If

aa2567

"二次开发教程"中说的很清楚,转抄:

使用SendCommand方法简单直接,能在AutoCAD命令行中完成的操作,用SendCommand方法基本都能完成,但是SendCommand方法是将命令传给AutoCAD,而不等其执行完毕就直接运行后续的语句,所以经常会导致程序运行次序的混乱.

尽量不要使用SendCommand方法,如果用的话,最好也把它放在最后.再不行的话,把一个过程分成两段,第一段把SendCommand方法写在最后,接下来再执行第二段.而第二段可以在第一段最后直接用程序调用.

tnt1095

谢谢指导