请高手帮忙分析！

dcount107

以下代码用于递增文字，  现在的问题是：如果MBUTTONPAN为1的话，程序执行到sendComand语句中时，只要一按下中键，程序就出现死循环！请高手帮忙分析！万分感谢！

  On Error Resume Next
    TxtAdd_Form.Hide

    Dim Ent As AcadEntity
    Dim EntDes As AcadEntity
    Dim basepnt As Variant
    Dim TextObj As AcadText
    Dim TextObjCopy As AcadText
   
    ThisDrawing.Utility.GetEntity Ent, basepnt, "请选择起始的文字"
    If Ent.ObjectName <> "AcDbText" Then GoTo Over
    Ent.Highlight True
   
    TextSource = Ent.textString
    'MsgBox TextSource
Add:
    TextAdd

    Set TextObj = Ent.Copy
    TextObj.textString = TextMod
    'ThisDrawing.SetVariable "MBUTTONPAN", 0
    ThisDrawing.SendCommand "(ManualInsert """ + TextObj.handle + """)" & vbCr
    Ent.Highlight False
   
    GoTo Add:
Over:

dcount107

再如:

ThisDrawing.SendCommand "(command ""Move"" ent """" pt pause)" &vbcr

msgbox "JumpHere"

如果在移动过程中按下中键进行PAN操作，程序马上会跳转到MSGBOX，不解！

雪山飞狐_lzh

SendCommand方法本来就不推荐使用，该方法Bug太多

dcount107

郁闷，不用SendCommand的话就实现不了移动（或拷贝）时预览图像，看以前的帖子好像也没有得到好的解决办法。

还是改学OBJECTARX算了，^_^！