Vla-put-backgroundfill

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

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

機能: マルチテキストの背景を塗り潰しにするかどうかを指定する。

引数

vla-object … VLAオブジェクト（GeoPositionMarker、MText）
bool … ブール型

:vlax-True: 背景塗り潰しは有効。
:vlax-False: 背景塗り潰しが無効。

戻り値: nil

MText : このプロパティに含まれている値は、[プロパティ]パレットの[背景マスク]プロパティ。

サンプル

(vl-load-com)
(defun c:Example_BackgroundFill()
    ;; マルチテキストを作成して塗りつぶしを切り替えるサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    ;; 円を作成
    (setq CircleReference (vlax-3d-point 0 0 0)
          radius 0.5)
    (setq modelSpace (vla-get-ModelSpace doc))  
    (setq circleObj (vla-AddCircle modelSpace CircleReference radius))
    (vla-ZoomAll acadObj)
    (alert "円を描いたよ。")
    
    ;; マルチテキストを背景塗りつぶしありで作成
    (setq width 5
          text "This is the text for the MText object")
    (setq MTextObj (vla-AddMText modelSpace CircleReference width text))
    (vla-put-AttachmentPoint MTextObj 5)
    (vla-put-InsertionPoint MTextObj CircleReference)
    (vla-put-BackgroundFill MTextObj :vlax-true)
    (vla-ZoomAll acadObj)
)