Vla-put-showrotation

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

構文: (vla-put-showrotation vla-object bool )

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

引数

vla-object … VLAオブジェクト（GeomapImage、RasterImage、Wipeout）
bool … ブール型

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

戻り値: nil

サンプル

(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 " がなさげなんで用意しろよ。"))
    )
)