xiaohaiclj 发表于 2004-8-13 19:51:00

希望更多的朋友帮助我解决这个问题

我的问题烦扰我很久了,希望路过这个地方的朋友为我提出解决的方法,或许在这里我可以找到答案!


详细说下我产生问题的步骤：





1、首先进入CAD2004窗口，在命令行输入vbaman然后点Visual Basic编辑器，<BR>                       并在代码窗口中加入我下面的程序，然后运行，你会发现无法拾取CAD窗<BR>                       口上的文字。<BR>2、在CAD2004界面下同时按ALT+F8,然后在弹出的窗口中点编辑，然后把下面<BR>                       的程序拷贝进去。然后你在CAD2004界面下ALT+F8后点运行，你会发现一点<BR>                       毛病都没有，运行多少次都可以。


为什么会这样？为什么必须把下面的程序放到module1（宏）中才可以连续运行？


而放到Userform中就不行？


我现在的目的是读取一个txt文件后自动判断、自动更改数据。


我实在不明白为什么这个程序用宏的方式运行怎么都可以怎么到工程里就不听话了？


On Error Resume Next<BR>Dim sset As AcadSelectionSet<BR>If Not IsNull(ThisDrawing.SelectionSets.Item("wtext")) Then<BR>               Set sset = ThisDrawing.SelectionSets.Item("wtext")<BR>               sset.Delete<BR>End If<BR>Set sset = ThisDrawing.SelectionSets.Add("wtext")<BR>sset.SelectOnScreen<BR>Dim txt As AcadText<BR>For Each txt In sset<BR>If txt.TextString = "q" Then txt.TextString = "2"<BR>txt.Update<BR>Next txt

xhf 发表于 2004-8-14 13:41:00

不懂VBA，建议放到VBA版块去。

一个人住 发表于 2004-8-14 14:44:00

对呀，你放错地方了吧？这里可是基础应用版。
页: [1]
查看完整版本: 希望更多的朋友帮助我解决这个问题