Vla-put-showrotation

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年2月15日 (月) 13:53時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-showrotation ''vla-object'' ''bool '' ) ; 機能 : ラスター イメージが、その回転値で表示されるかどうかを決...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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 " がなさげなんで用意しろよ。"))
    )
)

関連事項