| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1122 人关注过本帖
标题:如何用用VB编写程序批量修改CAD中的文字
取消只看楼主 加入收藏
xingming022
Rank: 1
等 级:新手上路
帖 子:103
专家分:9
注 册:2015-1-26
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:1 
如何用用VB编写程序批量修改CAD中的文字
下面是我自己查的一段代码,但总是运行出错。  
  Do While fileName <> ""
        ' 打开CAD文件
        Dim acadDoc As AcadDocument
        Set acadDoc = Application.Documents.Open(folderPath & fileName) 'ThisDrawing.Application.Documents.Open(folderPath & fileName)
        
        ' 选择所有文字对象
        Dim selSet As AcadSelectionSet
        Set selSet = acadDoc.SelectionSets.Add("MySelectionSet")
        selSet.Select acSelectionSetAll, , , Array("", "", "", "*Text")''''运行到这里总是出错。运行到这里总是出错。运行到这里总是出错。
        
        ' 遍历选中的文字对象
        Dim objText As AcadText
        For Each objText In selSet
            ' 如果找到指定的文字
            If InStr(1, objText.TextString, oldText, vbTextCompare) > 0 Then
                ' 替换文字
                objText.TextString = Replace(objText.TextString, oldText, newText, , , vbTextCompare)
               
                ' 增加计数器
                counter = counter + 1
            End If
        Next
        
        ' 清除选择集
        selSet.Delete
        
        ' 保存并关闭CAD文件
        acadDoc.Save
        acadDoc.Close
        
        ' 进入下一个DWG文件
        fileName = Dir()
    Loop
搜索更多相关主题的帖子: 出错 文件 文字 CAD 运行 
2023-04-02 11:32
xingming022
Rank: 1
等 级:新手上路
帖 子:103
专家分:9
注 册:2015-1-26
收藏
得分:0 
回复 2楼 yuma
也还是在我原来的位置那里出错,显示
参数Filter type   or   FilterData无效。
2023-04-06 09:30
快速回复:如何用用VB编写程序批量修改CAD中的文字
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016044 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved