如何用代码控制CAD打开时的dwt模板

yuliang2477

我自已做了一个dwt模板，想让程序执行打开CAd时选用这个模板，请高手指教如何可以实现。

雪山飞狐_lzh

http://www.mjtd.com/object/acad2004/idh_add.htm

yuliang2477

没看明白

Public Sub CADConnect()       
On Error Resume Next
Set Obj_Acad = GetObject(, "autocad.application")
If Err Then
   Err.Clear
   On Error Resume Next
   Set Obj_Acad = CreateObject("autocad.application")
   If Err Then
      Err.Clear
      MsgBox "不能运行AutoCAD,请检查是否安装！", vbOKCancel, "警告！"
      Exit Sub
      End If
End If
Obj_Acad.Visible = True
Set Obj_Doc = Obj_Acad.ActiveDocument
Set Obj_ModelSpace = Obj_Doc.ModelSpace

Bool = True
Block_bool = False

End Sub

我这样打开的CAD都是CAD默认的acadiso.dwt

我是想用vb代码启动CAD，在每次启动时都启动我自己做的DWT（比如123.dwt），而不是CAD默认的acadiso.dwt。

能否给我一段代码参考一下。

wuyunpeng888

在这里设置一下不就行了

设置Preferences对象

把那个无 改成你的模板不就行了嘛

yuliang2477

能不能用代码在程序里做啊？

wuyunpeng888

设置Preferences对象

Application.preferences.Files.TemplateDwgPath

指定“启动”向导所使用样板文件的路径。

语法

object.TemplateDWGPath

object

MSITStore:F:\编程\作品\CAD二次开发\HELP\acadauto.chm::/idh_preferencesfiles_object.htm">PreferencesFiles
使用该属性的对象。

TemplateDWGPath

String[字符串]; 可读写
样板文件目录的驱动器名和路径。

wuyunpeng888

<pre class="Code">Sub Example_PageSetupOverridesTemplateFile()

' 注意: 修改文件路径和名称为你系统中的有效文件。
       
        Dim MyFiles As IAcadPreferencesFiles2
        Set MyFiles = AcadApplication.Preferences.Files
        MyFiles.PageSetupOverridesTemplateFile = "C:\MyTemplate.dwt"

End Sub</pre>

wuyunpeng888

设置 QNEW 命令的默认样板文件名称。

MSITStore:F:\编程\作品\CAD二次开发\HELP\acadauto.chm::/QNewTemplate_see_also.htm">参阅 | MSITStore:F:\编程\作品\CAD二次开发\HELP\acadauto.chm::/ex_QNewTemplate.htm">示例

语法

object.QNewTemplateFile

Object

MSITStore:F:\编程\作品\CAD二次开发\HELP\acadauto.chm::/idh_preferencesfiles_object.htm">PreferencesFiles
使用该属性的对象。

QNewTemplateFile

String[字符串]; 可读写

说明

该属性值控制用于 QNEW 命令的默认样板。要使用该属性，必须声明一个对象为 AcadPrefrencesFiles 对象。

yuliang2477

太感谢大家了

我试一下

lwd899

我用下面的代码打开的(vb2008)：
'连接CAD并打开dwt模板
    Public Sub GetCadwithdwtfrw(ByVal opendwt As Boolean, ByVal dwtpath As String)
        Try
            AcadApp = GetObject("autocad.application")
        Catch ex As Exception
            Try
                AcadApp = CreateObject("autocad.application")
            Catch ex1 As Exception
                MsgBox("无法打开AutoCAD")
                Exit Sub
            End Try
        End Try

        AcadApp.Visible = True
        AppActivate(AcadApp.Caption)
        AcadApp.Documents.Close()   '关闭cad文档
        AcadApp.Documents.Add(dwtpath)  '打开dwt模板
        ThisDrawing = AcadApp.ActiveDocument
    End Sub

但是又有这样一个问题，我的dwt模板是cad2007下另存的，昨天在别人的机子上试的时候（他用的是cad2006），发现打开后我设置的图层，文字样式等都没有了，是不是06打不开高版本的dwt？那么我如何做才能让所有版本的cad都能打开已经设置好的dwt模板呢？