Vla-get-showrotation

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-get-showrotation vla-object )


機能
ラスター イメージが、その回転値で表示されるかどうかを取得する。


引数
  • vla-object … VLAオブジェクト(GeomapImage、RasterImage、Wipeout)


戻り値
ブール型
  • :vlax-True: Rotation プロパティに格納された回転値でラスター イメージを表示する。
  • :vlax-False: Rotation プロパティに格納された回転値でラスター イメージを表示しない。


サンプル
(vl-load-com)
(defun c:Example_ShowRotation()
    ;; モデル空間でラスター イメージを追加し、イメージを回転するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    ;; "2d Projected Polylines.jpg" っていうファイルを使うので、
    ;; パス上に用意しとくこと
    (setq insertionPoint (vlax-3d-point 5 5 0)
          imageName ".\\Sample\\image\\2d Projected Polylines.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))

            ;; ラスター イメージの回転を90 度に制限。
            (vla-put-ShowRotation rasterObj :vlax-true)

            ;; ラスターを180度回転
            (vla-Rotate rasterObj insertionPoint 180)
            (vla-ZoomExtents acadObj)
        )
        (alert (strcat imageName " がなさげなんで用意しろよ。"))
    )
)

関連事項