|
|
我的问题烦扰我很久了,希望路过这个地方的朋友为我提出解决的方法,或许在这里我可以找到答案!
详细说下我产生问题的步骤： 1、首先进入CAD2004窗口，在命令行输入vbaman然后点Visual Basic编辑器，
并在代码窗口中加入我下面的程序，然后运行，你会发现无法拾取CAD窗
口上的文字。
2、在CAD2004界面下同时按ALT+F8,然后在弹出的窗口中点编辑，然后把下面
的程序拷贝进去。然后你在CAD2004界面下ALT+F8后点运行，你会发现一点
毛病都没有，运行多少次都可以。
为什么会这样？为什么必须把下面的程序放到module1（宏）中才可以连续运行？
而放到Userform中就不行？
我现在的目的是读取一个txt文件后自动判断、自动更改数据。
我实在不明白为什么这个程序用宏的方式运行怎么都可以怎么到工程里就不听话了？
On Error Resume Next
Dim sset As AcadSelectionSet
If Not IsNull(ThisDrawing.SelectionSets.Item("wtext")) Then
Set sset = ThisDrawing.SelectionSets.Item("wtext")
sset.Delete
End If
Set sset = ThisDrawing.SelectionSets.Add("wtext")
sset.SelectOnScreen
Dim txt As AcadText
For Each txt In sset
If txt.TextString = "q" Then txt.TextString = "2"
txt.Update
Next txt |
|
置顶卡
