Vla-get-clippingenabled

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

構文: (vla-get-clippingenabled vla-object)

機能: クリップ境界のオン/オフを取得する。

引数

vla-object … VLAオブジェクト（DgnUnderlay、DwfUnderlay、GeomapImage、PdfUnderlay、RasterImage、Wipeout）

戻り値

bool … ブール値

Vlax-True : クリップ境界は有効。
Vlax-False : クリップ境界は無効。

サンプル

(vl-load-com)
(defun c:Example_ClipBoundary()
    ;; モデル空間でラスター イメージを追加し、クリップ境界に基づいて
    ;; 画像を切り取るサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    ;; サンプル ディレクトリにある "2d Projected Polylines.jpg"を使用する。
    ;; ファイルの場所は imageName 変数で調整
    (setq insertionPoint (vlax-3d-point 5 5 0)
          imageName ".\\Sample\\VISP\\2d Projected Polylines.jpg"
          scalefactor 2
          rotationAngle 0)

    (if (/= (findfile ".\\Sample\\VISP\\2d Projected Polylines.jpg") nil)
        (progn  
	    ;; モデルにラスターを配置
            (setq modelSpace (vla-get-ModelSpace doc))
            (setq rasterObj (vla-AddRaster modelSpace (findfile ".\\Sample\\VISP\\2d Projected Polylines.jpg") insertionPoint scalefactor rotationAngle))
    
	    (vla-ZoomAll acadObj)
	    (alert "イメージをクリップ？")
	    
	    ;; クリップ境界の設定
	    (setq clipPoints (vlax-make-safearray vlax-vbDouble '(0 . 9)))
	    (vlax-safearray-fill clipPoints '(6 6.75
                                              7 6
                                              6 5
                                              5 6
                                              6 6.75
                                             )
            )
	    
	    ;; イメージのクリップ
	    (vla-ClipBoundary rasterObj clipPoints)
	    
	    ;; クリップの表示を有効に
	    (setq flg (vla-get-ClippingEnabled rasterObj))
	    (if (= 'vlax-True flg)
              (alert "クリップは有効状態です。")
              (alert "クリップは無効状態です。")
            )

	    ;; クリップの表示を有効に
	    (vla-put-ClippingEnabled rasterObj :vlax-true)
	    (vla-Regen doc acActiveViewport)
	    (alert "クリップを有効にしますた")
        )
        (alert (strcat imageName " がないっす。"))
    )    
)