Vla-wblockのソースを表示

{{AutoLISP}}
; 構文
: (vla-wblock ''vla-object'' ''FileName'' ''SelectionSet'')


; 機能
: 指定された選択セットを新しい図面ファイルとして書き出す。


; 引数
:* vla-object … Document の vlaオブジェクト
:* FileName … 書き出すファイル名のパス
:* SelectionSet … 選択セットの名前


; 戻り値
: nil



; サンプル
<pre class="brush:autolisp;">
(defun c:all-wblock ()
; 全選択して wblock するサンプル
  (vl-load-com)
  (setq *actdoc* (vla-get-activedocument
                   (vlax-get-acad-object)))
  (setq ssets (vla-get-selectionsets *actdoc*))

  (if (vl-catch-all-error-p 
      (vl-catch-all-apply 'vla-item (list ssets "$Set")))
    (setq newSet (vla-add ssets "$Set"))
    (progn
      (vla-delete (vla-item ssets "$Set"))
      (setq newSet (vla-add ssets "$Set"))
     )
  )

  (vla-Select newSet acSelectionSetAll)
  (vla-wblock *actdoc* "c:/export/test.dwg" newSet)
  (princ)
)

</pre>

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


[[Category:AutoLISP]]