MText Background Mask settings LISP

[Anonymous]

Hello everyone,

Just wandering if you know of a LISP routine to set all mtext to a background mask size of 1.1 rather than the AutoCAD standard 1.5.

If anyone has any ideas how to achieve this please let me know.

Cheers.

[Jonathan3891]

Here ya go

color: 8

border: 1.1 

(defun c:mblank ( / js n dxf_ent)
	(setq js (ssget '((0 . "MTEXT"))))
	(cond
		(js
			(repeat (setq n (sslength js))
				(setq dxf_ent (entget (ssname js (setq n (1- n)))))
				(entmod (append dxf_ent '((90 . 1) (63 . 8) (45 . 1.1) (441 . 0))))
			)
		)
	)
)

[Anonymous]

Not sure what i am doing wrong but it wont work sorry DSM_dude.

Thanks

[Anonymous]

This is what i get.

Command: '_script
Command: (defun c:mblank ( / js n dxf_ent)
(_> (setq js (ssget '((0 . "MTEXT"))))
(_> (cond
((_> (js
(((_> (repeat (setq n (sslength js))
((((_> (setq dxf_ent (entget (ssname js (setq n (1- n)))))
((((_> (entmod (append dxf_ent '((90 . 1) (63 . 8) (45 . 1.1) (441 . 0))))
((((_> )
(((_> )
((_> )
(_> )    - It gets stuck here so I press enter then -
C:MBLANK

Is there input i meant to be giving?!

Thanks in advance.

[hmsilva]

---

@Anonymous wrote:

Not sure what i am doing wrong but it wont work sorry DSM_dude.

Thanks

---

Dustin,

try to load the DSM_dude's code in VLIDE or save the file and load it to test...

This Lee Mac's tutorials should be helpful.

How to Run an AutoLISP Program

An Introduction to the Visual LISP IDE

Hope this helps,
Henrique

[Jonathan3891 · Accepted solution]

Its working fine on my end.

Try this working lisp.

[Anonymous]

Sorry mate this Script is still not working correctly.

What am I doing wrong?

[Jonathan3891 · Accepted solution]

After seeing your post above, your trying to load this like a script. This isn't a script and cant be loaded as such.

Use the command APPLOAD and load it through that window.

After its loaded, type "MBLANK"

Are you using AutoCAD Lite?

[Anonymous]

How you change the color to match the drawing background color?

[Jonathan3891]

This will set the color to match the background.

(defun c:mblank ( / js n dxf_ent)
	(setq js (ssget '((0 . "MTEXT"))))
	(cond
		(js
			(repeat (setq n (sslength js))
				(setq dxf_ent (entget (ssname js (setq n (1- n)))))
				(entmod (append dxf_ent '((90 . 3) (63 . 256) (45 . 1.1) (441 . 0))))
			)
		)
	)
)

[Anonymous]

Does this apply to MLEADER as well?

[Jonathan3891]

No that code only works for Mtext.

If you need something for Mleaders, try this;

(defun c:test (/ ss i)
  (if (setq ss (ssget '((0 . "MULTILEADER"))))
    (repeat (setq i (sslength ss))
      (setpropertyvalue (ssname ss (setq i (1- i))) "MText/BackgroundFill" 1)))
  (princ)
)

[Anonymous]

Thank you! This is great. I do have one more request....can you set the background mask offset on the MLEADER to 1.1 (or match the MTEXT)?

[calDRPMQ]

How do you set it to use the drawing background colour?