Vla-put-backgroundfill

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年2月7日 (日) 11:31時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-backgroundfill ''vla-object'' ''bool'' ) ; 機能 : マルチ テキストの背景を塗り潰しにするかどうかを指定する...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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)
)


関連事項