Vla-put-keyword

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

構文: (vla-put-keyword vla-object keyword)

機能: 図面の検索に使用するキーワードを設定する。

引数

vla-object … SummaryInfo の VLAオブジェクト
keyword… キーワードの文字列

戻り値: nil

サンプル

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