Visual LISP, AutoLISP and General Customization
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Strip Mtext 2008

13 REPLIES 13
Reply
Message 1 of 14
mbuk
639 Views, 13 Replies

Strip Mtext 2008

Hi

Does anyone know if there is a version of Strip Mtext (or similar) which will work with AutoCAD 2008?

Mark
13 REPLIES 13
Message 2 of 14
Anonymous
in reply to: mbuk

What doesn't work in 2008?

--
Autodesk Discussion Group Facilitator


wrote in message news:5746620@discussion.autodesk.com...
Hi

Does anyone know if there is a version of Strip Mtext (or similar) which
will work with AutoCAD 2008?

Mark
Message 3 of 14
mbuk
in reply to: mbuk

I only saw lsp code for 2004.

I was only able to download version 3.00 c/w vlx and dcl files. Could you attach the latest version 3.07 c/w vlx and dcl files?
Message 4 of 14
Anonymous
in reply to: mbuk

It's not our program to give to you. Contact the author.

wrote in message news:5746916@discussion.autodesk.com...
I only saw lsp code for 2004.

I was only able to download version 3.00 c/w vlx and dcl files. Could you attach the
latest version 3.07 c/w vlx and dcl files?
Message 5 of 14
Anonymous
in reply to: mbuk

I don't have 3.07. Are you getting errors with 3.0?

I don't know what Steve changed between versions.


--
Autodesk Discussion Group Facilitator


wrote in message news:5746916@discussion.autodesk.com...
I only saw lsp code for 2004.

I was only able to download version 3.00 c/w vlx and dcl files. Could you
attach the latest version 3.07 c/w vlx and dcl files?
Message 6 of 14
Anonymous
in reply to: mbuk

http://www.theswamp.org/index.php?topic=17185.msg207658#msg207658

In that thread is the link to the most current version, as posted by Steve
Doman (the author).

"Mbuk" wrote in message news:5746916@discussion.autodesk.com...
I only saw lsp code for 2004.

I was only able to download version 3.00 c/w vlx and dcl files. Could you
attach the latest version 3.07 c/w vlx and dcl files?
Message 7 of 14
mbuk
in reply to: mbuk

Thank you Jeff
Message 8 of 14
sdoman
in reply to: mbuk

Thanks for posting the link Jeff.

: )
Message 9 of 14
sdoman
in reply to: mbuk

Hi Mark,

If you or anyone else is having trouble running StripMtext in AutoCAD 2008, I would appreciate knowing about that. I don't have that version of AutoCAD to test with. So your feedback about bugs or wish list items would be greatly appreciated.

Thanks,
Steve Doman
http://cadabyss.wordpress.com/
Message 10 of 14
mbuk
in reply to: mbuk

Hi Steve,

Thank you for the use of StripMtext. I have not had any trouble so far. The original version I downloaded had been written for AutoCAD 2004
I was not sure whether it would work bug free in 2008. Thanks to Jeff i was able to download version 3.09. It seems to work well.

By any chance do you have a lisp routine that allows changing the font or text height of Mtext. We have a routine that allows us to change text strings within multiple occurrences of ordinary text but does not allow the changing of strings within multiple occurrences of Mtext.
I would love be able to use this routine to change multiple occurrences of text strings, text height or font, for text, Mtext, and attribute text. If you know of anything or would like to help modify the one we have please let me know.
Any help is greatly appreciated.

Thanks.

Mark
Message 11 of 14
sdoman
in reply to: mbuk

> By any chance do you have a lisp routine that allows
> changing the font or text height of Mtext.

Sorry Mark, I don't have such a routine. But writing one to change the height property of Text and/or Mtext would be fairly simple. Changing Attributes height would be a little more complex.

I suggest starting a new topic and posting what code if any you have so far, along with a clear description of how the routine would interact with the user.

Regards,
Steve Doman
Message 12 of 14
mbuk
in reply to: mbuk

Thanks Steve
Message 13 of 14
bowa
in reply to: mbuk

Try this routine to change selected text, mtext or attdef to a specified text style. It will change the height, width and font of the entities to those specified in the text style. It won't work on attributes of blocks that have been inserted into your drawing. I haven't used it in 10 years but it should still work.
-------------------------------------
(defun c:CHSTYL (/ OLD CO ST NEWHT TEMP OLDHT NEWWID)
(setq OLD (ssget '((-4 . ""))))
(if OLD
(progn
(setq ST (getstring "\nNew text style: "))
(if (tblsearch "style" ST)
(progn (setq NEWHT (assoc 40 (tblsearch "style" ST)))
(if (not (> (cdr NEWHT) 0))
(progn (prompt "\n The style you have chosen has a preset height of 0.")
(prompt "\n The existing height of the text will be maintained.")
)
)
(setq CO 0)
(while (< CO (sslength OLD))
(progn (setq TEMP (entget (ssname OLD CO))
CO (1+ CO)
)
(if (or (= "TEXT" (cdr (assoc 0 TEMP))) (= "MTEXT" (cdr (assoc 0 TEMP))))
(progn (setq OLDHT (assoc 40 TEMP))
(setq NEWWID (assoc 41 (tblsearch "style" ST))
NEWHT (assoc 40 (tblsearch "style" ST))
)
(if (= (cdr NEWHT) 0.0)
(setq NEWHT OLDHT)
)
(setq TEMP (subst (cons 7 ST) (assoc 7 TEMP) TEMP))
(setq TEMP (subst NEWWID (assoc 41 TEMP) TEMP))
(setq TEMP (subst NEWHT (assoc 40 TEMP) TEMP))
(entmod TEMP)
)
)
)
)
)
(prompt "\n Next time select a text style that exists.")
)
)
(prompt "\n This routine works better if you select something.")
)
)
(prin1)
Message 14 of 14
mbuk
in reply to: mbuk

Thanks Bowa,

I tried it but all that happens is you are prompted
"This routine works better if you select something."

You are not prompted to select anything.

The first line
(setq OLD (ssget '((-4 . ""))))
returns nil. What is it looking for?

Mark

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report

”Boost