Vla-saveas

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-saveas vla-object FileName FileType SecurityParams)

機能: 指定したファイルにドキュメントを保存する。; AutoCAD 2006以降から、メニューグループの保存は非サポート。

引数

vla-object … ドキュメントの VLA オブジェクト
FileName … AcSaveAsType列挙型保存するファイル名の文字列
FileType … ファイルの形式

使える値は使ってる CAD のバージョンで変わるので注意
acR12_DXF ： AutoCAD Release12/LT2 DXF (*.dxf)
acR13_DWG ： AutoCAD Release13/LT95 DWG (*.dwg)
acR13_DXF ： AutoCAD Release13/LT95 DXF (*.dxf)
acR14_DWG ： AutoCAD Release14/LT97 DWG (*.dwg)
acR14_DXF ： AutoCAD Release14/LT97 DXF (*.dxf)
acR14_dwg ： AutoCAD R14 DWG (*.dwg)
ac2000_dwg ： AutoCAD 2000 DWG (*.dwg)
ac2000_dxf ： AutoCAD 2000 DXF (*.dxf)
ac2000_Template ： AutoCAD 2000 図面テンプレートファイル(*.dwt)
ac2004_dwg ： AutoCAD 2004 DWG (*.dwg)
ac2004_dxf ： AutoCAD 2004 DXF (*.dxf)
ac2004_Template ： AutoCAD 2004 図面テンプレートファイル(*.dwt)
ac2007_dwg ： AutoCAD 2007 DWG (*.dwg)
ac2007_dxf ： AutoCAD 2007 DXF (*.dxf)
ac2007_Template ： AutoCAD 2007 図面テンプレートファイル(*.dwt)
ac2010_dwg ： AutoCAD 2010 DWG (*.dwg)
ac2010_dxf ： AutoCAD 2010 DXF (*.dxf)
ac2010_Template ： AutoCAD 2010 図面テンプレートファイル(*.dwt)
ac2013_dwg ： AutoCAD 2013 DWG (*.dwg)
ac2013_dxf ： AutoCAD 2013 DXF (*.dxf)
ac2013_Template ： AutoCAD 2013 図面テンプレートファイル(*.dwt)
ac2018_dwg : AutoCAD 2018 DWG (*.dwg)
ac2018_dxf : AutoCAD 2018 DXF (*.dxf)
ac2018_Template : AutoCAD 2018 図面テンプレートファイル(*.dwt)
acNative ：最新の図面のバージョンと同じ意味。

SecurityParams … SecurityParams オブジェクト。暗号化された図面のオプション省略可

戻り値: nil 保存できなかった場合はエラー。

memo:

セキュア URL に保存するとき、パスワードの入力を求めるダイアログボックスが表示される。このときに、メッセージボックスも表示される(ブラウザでこの動作をオフにしていない場合)。

サンプル

(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq *prefs* (vla-get-preferences (vlax-get-Acad-Object)))
(setq *sys* (vla-get-system *prefs*))
(setq *prefs_ad* (vla-get-preferences *actdoc*))
(setq *util* (vla-get-utility *actdoc*))
(setq *views* (vla-get-views *actdoc*))

(defun ax-saveas ()
  (vl-load-com)
  (setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (setq fld "c:/temp/")

  (vla-SaveAs *ActDoc* (strcat fld "R14-")(getvar "DWGNAME") ) acR14_DWG)
  (vla-SaveAs *ActDoc* (strcat fld "2000-" (getvar "DWGNAME") ) ac2000_DWG)
  (vla-SaveAs *ActDoc* (strcat fld "2004-" (getvar "DWGNAME") ) ac2004_DWG)
  (vla-SaveAs *ActDoc* (strcat fld "2007-" (getvar "DWGNAME") ) ac2004_DWG)
  (vla-SaveAs *ActDoc* (strcat fld "2010-" (getvar "DWGNAME") ) ac2010_DWG)
  (vla-SaveAs *ActDoc* (strcat fld "2013-" (getvar "DWGNAME") ) ac2013_DWG)
  (vla-SaveAs *ActDoc* (strcat fld "2018-" (getvar "DWGNAME") ) ac2018_DWG)
  (vla-SaveAs *ActDoc* (strcat fld "native-" (getvar "DWGNAME") ) acnative)
  (princ)
);defun