2/6设置样板图形文件位置路径

清风明月名字

2/6设置样板图形文件位置路径


Private Sub CommandButton18_Click()
'设置样板图形文件位置路径()
      ' 这个范例返回
      ' TemplateDWGPath的目前的设定值，接着改变它的值
      ' 最后重设为原来的值


      Dim preferences As AcadPreferences
      Dim currTemplateDWGPath As String
      Dim newTemplateDWGPath As String

      Set preferences = ThisDrawing.Application.preferences


      ' 取出目前的 TemplateDWGPath值
      'currTemplateDWGPath = preferences.Files.TemplateDwgPath
      'MsgBox " TemplateDWGPath 的目前值是 " & currTemplateDWGPath, vbInformation, "TemplateDWGPath 范例"

      ' 改变 TemplateDWGPath的值
      newTemplateDWGPath = "TestTemplateDWGPath"
      preferences.Files.TemplateDwgPath = "D:\00邓细木CAD插件汇总\CAD每天使用的图形样板文件（尾缀dwt）Template文件夹"
     ' MsgBox " TemplateDWGPath 的值 " & newTemplateDWGPath, vbInformation, "TemplateDWGPath 范例"


      ' 将 TemplateDWGPath 重设为原来值
      'preferences.Files.TemplateDwgPath = currTemplateDWGPath
      'MsgBox " TemplateDWGPath 值重设成为" & currTemplateDWGPath, vbInformation, "TemplateDWGPath 范例"
  
End Sub