- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi Everyone:
How to change the selected Existing MText into the same format.
For example:
change fill border: cons (62 . 4)
change background mask: "No or Yes" cons (90 . 1) or (90 . 2) or (90 . 3)
change background mask fill color: (Fill Color: Use drawing background color) or (Fill Color: background color)
cons (63 . 121)
Preferably, these parameters should be entered by the user first.
I tried but did not get good results:
(initget "Enabled Disabled")
(setq str90 (cond ((getkword "\nChoose Background Mask [Enabled/Disabled] <Enabled>: ")) ("Enabled")))
(if (= str90 "Enabled")
(setq num90 3)
)
(if (= str90 "Disabled")
(setq num90 2)
)
(setq num62 (getint "\nEnter MText Border Color:"))
(prompt "\nSelect MText")
(setq ss (ssget '((0 . "MTEXT"))))
(cond
(ss
(repeat (setq n (sslength ss))
(setq dxf_ent (entget (ssname ss (setq n (1- n)))))
(entmod (append dxf_ent '((90 . 3) (63 . 50) (62 . 121) (45 . 2.0) (441 . 0))))
)
)
)
Thank you for your guidance
Solved! Go to Solution.