Vla-add

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

構文

ブロック： (vla-Add vla-object insertionPoint name)

UCS : (vla-Add vla-object origin XAxisPoint YAxisPoint name)

ハイパーリンク: (vla-Add vla-object name Description NamedLocation)

印刷設定 : (vla-Add vla-object name ModelType)

ディクショナリ, 寸法スタイル, Documents, グループ; 画層, レイアウト, 線種, ポップアップメニュー, APP, 選択セット, 文字スタイル, ツールバー, ビュー, ビューポートUCS :

(vla-Add vla-object name)

機能: タイプによりなにかを追加する。

引数

ブロック：

vla-object … VLAオブジェクト
insertionPoint … 挿入点
name … ブロック名の文字列

UCS :

vla-object … VLAオブジェクト
origin … 基点（3D）
XAxisPoint … UCS の X 軸上の正の点
YAxisPoint … UCS の Y 軸上の正の点
name … UCS名の文字列

ハイパーリンク:

vla-object … VLAオブジェクト
name … ハイパーリンクの飛び先の文字列
Description … ハイパーリンクの説明の文字列
NamedLocation … ハイパーリンクの名前の文字列

印刷設定

vla-object … VLAオブジェクト
name … 印刷設定名の文字列
ModelType … ブール値 TRUE=モデル、 False=レイアウト

ディクショナリ, 寸法スタイル, Documents, グループ; 画層, レイアウト, 線種, ポップアップメニュー, APP, 選択セット, 文字スタイル, ツールバー, ビュー, ビューポートUCS :

vla-object … VLAオブジェクト
name … 追加する名前の文字列

戻り値: VLAオブジェクト。

サンプル

(defun c:al-add ()
  ; 選択セットを追加するコマンド
  (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-SelectOnScreen newSet)
  (princ)
);_end_defun


; ダンプ
(vlax-dump-object )