雪山飞狐_lzh 发表于 2004-8-13 11:23:00

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

wmz 发表于 2004-8-13 13:32:00

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

xiaohaiclj 发表于 2004-8-13 16:09: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

雪山飞狐_lzh 发表于 2004-8-13 20:47:00

me.hide


sset.SelectOnScreen


me.show

xiaohaiclj 发表于 2004-8-14 09:33:00


哈哈,终于解决了,谢谢


<FONT size=2>me.show                       me.hide</FONT>


我用的工程是useform_click可是我在程序中一直没有隐藏CAD中的VBA执行窗口


当然就只能运行一次了,谢谢大家,最开心的是我通过这个帖子从VB提供的帮助上


学到了好几个VBA知识点


比如VAR变量的三种原始数据empty err null        我看的书上根本没写变量还有这几种数据


呵呵,大家每发一个帖子我就找相关的知识学习,我的收获很大


<FONT face=黑体 size=1>谢谢大家               真的</FONT>

wmz 发表于 2004-8-14 10:34:00

userform_click? 这哪里是工程?这明明是窗体事件嘛!
页: 1 [2]
查看完整版本: 为什么我写的这个程序无法使用？