liminnet
发表于 2008-8-28 10:06:00
caoyin
发表于 2008-8-28 10:21:00
本帖最后由 作者 于 2008-8-28 10:23:45 编辑 <br /><br /> <p>(setq pre (vla-get-preferences (vla-get-application (vlax-get-acad-object)))<br/> opensave (vla-get-OpenSave pre)<br/>)<br/>;; 以 AutoCAD 2004 DWG 格式为例</p><p>(vla-put-SaveAsType opensave 24)</p><p><br/></p><p class="element-desc">acSaveAsType 常数; 可读写</p><p><table class="Simple"><tbody><tr valign="top"><td><p class="constant">acR12_DXF</p></td><td><p class="constant-desc">AutoCAD Release12/LT2 DXF (*.dxf)</p></td></tr><tr valign="top"><td><p class="constant">ac2000_dwg</p></td><td><p class="constant-desc">AutoCAD 2000 DWG (*.dwg)</p></td></tr><tr valign="top"><td><p class="constant">ac2000_dxf</p></td><td><p class="constant-desc">AutoCAD 2000 DXF (*.dxf)</p></td></tr><tr valign="top"><td><p class="constant">ac2000_Template</p></td><td><p class="constant-desc">AutoCAD 2000 图形样板文件 (*.dwt)</p></td></tr><tr valign="top"><td><p class="constant">ac2004_dwg</p></td><td><p class="constant-desc">AutoCAD 2004 DWG (*.dwg)</p></td></tr><tr valign="top"><td><p class="constant">ac2004_dxf</p></td><td><p class="constant-desc">AutoCAD 2004 DXF (*.dxf)</p></td></tr><tr valign="top"><td><p class="constant">ac2004_Template</p></td><td><p class="constant-desc">AutoCAD 2004 图形样板文件 (*.dwt)</p></td></tr><tr valign="top"><td><p class="constant">acNative</p></td><td><p class="constant-desc">与当前图形版本格式相同。如果需要应用程序保存图形为当前应用程序所运行在的 AutoCAD 版本，可使用 acNative 格式。</p></td></tr><tr valign="top"><td><p class="constant">AcUnknown</p></td><td><p class="constant-desc">只读。图形类型未知或无效。</p></td></tr></tbody></table></p>
liminnet
发表于 2008-8-28 11:20:00
caoyin
发表于 2008-8-28 11:56:00
<p>我看你的CAD版本...</p><p>你另存时有r14选项那么函数就支持</p><p></p>
liminnet
发表于 2008-8-28 11:58:00
caoyin
发表于 2008-8-28 12:05:00
本帖最后由 作者 于 2008-8-28 12:12:51 编辑 <br /><br /> <p>(setq pre (vla-get-preferences (vla-get-application (vlax-get-acad-object)))<br/> opensave (vla-get-OpenSave pre)<br/>)<br/>(vla-put-SaveAsType opensave <font color="#f73809">ac2000_dwg</font>)</p><p>(vla-put-SaveAsType opensave <font color="#f73809">ac2004_dwg</font>)</p><p>(vla-put-SaveAsType opensave <font color="#f73809">ac2004_dxf</font>)</p><p><font color="#f73809">其实 ac2000_dwg=12</font></p>
liminnet
发表于 2008-8-28 12:38:00
liminnet
发表于 2008-8-28 12:43:00
liminnet
发表于 2008-8-28 13:08:00
caoyin
发表于 2008-8-28 13:23:00
<p>command:!<font color="#f73809">acR14_dwg</font></p><p><font color="#f73809">回车</font></p>