|
|
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 |
|
置顶卡
