Vla-addraster

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

構文: (vla-addraster vla-object1 ImageFileName InsertionPoint ScaleFactor RotationAngle)

機能: 既存のイメージファイルに基づいて、新しいラスターイメージ図形を作成します。

引数

vla-object1 … VLA オブジェクト (Block、ModelSpace、PaperSpace)
ImageFileName … イメージの絶対パスとファイル名の文字列
InsertionPoint … ラスターイメージが作成される図面内の位置を示す 3D WCS 座標。
ScaleFactor … ラスターイメージの尺度係数（正数のみ）。既定のイメージ尺度係数は 1。ジオメトリの尺度に合わせて、イメージの尺度を設定することができる。
RotationAngle … ラスターイメージ回転角度(ラジアン)。

戻り値: 作成された図形の VLAオブジェクト

サンプル

(vl-load-com)
(defun c:Example_AddRaster()
    ;; モデル空間にラスター図形を追加するサンプル
    (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))

    ;; ファイル名 "raster.jpg" のファイルを追加するので適当に用意する。
    (setq insertionPoint (vlax-3d-point 5 5 0)
          imageName ".\\Sample\\raster.jpg"
          scalefactor 1
          rotationAngle 0)
    
    ;; ラスター追加
    (if (/= (findfile imageName) nil)
        (progn
            (setq modelSpace (vla-get-ModelSpace doc))
            (setq rasterObj (vla-AddRaster modelSpace (findfile imageName) insertionPoint scalefactor rotationAngle))
    
            (vla-ZoomExtents acadObj)
        )
        (alert (strcat imageName " が見つかりません。"))
    )
)