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

yuliang2477 发表于 2009-11-19 15:28:00

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

雪山飞狐_lzh 发表于 2009-11-19 15:39:00

<a href="http://www.mjtd.com/object/acad2004/idh_add.htm">http://www.mjtd.com/object/acad2004/idh_add.htm</a>

yuliang2477 发表于 2009-11-20 14:56:00

没看明白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.ModelSpaceBool = True Block_bool = FalseEnd Sub我这样打开的CAD都是CAD默认的acadiso.dwt我是想用vb代码启动CAD，在每次启动时都启动我自己做的DWT（比如123.dwt），而不是CAD默认的acadiso.dwt。能否给我一段代码参考一下。

wuyunpeng888 发表于 2009-11-22 14:43:00

在这里设置一下不就行了设置Preferences对象把那个无改成你的模板不就行了嘛

yuliang2477 发表于 2009-11-23 21:00:00

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

wuyunpeng888 发表于 2009-11-23 23:00:00

设置Preferences对象Application.preferences.Files.TemplateDwgPath指定“启动”向导所使用样板文件的路径。语法 object.TemplateDWGPath object<a href="mk:@MSITStore:F:\编程\作品\CAD二次开发\HELP\acadauto.chm::/idh_preferencesfiles_object.htm">PreferencesFiles</a> 使用该属性的对象。 TemplateDWGPathString[字符串]; 可读写 样板文件目录的驱动器名和路径。

wuyunpeng888 发表于 2009-11-23 23:03:00

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

' 注意: 修改文件路径和名称为你系统中的有效文件。

Dim MyFiles As IAcadPreferencesFiles2
Set MyFiles = AcadApplication.Preferences.Files
MyFiles.PageSetupOverridesTemplateFile = "C:\MyTemplate.dwt"

End Sub</pre>

wuyunpeng888 发表于 2009-11-23 23:05:00

设置 QNEW 命令的默认样板文件名称。<a href="mk:@MSITStore:F:\编程\作品\CAD二次开发\HELP\acadauto.chm::/QNewTemplate_see_also.htm">参阅</a> | <a href="mk:@MSITStore:F:\编程\作品\CAD二次开发\HELP\acadauto.chm::/ex_QNewTemplate.htm">示例</a>语法 object.QNewTemplateFile Object<a href="mk:@MSITStore:F:\编程\作品\CAD二次开发\HELP\acadauto.chm::/idh_preferencesfiles_object.htm">PreferencesFiles</a> 使用该属性的对象。 QNewTemplateFileString[字符串]; 可读写 说明 该属性值控制用于 <a href="ms-its:acad161.chm::/QNEW.htm">QNEW</a> 命令的默认样板。要使用该属性，必须声明一个对象为 AcadPrefrencesFiles 对象。

yuliang2477 发表于 2009-11-25 08:38:00

太感谢大家了我试一下

lwd899 发表于 2011-1-27 08:46:30

我用下面的代码打开的(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模板呢？

页: [1] 2

明经CAD社区's Archiver

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