CAD中文字查找替换功能如何用VBA实现

cad 如何用vba实现修改图纸中的文字？谢谢啦高手们~

;;;修改文字内容(defun C:ZX10 ( / #k1 %k2 %k3 %k4 %k5 %k6 %k7 &k1 &kw1 i) (setvar "cmdecho" 0) (setvar "blipmode" 0) (princ "
请选择文字") (setq &kw1 (ssget ":S" (list (cons 0 "TEXT"))) %k2 t);选择文字 (if (/= &kw1 nil);如果有选择 (progn (while %k2;循环修改 (setq %k2 (ZX10~1));取得要修改的文字代码 (if (/= %k2 nil);如果选择了 (progn (setq %k3 (ZX10~2));那么取得要修改的内容 (if (= %k3 nil) (setq %k2 nil) );如果没有取得内容就结束 ) ) (if (/= %k3 nil);如果符合以上条件 (progn (setq i 0 %k3 (cons 1 %k3));修改内容变为表里面的元素 (repeat (sslength &kw1);对所有的文字进行查看 (setq &k1 (ssname &kw1 i);取得一个对象 #k1 (entget &k1);取得属性列表 %k4 (assoc 1 #k1);取得内容元素 %k6 (assoc 40 #k1);取得高度元素 %k7 (cons 40 150);修改高度元素 %k5 (cdr %k4);取得文字内容 ) (if (= %k2 %k5);如果文字内容符合 (progn (setq #k1 (subst %k3 %k4 #k1));替换文字内容 (setq #k1 (subst %k7 %k6 #k1));替换高度 (entmod #k1);刷新文字 ) ) (setq i (+ i 1));下一个 ) ) ) ) ) ) (prin1));;子程序;;(defun ZX10~1 ( / %k1 &kw2) (setq %k1 nil) (princ "
请选择要修改的文字内容") (setq &kw2 (ssget ":S" (list (cons 0 "TEXT")))) (if (/= &kw2 nil) (progn (setq %k1 (cdr (assoc 1 (entget (ssname &kw2 0))))) (princ "
选择文字为") (princ %k1) ) ) %k1);;;子程序;;(defun ZX10~2 ( / %k1 &kw2) (setq %k1 nil) (princ "
请选择要替换的内容") (setq &kw2 (ssget ":S" (list (cons 0 "TEXT")))) (if (/= &kw2 nil) (progn (setq %k1 (cdr (assoc 1 (entget (ssname &kw2 0))))) (princ "
修改内容为") (princ %k1) ) ) %k1);内容复制到记事本，以【ZX10.lsp】命名，加载到autoLISP，命令：ZX10操作过程：首先框选需要修改的文字；然后点选需要修改的文字得到内容，然后点选需要修改的内容【文字】；autoLISP程序。

CAD2013中，有宏动作编辑，很容易实现你的要求。


这是很简单的编辑。在动作命名的时候要简单一些，因为它是快捷键名称，如Z8560，不要象下面的ACTMACRO001这么长。要统计数字，你快速选择一下，它自动出来了。

如上图，图案填充有46个。想看操作，你可以加我QQ437271963

基本是这样子的
dim strDwgName As String
dim strFind As String
dim strReplace As String
Dim ent As AcadEntity
For Each ent In Thisdrawing.ModelSpace
If TypeOf ent Is AcadText Or TypeOf ent Is AcadMText Then
With ent
If InStr(.TextString, strFind) Then .TextString = ReplaceStr(.TextString, strFind, strReplace, False)
End With
End If
Next ent

补充：你那个不能改的标题栏可能是插入的属性块，是属性块里面的属性的文字，这个不能进入块中修改，只能在对象中。

strFind = "耳板"
Dim objBlkRef As AcadBlockReference
Dim varAttributes '取得块属性，显示属性标签和值

For Each ent In ThisDrawing.ModelSpace
If TypeOf ent Is AcadBlockReference Then
Set objBlkRef = ent
varAttributes = objBlkRef.GetAttributes
If UBound(varAttributes) Then
For i = 0 To UBound(varAttributes)
If varAttributes(i).TextString = strFind Then
varAttributes(i).TextString = "strFind"
End If
Next i
End If

End If
Next ent

这样可以替换块中的文字

应该对块内，表内的文字再遍历一次修改就可以了。

哎呀,看到这个问题真实亲切啊,想当年我第一个公司就是做这个的,哈哈,现在好久没听别人提过了,不过我也不会,嘿嘿,早忘没了

---

东坡区17717177785： CAD中文字查找替换功能如何用VBA实现 - ？
官待再造： 基本是这样子的 dim strDwgName As String dim strFind As String dim strReplace As String Dim ent As AcadEntity For Each ent In Thisdrawing.ModelSpace If TypeOf ent Is AcadText Or TypeOf ent Is AcadMText Then With ent If InStr(.TextString, ...

东坡区17717177785： 在CAD中如何编写VBA程序批量替换CAD里标注的尺寸(文字替代里的文字) - ？
官待再造： 如果修改文字,可以用FIND命令,类似word中的查找替换,不限于引线标注,如果是文字、多行文字、尺寸标注、表格、属性之类有文字特性的对象,只要在选集中,就会有相应修改;如果是天正生成的对象,FIND命令可能找不到,要用CZTH命令,用法类似.

东坡区17717177785： 如何使用VB或者VBA替换Auto CAD中尺寸标注中的文字,求代码,求好心人帮帮忙,无财富值,暂时无法悬赏. - ？
官待再造： protocol StructDecoder { // 我们 Core Data 实体的名字 static var EntityName: String { get } // 返回包含我们属性集的 NSManagedObject func toCoreData(context: NSManagedObjectContext) throws -> NSManagedObject //[译者注]使用 NSManagedObjectContext 需要 import CoreData }

东坡区17717177785： 用VB实现文本查找和替换 - ？
官待再造： Private Sub cmdExit_Click() End End Sub Private Sub cmdFind_Click() Dim StrCz As String, StrTh As String, I As Integer, J As Integer, K As Integer StrCz = InputBox(＂你要查找什么?＂, ＂查找＂, ＂上海市＂) StrTh = InputBox(＂你要将...

东坡区17717177785： VB中如何实现文本查找功能? - ？
官待再造： 在VB中要实现查找文件功能,我们可以利用VB的DIR函数进行递归来实现.每次使用DIR函数后,比较是否有要查找的文件,再检查是否有子目录,若有,利用递归继续查找,这样可对整个盘进行查找...

东坡区17717177785： 如何在VB中实现文本中的查找 - ？
官待再造： For P = 1 To Len(MainForm.TextBox.Text)Tmp = Mid(MainForm.TextBox.Text, P, L)If SHT = Tmp ThenMainForm.TextBox.SelStart = P - 1MainForm.TextBox.SelLength = LMainForm.TextBox.SetFocusExit ForEnd If Next

东坡区17717177785： 怎样查找替换CAD图纸中的文字? - ？
官待再造： 你好 如果你现在的文字内容都是属于矢量的可编辑的文字内容时 点菜单栏上面的 编辑 查找 在查找字符串里输入原有的字符 然后在下方的改为里边输入自己想要换成的内容 在右边的搜索范围那就点最右上角的那个 选择对象 按钮 然后拖选你要查找和替换的范围 下面再点一下 全部改为 关闭 那样就全部替换了 很多情况下我都是这么操作的 很方便 祝你成功 望采纳

东坡区17717177785： VB中如何查找替换字符 - ？
官待再造： 估计没有语法报错,就是没结果,是不是标点有问题?b = b & Replace(a, ＂,＂, ＂＂) & vbCrLf ' 替换并放入变量 这句替换两次:tmp=Replace(a, ＂,＂, ＂＂) tmp=Replace(tmp, ＂,＂, ＂＂) '替换中文逗号 b = b & tmp & vbCrLf 注意最后一个vbCrLf要去掉,要不你每写一次文件,就会在后头多一个回车换行符:b= Left(b,len(b)-2) 你没说清具体情况,我估计是如此了....

东坡区17717177785： cad 如何用vba实现修改图纸中的文字?谢谢啦高手们 - ？
官待再造： ;;;修改文字内容(defun C:ZX10 ( / #k1 %k2 %k3 %k4 %k5 %k6 %k7 &k1 &kw1 i) (setvar ＂cmdecho＂ 0) (setvar ＂blipmode＂ 0) (princ ＂\n请选择文字＂) (setq &kw1 (ssget ＂:S＂ (list (cons 0 ＂TEXT＂))) %k2 t);选择文字 (if (/= &...

东坡区17717177785： 关于CAD中的查找功能 - ？
官待再造： CAD查找功能用法:1、例如图上一些文字,想将1235内容改为abcd内容,那就可以使用查找里的替换功能来实现,不需要手动修改文字了.2、 点击编辑,下拉有个查找,点击查找,出现对话框.先熟悉一下对话框的内容,有查找内容,替换内容,下面是提示栏,右边是选项按钮.3、 查找内容输入1235,替换内容输入abcd,选择整个图形,点击全部改为,然后下面有提示说已经全部修改.再关闭对话框,看到图里的文字已经被替换了.