为什么我写的这个程序无法使用？

雪山飞狐_lzh

贴完整一点的程序？
这样总觉得有点纸上谈兵的感觉

wmz

这个不会,如你所写的将"q"改成"2"我就是在工程里写了一个过程(就是宏呗),便可反复使用.

xiaohaiclj

详细说下我产生问题的步骤： 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

雪山飞狐_lzh

me.hide


sset.SelectOnScreen


me.show

xiaohaiclj

[QUOTE][QUOTE] 哈哈,终于解决了,谢谢 me.show me.hide 我用的工程是useform_click可是我在程序中一直没有隐藏CAD中的VBA执行窗口 当然就只能运行一次了,谢谢大家,最开心的是我通过这个帖子从VB提供的帮助上 学到了好几个VBA知识点 比如VAR变量的三种原始数据empty err null 我看的书上根本没写变量还有这几种数据 呵呵,大家每发一个帖子我就找相关的知识学习,我的收获很大 谢谢大家 真的

wmz

userform_click? 这哪里是工程?这明明是窗体事件嘛!