[求助]：VBA小问题,请高手赐教

xtatjh

比如：我现在有一条插入文本命令：Set WordObj = ThisDrawing.ModelSpace.AddText(strV, startPnt, width)

当插入一行文本后就结束了,要再点菜单才再插入第二条：

我怎么让用户可以重复插入此文本,直到ESC取消啊！

lafare

Sub ProgramTest()

    Dim varPoint As Variant
    Dim objWord As AcadText
   
    On Error GoTo DoError
   
    Do
        varPoint = ThisDrawing.Utility.GetPoint(, "请指定一个坐标点(按ESC退出)：")
        Set objWord = ThisDrawing.ModelSpace.AddText("一个测试字符串", varPoint, 200)
    Loop
   
DoError:
    MsgBox "您已经按ESC退出了。"

End Sub

xtatjh

lafare:

   谢谢!测试通过