用户登陆
站点日历
站点统计
最新评论
CAD VBA 统一标注样式中的字体 [ 日期：2008-05-27 ] [ 来自：'统一标注样式中的字体
Sub TongyiDimstyleText()
'On Error Resume Next
Dim i As Integer
Dim DimS As AcadDimStyle
For Each DimS In ThisDrawing.DimStyles
Set DimS = ThisDrawing.DimStyles(i)
'DimS.Name = "DimStyle_" & str(i)
ThisDrawing.ActiveDimStyle = DimS
ThisDrawing.SetVariable "DimTxSty", "STANDARD" '指定标注的文字样式
DimS.CopyFrom ThisDrawing
i = i + 1
Next
End Sub
Sub TongyiDimstyleText()
'On Error Resume Next
Dim i As Integer
Dim DimS As AcadDimStyle
For Each DimS In ThisDrawing.DimStyles
Set DimS = ThisDrawing.DimStyles(i)
'DimS.Name = "DimStyle_" & str(i)
ThisDrawing.ActiveDimStyle = DimS
ThisDrawing.SetVariable "DimTxSty", "STANDARD" '指定标注的文字样式
DimS.CopyFrom ThisDrawing
i = i + 1
Next
End Sub
[本日志由 田草 于 2008-06-27 02:08 PM 编辑]
|
|
还原天正轴线字体
：
Sub HYTZZT()
Dim T As AcadTextStyle
Set T = ThisDrawing.TextStyles("_TCH_AXIS")
T.fontFile = "complex.shx"
T.BigFontFile = "gbcbig.shx"
ThisDrawing.Regen acAllViewports
End Sub
：
Sub HYTZZT()
Dim T As AcadTextStyle
Set T = ThisDrawing.TextStyles("_TCH_AXIS")
T.fontFile = "complex.shx"
T.BigFontFile = "gbcbig.shx"
ThisDrawing.Regen acAllViewports
End Sub
| 发表评论 - 不要忘了输入验证码哦！ |