「Vla-handletoobject」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-handletoobject ''vla-object'' ''handle'') ; 機能 : 指定されたハンドル に対応するオブジェクトを取得する。 ; ...」)
 
編集の要約なし
 
22行目: 22行目:
(vl-load-com)
(vl-load-com)
(defun c:Example_HandleToObject()
(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.
     ;; この例は、モデル空間でスプラインを作成し、スプラインのハンドルを返した後に、
     ;; この例は、モデル空間でスプラインを作成し、スプラインのハンドルを返した後に、
     ;; スプラインのオブジェクトから色を返す。
     ;; スプラインのオブジェクトから色を返す。

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


関連事項