Vla-get-urlnamedlocation
- 構文
- (vla-get-urlnamedlocation vla-object)
- 機能
- Hyperlink オブジェクトの 名前の付いた位置を取得する。
- 引数
-
- vla-object … Hyperlink の VLAオブジェクト
- 戻り値
- Hyperlink オブジェクトの名前の付いた位置を表す文字列。
- 注意 ： このプロパティは、CAD の名前の付いたビューやワード処理プログラム(ワープロ)のブックマークなどの一定の位置を指定する。CAD 図面のジャンプ先の名前の付いたビューを指定すると、ハイパーリンクが開かれたときに CAD は該当のビューを復元する。モデル空間で作成されたビューは[モデル]タブで呼び出される。ペーパー空間で作成されたビューは最後にアクティブだったレイアウト タブで呼び出される。
- サンプル
(vl-load-com)
(defun c:Example_URL()
;; 円を作成して、ハイパーリンクを追加するサンプル
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
;; 円の定義
(setq centerPoint (vlax-3d-point 0 0 0)
radius 5)
;; 円を生成
(setq modelSpace (vla-get-ModelSpace doc))
(setq circleObj (vla-AddCircle modelSpace centerPoint radius))
(vla-ZoomAll acadObj)
;; 円のハイパーリンクコレクションを取得
(setq Hyperlinks (vla-get-Hyperlinks circleObj))
;; ハイパーリンクコレクションを追加
(setq Hyperlink (vla-Add Hyperlinks "GizmoLabs"))
(vla-put-URL Hyperlink "wiki.gz-labs.net")
(vla-put-URLDescription Hyperlink "GizmoLabs Wiki")
(vla-put-URLNamedLocation Hyperlink "MY_LOCATION")
;; ハイパーリンクの内容を読み取って表示
(setq HLList "")
(vlax-for Hyperlink Hyperlinks
(setq HLList (strcat HLList "____________________________________" ;; セパレータ
"\nURL: " (vla-get-URL Hyperlink)
"\nURL の概要 : " (vla-get-URLDescription Hyperlink)
"\nURL ロケーション名: " (vla-get-URLNamedLocation Hyperlink)))
)
(alert (strcat "円が持っている " (itoa (vla-get-Count Hyperlinks)) " ハイパーリンク: \n" HLList))
)
関連事項