Vla-get-keyword

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年2月1日 (日) 10:29時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-keyword ''vla-object'') ; 機能 : 図面の検索に使用するキーワードを取得する。 ; 引数 :* vla-object … Summar...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-put-keyword vla-object)


機能
図面の検索に使用するキーワードを取得する。


引数
  • vla-object … SummaryInfo の VLAオブジェクト


戻り値
キーワードの文字列


サンプル
(vl-load-com)
(defun c:Example_keyword()
    ;; 図面プロパティにアクセスするサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq summaryInfo (vla-get-SummaryInfo doc))
  
    ;; 標準プロパティを追加・表示
    (vla-put-Author summaryInfo "太郎")
    (vla-put-Comments summaryInfo "設計者")
    (vla-put-HyperlinkBase summaryInfo "http://wiki.gz-labs.net")
    (vla-put-Keywords summaryInfo "xxxビル 施工図")
    (vla-put-LastSavedBy summaryInfo "JD")
    (vla-put-RevisionNumber summaryInfo "12")
    (vla-put-Subject summaryInfo "xxxビル 配置図")
    (vla-put-Title summaryInfo "xxxビル")

    (setq author (vla-get-Author summaryInfo))
    (setq comments (vla-get-Comments summaryInfo))
    (setq HLB (vla-get-HyperlinkBase summaryInfo))
    (setq KW (vla-get-Keywords summaryInfo))
    (setq LSB (vla-get-LastSavedBy summaryInfo))
    (setq RN (vla-get-RevisionNumber summaryInfo))
    (setq subject (vla-get-Subject summaryInfo))
    (setq Title (vla-get-Title summaryInfo))
    (alert (strcat "The standard drawing properties are "
                   "\n作成者 = " author
                   "\nコメント = " comments
                   "\nハイパーリンクベース = " HLB
                   "\nキーワード = " KW
                   "\n最終更新 = " LSB
                   "\nリビジョンナンバー = " RN
                   "\n表題 = " Subject
                   "\nタイトル = " Title
           )
    )
  
    ;; カスタムプロパティを追加・表示
    (setq CustomPropertyBranch "Branch")
    (setq PropertyBranchValue "Main")
    (setq CustomPropertyZone "Zone")
    (setq PropertyZoneValue "Industrial")

    ;; カスタムプロパティを追加
    (if (>= (vla-NumCustomInfo summaryInfo) 1)
        (vla-SetCustomByIndex summaryInfo 0 CustomPropertyBranch PropertyBranchValue)
        (vla-AddCustomInfo summaryInfo CustomPropertyBranch PropertyBranchValue)
    )

    (if (>= (vla-NumCustomInfo summaryInfo) 2)
        (vla-SetCustomByKey summaryInfo CustomPropertyBranch "Satellite")
        (vla-AddCustomInfo summaryInfo CustomPropertyZone PropertyZoneValue)
    )

    ;; カスタムプロパティを取得
    (vla-GetCustomByIndex summaryInfo 0 'Key0 'Value0)
    (setq Key1 CustomPropertyZone)
    (vla-GetCustomByKey summaryInfo Key1 'Value1)
  
    (alert (strcat "この図面のカスタムプロパティ "
                   "\n1番目のプロパティ名 = " Key0
                   "\n1番目のプロパティの値 = " Value0
                   "\n2番目のプロパティ名 = " Key1
                   "\n1番目のプロパティの値 = " Value1
           )
    )

    ;; カズタムプロパティをリムーブ
    (vla-RemoveCustomByIndex summaryInfo 0)
    (vla-RemoveCustomByKey summaryInfo Key1)
)

関連事項