Vla-addraster

提供:GizmoLabs - だいたい CAD LISP なサイト
2014年6月22日 (日) 21:46時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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 " が見つかりません。"))
    )
)


関連事項