Vla-handletoobject

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

構文: (vla-handletoobject vla-object handle)

機能: 指定されたハンドルに対応するオブジェクトを取得する。

引数

vla-object … VLA オブジェクト
handle … ハンドル

戻り値: 指定されたハンドルに対応するオブジェクト

サンプル

(vl-load-com)
(defun c:Example_HandleToObject()
    ;; This example creates a spline in model space, and returns the
    ;; handle for the spline. Then the spline is returned from the handle and colored.
    ;; この例は、モデル空間でスプラインを作成し、スプラインのハンドルを返した後に、
    ;; スプラインのオブジェクトから色を返す。
    (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)
)