「Vla-handletoobject」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-handletoobject ''vla-object'' ''handle'') ; 機能 : 指定されたハンドル に対応するオブジェクトを取得する。 ; ...」) |
細編集の要約なし |
||
| 22行目: | 22行目: | ||
(vl-load-com) | (vl-load-com) | ||
(defun c:Example_HandleToObject() | (defun c:Example_HandleToObject() | ||
;; この例は、モデル空間でスプラインを作成し、スプラインのハンドルを返した後に、 | ;; この例は、モデル空間でスプラインを作成し、スプラインのハンドルを返した後に、 | ||
;; スプラインのオブジェクトから色を返す。 | ;; スプラインのオブジェクトから色を返す。 | ||
2014年8月11日 (月) 16:26時点における最新版
- 構文
- (vla-handletoobject vla-object handle)
- 機能
- 指定されたハンドル に対応するオブジェクトを取得する。
- 引数
-
- vla-object … VLA オブジェクト
- handle … ハンドル
- 戻り値
- 指定されたハンドルに対応する オブジェクト
- サンプル
(vl-load-com)
(defun c:Example_HandleToObject()
;; この例は、モデル空間でスプラインを作成し、スプラインのハンドルを返した後に、
;; スプラインのオブジェクトから色を返す。
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
;; スプラインを生成
(setq startTan (vlax-3d-point 0.5 0.5 0)
endTan (vlax-3d-point 0.5 0.5 0)
fitPoints (vlax-make-safearray vlax-vbDouble '(0 . 8)))
(vlax-safearray-fill fitPoints '(1 1 0
5 5 0
10 0 0 ))
(setq modelSpace (vla-get-ModelSpace doc))
(setq splineObj (vla-AddSpline modelSpace fitPoints startTan endTan))
(vla-ZoomAll (vlax-get-acad-object))
;; スプラインのハンドルを検索
(setq handle (vla-get-Handle splineObj))
(alert (strcat "スプラインのハンドルは : " handle))
;; 見つかったハンドルのオブジェクトを返す
(setq tempObj (vla-HandleToObject doc handle))
;; 取得したオブジェクトに色を設定
(setq color (vlax-create-object "AutoCAD.AcCmColor.20"))
(vla-SetRGB color 80 100 244)
(vla-put-TrueColor tempObj color)
(vla-Regen doc :vlax-true)
(alert "スプラインは青になりますた。")
(vlax-release-object color)
)
関連事項