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