社区 › VB › [求助]：VBA小问题,请高手赐教

xtatjh 发表于 2007-7-11 15:51:00

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

比如：我现在有一条插入文本命令：Set WordObj = ThisDrawing.ModelSpace.AddText(strV, startPnt, width)
当插入一行文本后就结束了,要再点菜单才再插入第二条：
我怎么让用户可以重复插入此文本,直到ESC取消啊！

lafare 发表于 2007-7-12 11:46:00

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 发表于 2007-7-13 11:55:00

lafare:
   谢谢!测试通过

查看完整版本: [求助]：VBA小问题,请高手赐教