Vla-get-annotation

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

構文: (vla-get-annotation vla-object)

機能: 引出線の注釈オブジェクトを取得する。

引数

vla-object … Leader の VLAオブジェクト

戻り値: 引出線の注釈オブジェクト。引出線の注釈は、公差オブジェクト、マルチテキストオブジェクト、ブロック参照のどれでもかまわない。

注意：すべての引出線に注釈オブジェクトがあるわけではない。引出線に注釈がない場合、このプロパティは Nothing (論理的な False)を返す。論理的な False 値をテストするには、Nothing キーワードを使用する。

サンプル

(vl-load-com)
(defun c:Example_Annotation()
    ;; 引き出し線をモデルに追加して注釈を設定するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    ;; マルチテキストの設定
    (setq insertionPoint (vlax-3d-point 5 5 0)
          textString "ふっふー。"
          width 2)
    
    ;; マルチテキストを作成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq MTextObj (vla-AddMText modelSpace insertionPoint width textString))
    
    ;; 引き出し線のデータ
    (setq points (vlax-make-safearray vlax-vbDouble '(0 . 8)))
    (vlax-safearray-fill points '(0 0 0
                                  4 4 0
                                  4 5 0
                                ))
    (setq leaderType acLineWithArrow)
       
    ;; 引き出し線をマルチテキストに紐づけしてモデルに作成
    (setq annotationObject MTextObj)
    (setq leaderObj (vla-AddLeader modelSpace points annotationObject leaderType))
    (vla-ZoomAll acadObj)

    (alert "注釈付き引き出し線できますた。")
    (vlax-dump-object (vla-get-annotation leaderObj))
)