Vla-put-truecolorimages

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年1月14日 (木) 13:34時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-truecolorimages ''vla-object'' ''bool'') ; 機能 : ラスター イメージおよびレンダリング イメージが True Color で...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-put-truecolorimages vla-object bool)


機能
ラスター イメージおよびレンダリング イメージが True Color で表示されるか、パレット色で表示されるかを指定する。


引数
  • vla-object … PreferencesDisplay の VLAオブジェクト
  • Bool … ブール型
  • :vlax-True: ラスター イメージおよびレンダリング イメージを、オペレーティング システムで可能な最大の色解像度で表示する。
  • :vlax-False: ラスター イメージおよびレンダリング イメージをパレットの色で表示する。


戻り値
nil


  • MEMO: このプロパティの初期値は False。
サンプル
(vl-load-com)
(defun c:Example_TrueColorImages()
    ;; ラスターとレンダリング画像の色を読み取り、変更して元に戻すサンプル。
    ;; 
    ;; このサンプルではの「2d Projected Polylines.jpg」を使用するので用意しておくこと
    ;; 
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    ;; Define Raster object
    (setq insertionPoint (vlax-3d-point 5 5 0)
          imageName ".\\Sample\\VBA\\2d Projected Polylines.jpg" ; パスは適切に変更
          scalefactor 5
          rotationAngle 0)

    (if (/= (findfile imageName) nil)
        (progn
            ;; ラスターイメージを作成
            (setq modelSpace (vla-get-ModelSpace doc))
            (setq raster (vla-AddRaster modelSpace (findfile imageName) insertionPoint scalefactor rotationAngle))
            (vla-ZoomExtents acadObj)

            ;; 読み込み
            (setq ACADPref (vla-get-Display (vla-get-Preferences acadObj)))
    
            ;; 読み込んでで表示
            (setq originalValue (vla-get-TrueColorImages ACADPref))
            (alert (strcat "現在の TrueColorImages の設定は: " (if (= originalValue :vlax-true) "True" "False")))

            ;; 設定変更
            (vla-put-TrueColorImages ACADPref (if (= originalValue :vlax-true) :vlax-false :vlax-true))
            (vla-Regen doc acAllViewports)
    
            (alert (strcat "TrueColorImages の設定を次に変更 : " (if (= (vla-get-TrueColorImages ACADPref) :vlax-true) "True" "False")))

            ;; 戻す
            ;;
            ;; * Note: 戻したくなくば、コメントアウトするがよい
            (vla-put-TrueColorImages ACADPref originalValue)
            (vla-Regen doc acAllViewports)
    
            (alert (strcat "TrueColorImages の設定を次に戻します : " (if (= (vla-get-TrueColorImages ACADPref) :vlax-true) "True" "False")))
	       )
        (alert (strcat imageName " could not be found."))
    )
)

関連事項