Question

在VB中利用cad二次开发画的图如何自动保存为dxf文件

最好在点一个按钮后，程序在后台自动生成该dxf文件，不弹出cad窗口

Answer 1

object.SaveAs FileName, FileType [, SecurityParams]

Object

Document, MenuGroup
The object or objects this method applies to.

Note This method has no effect for menu groups.

FileName

String; input-only
The full path and file name, or valid URL address, for the file. The active document takes on the new name.

FileType

AcSaveAsType enum; input-only; optional for Document objects

acR14_dwg
AutoCAD R14 DWG (*.dwg)

ac2000_dwg
AutoCAD 2000 DWG (*.dwg)

ac2000_dxf
AutoCAD 2000 DXF (*.dxf)

ac2000_Template
AutoCAD 2000 Drawing Template File (*.dwt)

ac2004_dwg
AutoCAD 2004 DWG (*.dwg)

ac2004_dxf
AutoCAD 2004 DXF (*.dxf)

ac2004_Template
AutoCAD 2004 Drawing Template File (*.dwt)

ac2007_dwg
AutoCAD 2007 DWG (*.dwg)

ac2007_dxf
AutoCAD 2007 DXF (*.dxf)

ac2007_Template
AutoCAD 2007 Drawing Template File (*.dwt)

acNative
A synonym for the latest drawing release. In this release, this value equals ac2007_dwg.

Answer 2

这个应该在CAD中设置吧，打开CAD、工具、选项，在打开和保存中设置为保存格式为dxf格式。

Answer 3

(defun c:dxf()
(command "dxfout" "" "")
(print)

);defun

用LISP，直接就OK。

追问

麻烦您能说的清楚一些么，我没怎么看懂，谢谢

追答

这是LISP语言写的二次开发，加载到CAD就可以用了
加载后的快捷键是DXF
也可以自己定义一个按钮来实现
(defun c:dxf() (command "dxfout" "" "") (print) );defun
新建一个文本文档，复制上面的代码，把文档名字改为：xxx.lisp （XXX为文件名）
打开CAD下拉菜单 Autolisp--加载XXX.lisp
加载成功后就可以使用了