更改 AcDbMText 对象的背景掩码属性

admin

1. (defun toggleBackgroundMaskOfAMText (en / ed)
2.   (setq ed (entget en))   ; Sets ed to the entity data
3.   (setq atom90 (assoc 90 ed))
4.   (if (= atom90 nil)
5.     ;; no 90 groud code at all
6.     (progn
7.       (setq lst90 (cons 90 1))
8.       (setq atom63 (cons 63 1))
9.       (setq ed (append ed (list atom63 lst90)))
10.       ;; Add the 63 group code to set the background color as 1 (RED)
11.     )
12.     (progn
13.       (setq maskProp (cdr atom90))
14.       (if (= (boole 1 maskProp 1) 1)
15. (setq new90 (cons 90 2))
16. (setq new90 (cons 90 1))
17.       )
18.       (setq ed
19.       (subst new90
20.       (assoc 90 ed) ; Toggle the value of 90 group in ed.
21.       ed
22.       )
23.       )
24.     )
25.   )
27.   (entmod ed)
28.   (princ)
29. )
31. (defun c:testBGMask ()
32.   (toggleBackgroundMaskOfAMText
33.     (car (entsel))
34.   )
35. )
38.         kFillTextBox            = 0x1
39.         kFillTextBoxBackground  = 0x2
40.         kUseWordBreak           = 0x4
41.         kCheckedForUseWordBreak = 0x8

复制代码