Vla-saveasのソースを表示

{{AutoLISP}}
; 構文
: (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 に保存するとき、パスワードの入力を求めるダイアログ ボックスが表示される。このときに、メッセージ ボックスも表示される(ブラウザでこの動作をオフにしていない場合)。 


; サンプル
<pre class="brush:autolisp;">
(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


</pre>

-----
関連事項
* [[vlax-get-acad-object]]
* [[vla-get-activedocument]]


[[Category:AutoLISP]]