Vla-put-backgroundfill

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(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)
)


関連事項