Vla-wblock

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

構文: (vla-wblock vla-object FileName SelectionSet)

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

引数

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

戻り値: nil

サンプル

(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)
)