Question

求举一个例子,CAD里用VBA来替换文字.

例子:把整个图形里的XXXX改为2014.现在正在学习VBA.
sub test()
'这里用VBA应该怎么写?

end sub
万事都只能靠自己....
Sub 替换()
Dim strDwgName As String
Dim strFind As String
Dim strReplace As String
Dim ent As AcadEntity
strFind = "需要替换的文字"
strReplace = "替换后的文字"
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 = strReplace
End With
End If
Next ent
End Sub

Answer 1

替换的我不知道，既然您是学习，我发一段代码给您是修改字体的
Sub ModifyTextFont()
Dim typeFace As String
Dim SavetypeFace As String
Dim Bold As Boolean
Dim Italic As Boolean
Dim charSet As Long
Dim PitchandFamily As Long

ThisDrawing.ActiveTextStyle.GetFont typeFace, Bold, Italic, charSet, PitchandFamily

typeFace = "宋体" '您要设置的字体，这里比如是宋体！！！可自行修改。。。
ThisDrawing.ActiveTextStyle.SetFont typeFace, Bold, Italic, charSet, PitchandFamily
ThisDrawing.Regen acActiveViewport

End Sub

Answer 2

运行后怎么没有反应呢？

Answer 3

为什么要用vba啊，直接用cad命令“find”不成？