5/6设置打印样式表搜索路径
5/6设置打印样式表搜索路径Private Sub CommandButton19_Click()
'设置CAD选项对话框中打印机支持文件打印样式表搜索路径文件夹的VBA宏
' 这个范例读取并修改用于控制
' 打印机型式表文件位置的系统配置值.
' 当完成后,这个范例将系统配置值重设为
' 原来的值.
Dim ACADPref As AcadPreferencesFiles
Dim originalValue As Variant, newValue As Variant
' 取得文件系统配置对象
Set ACADPref = ThisDrawing.Application.preferences.Files
' 读取并显示原始值
originalValue = ACADPref.PrinterStyleSheetPath
'MsgBox " PrinterStyleSheetPath系统配置设定为: " & originalValue
' 将路径改变为"C:\"来修改PrinterStyleSheetPath系统配置
ACADPref.PrinterStyleSheetPath = "D:\00邓细木CAD插件汇总\CAD每天使用的打印样式Plot Styles"
newValue = ACADPref.PrinterStyleSheetPath
' MsgBox " PrinterStyleSheetPath系统配置已经设定为: " & newValue
' 将系统配置重设为原来的值
'
' * 注意: 请将最后一个段落设成不作用以使
' 这个系统配置的改变发生作用。
'ACADPref.PrinterStyleSheetPath = originalValue
'MsgBox " PrinterStyleSheetPath系统配置已经重设为: " & originalValue
End Sub
页:
[1]