Vla-addのソースを表示

{{AutoLISP}}
; 構文
: ブロック： (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オブジェクト。


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

</pre>

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

[[Category:AutoLISP]]