Vla-getname

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年1月31日 (日) 20:36時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-getname ''vla-object'' ''obj'' '''' '''' ) ; 機能 : ディクショナリ内のオブジェクトの名前(キーワード)を取得す...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-getname vla-object obj ' ' )


機能
ディクショナリ内のオブジェクトの名前(キーワード)を取得する。


引数
  • vla-object … Dictionary のVLAオブジェクト
  • obj … キーワードを調べたいオブジェクト。


戻り値
オブジェクトの名前(キーワード)。


  • たとえば、次のディクショナリでオブジェクト「Object2」を調べると、「SecondKeyword」という名前が返される。
  • MyDictionary
  • Keyword - Object
  • FirstKeyword - Object1
  • SecondKeyword - Object2


サンプル
(vl-load-com)
(defun c:Example_GetName()
    ;; 辞書を作成し、その辞書にカスタムオブジェクトを追加するサンプル。

    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq dictionaries (vla-get-Dictionaries doc))
  
    (setq dictObj (vla-Add dictionaries "TEST_DICTIONARY"))
    
    ;; カスタム オブジェクトを定義した ObjectARX アプリケーションをロードする。
    ;; 注: ここに記載されているアプリケーションが存在しないと実行時エラーになる。
    ;;     ObjectARX アプリケーションの名前とパスにアプリケーション名を変更する。
    (vla-LoadArx acadObj "MyARXApp.dll")
    
    ;; 辞書でカスタム オブジェクトを作成。
    (setq keyName "OBJ1")
    (setq className "CAsdkDictObject")

    (setq customObj (vla-AddObject dictObj keyName className))

    ;; 辞書からオブジェクトのキーワードを見つける
    (setq keyName (vla-GetName dictObj customObj))
)

関連事項