topic Re: MText Background Mask settings LISP in Visual LISP, AutoLISP and General Customization Forum

MText Background Mask settings LISP

Anonymous — Thu, 21 Jan 2016 06:15:49 GMT

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.

Re: MText Background Mask settings LISP

Jonathan3891 — Thu, 21 Jan 2016 13:21:02 GMT

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))))
			)
		)
	)
)

Re: MText Background Mask settings LISP

Anonymous — Fri, 22 Jan 2016 02:13:38 GMT

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

Thanks

Re: MText Background Mask settings LISP

Anonymous — Fri, 22 Jan 2016 02:20:55 GMT

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.

Re: MText Background Mask settings LISP

hmsilva — Fri, 22 Jan 2016 09:44:11 GMT

@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

Re: MText Background Mask settings LISP

Jonathan3891 — Fri, 22 Jan 2016 12:33:16 GMT

Its working fine on my end.

Try this working lisp.

Re: MText Background Mask settings LISP

Anonymous — Thu, 28 Jan 2016 01:51:06 GMT

Sorry mate this Script is still not working correctly.

What am I doing wrong?

Re: MText Background Mask settings LISP

Jonathan3891 — Thu, 28 Jan 2016 13:49:06 GMT

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?

Re: MText Background Mask settings LISP

Anonymous — Thu, 13 Dec 2018 15:57:49 GMT

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

Re: MText Background Mask settings LISP

Jonathan3891 — Thu, 13 Dec 2018 16:08:13 GMT

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))))
			)
		)
	)
)

Re: MText Background Mask settings LISP

Anonymous — Thu, 13 Dec 2018 16:32:54 GMT

Does this apply to MLEADER as well?

Re: MText Background Mask settings LISP

Jonathan3891 — Thu, 13 Dec 2018 16:39:56 GMT

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)
)

Re: MText Background Mask settings LISP

Anonymous — Thu, 13 Dec 2018 16:49:58 GMT

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)?

Re: MText Background Mask settings LISP

calDRPMQ — Sun, 19 Nov 2023 23:05:03 GMT

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