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

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

比如：我现在有一条插入文本命令：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小问题,请高手赐教

发表回复

精选推荐