Global Text Style Change F1

Hello All,

Been beating this one to death in the searching. Simple problem hopefully with a simple solution. Acad2002

What we have is a lot of drawings that have several text styles defined in them. What we want is all of the text in a drawing chagned to 1 text style. I have seen lots of posts but none that seem to do what I am asking.

Any help would be greatly appreciated.

Thanks in advance.

"Catch" Ya Later,
AKDRAFTER

 

How's about trying to write it yourself?

This is a customization newsgroup, and we'll assist one on one...

with a simple solution. Acad2002

them. What we want is all of the text in a drawing chagned to 1 text style.
I have seen lots of posts but none that seem to do what I am asking.

 

If you were to consider third party software, the Drawing Find/Replace
tool in ToolPac 8.0 from http://www.dotsoft.com will do this with less
than a minute setup time. Processes dozens of drawings per minute
(depending on size).

Dialog example: http://www.dotsoft.com/images/dwgreplace.gif.

Terry

 

this will get it done but needs user input(select or specify the text style). what would be helpful is not having to give input and just hit enter to select the default. selecting the default is where i have the problem. i am not 'learned' enough in lisp to know how to do this.

(defun c:STC (/ a1 a2 n index b1 b2 d1 d2 b3 ww)
(command "-style" "SCHEDTEXT" "ROMANS" "" "0.85" "" "" "" "")
(setq #style "?")
(setq a1 (ssget "X" '((0 . "TEXT")))C -1)
(setq a2 (entsel "\nSelect entity on desired Style [SCHEDTEXT]:"));;;;;;;;this is what i want to be the default;;;
(setq n (sslength a1))
(setq index 0)
(if (= a2 nil)
(setq get 1)
)
(while get
(prompt "Style Name <")
(princ #style)
(setq d2 (getstring ">: "))
(setq d2 (strcase d2))
(setq d2 (cons 7 d2))

(setq get nil)
)

(if a2
(progn
(setq b2 (entget (car a2)))

(setq d2 (assoc 7 b2))
)
)
(repeat n
(setq b1 (entget (ssname a1 index)))
(setq d1 (assoc 7 b1))
(setq b3 (subst d2 d1 b1))
(entmod b3)
(setq index (+ index 1))
)

(princ)

)

 

Here is one - invoke the lsp and you will be prompted to SElect one or more texts or you can use STyle which will allow you to change ALL the text in a dwg to an existing style in the dwg. Once you have changed all text,
then you can purge the remainder.

(defun c:chgsty ()
(prompt "GLOBAL TEXT STYLE CHANGE. Copyright (c) 1987-2002 by Walt Engle.")
(terpri)
(setvar "cmdecho" 0)
(initget 1 "SE ST ")
(setq G (strcase (substr (getkword "SElection/<STyle>: ")1 2)))
(cond
((= G "SE")
(setq A (ssget))
(setq B (sslength A))
(initget 1) (setq C (getstring "\nEnter new text style: "))
(extang C)
(while
(> B 0)
(setq B (1- B))
(setq D (ssname A B))
(setq D (entget D))
(setq E (assoc 7 D))
(setq F (cons 7 C))
(setq D (subst F E D))
(setq H (assoc 51 D))
(setq I (cons 51 J))
(entmod (subst I H D))
)
(setq A nil)
)
((or (= G "ST") (= G ""))
(initget 1)
(setq A (strcase (getstring "\nEnter text style to change: ")))
(initget 1) (setq C (getstring "\nEnter new text style: "))
(setq D (entnext))
(extang C)
(while
D
(princ ".")
(setq E (entget D))
(if
(and (= "TEXT" (cdr (assoc 0 E))) (= A (cdr (assoc 7 E))))
(progn
(setq F (assoc 7 E))
(setq G (cons 7 C))
(setq E (subst G F E))
(setq H (assoc 51 E))
(setq I (cons 51 J))
(entmod (subst I H E))
)
)
(setq D (entnext D))
)
)
)
(princ)
)

 

You know, I could understand Terry's offering, but to just give defeats the
purpose of having this newsgroup. "Customization" or to LEARN how to
customize...

I would have to suggest just changing the name of this group to FREEWARE,
take and don't learn anything...

If he would have just posted,

(defun c:SG (/)
ssget, all, blocks, dimensions, text, mtext, etc.
create new style
check entity style
change style
exit
(princ)
)

Perhaps I being more of a teacher... than a giver...what's the point...

:-(

with a simple solution. Acad2002

them. What we want is all of the text in a drawing chagned to 1 text style.
I have seen lots of posts but none that seem to do what I am asking.

 

Mr. Tovar,

Sounds to me like someone is having a bad day. Tell ya what, move your chair from in front of your desk, stand up, walk outside and take a deep breath. Then, take another deep breath. Now, feel better?

I suggest that if you have nothing useful to say, then do NOT say anything at all. It was a simple question and request for something that someone probably already has. Why try and re-invent the wheel when the wheel works. I am not asking for someone to write some super intelligent program to do every bit of work there is for me to do. I have personally been learning from the fine folks in these newsgroups that are more than willing to help someone out without the attitude. I don't have money or time to spend at some overpriced school learning programming and to be honest, I don't want to. When I leave work my life begins and work is the farthest thing from my mind. My work is not my life.

In closing......Mr. Tovar, please do not respond to any of my posts anymore as I do NOT want your help. I do wish you well and I sincerely hope that life offers up all that is grand and wonderous.

And because this is a customization group. I wrote some code just to make this a valid post.

(defun c:fo (/)
(alert " FISH ON......YEAH BABY")
)

That's my story and I am sticking to it.

"Catch" Ya Later,
AKDRAFTER

 

Mr. Fish,

Try googling for "vla-put-TextStyle" in autodesk.autocad.customization

--
;;; For reply, change numbers to decimal

chair from in front of your desk, stand up, walk outside and take a deep
breath. Then, take another deep breath. Now, feel better?

at all. It was a simple question and request for something that someone
probably already has. Why try and re-invent the wheel when the wheel works.
I am not asking for someone to write some super intelligent program to do
every bit of work there is for me to do. I have personally been learning
from the fine folks in these newsgroups that are more than willing to help
someone out without the attitude. I don't have money or time to spend at
some overpriced school learning programming and to be honest, I don't want
to. When I leave work my life begins and work is the farthest thing from my
mind. My work is not my life.

anymore as I do NOT want your help. I do wish you well and I sincerely hope
that life offers up all that is grand and wonderous.

 

Then you're like everyone else that gets by on others ideas. I'm not having
a bad day, actually I'm quite happy. But it's sad to see individuals that
are not willing to learn... What's the point in helping you when you
"...don't even want to."

Tell me, how will you benefit from his financially?

I know that you will...imagine if you'd have to pay someone to do this for
you.

It's easy to get someone else to do it for you, isn't it...

I see a lot of honest individual that work all day and yet sacrifice their
time to learn something that will benefit them for ever, you could too. It's
easy to turn the tables and make someone else look like the villain, and
yourself an innocent bi-stander.

"Simple problem hopefully with a simple solution. Acad2002"

You're right about something. There is a simple solution.

And you're wrong about this,

"I don't have money or time to spend at some overpriced school learning
programming and to be honest, I don't want to."

That is completely free here.

"Why try and re-invent the wheel when the wheel works."

Self-satisfaction, and self-improvement.

"I have personally been learning from the fine folks in these newsgroups..."

Have you? "...I don't want to."

"In closing......Mr. Tovar, please do not respond to any of my posts anymore
as I do NOT want your help"

I'll make a note of that...

"I suggest that if you have nothing useful to say, then do NOT say anything
at all"

Who are you...? my mother? my teacher? a god?

This group is open to everyone willing to LEARN.

Revert back "...and we'll assist one on one" I offered.

--

AUTODESK
Authorized Developer

chair from in front of your desk, stand up, walk outside and take a deep
breath. Then, take another deep breath. Now, feel better?

at all. It was a simple question and request for something that someone
probably already has. Why try and re-invent the wheel when the wheel works.
I am not asking for someone to write some super intelligent program to do
every bit of work there is for me to do. I have personally been learning
from the fine folks in these newsgroups that are more than willing to help
someone out without the attitude. I don't have money or time to spend at
some overpriced school learning programming and to be honest, I don't want
to. When I leave work my life begins and work is the farthest thing from my
mind. My work is not my life.

anymore as I do NOT want your help. I do wish you well and I sincerely hope
that life offers up all that is grand and wonderous.

 

By the way Chuck Bradley, how the plumbing jobs in Wasilla, AK. 40 miles is
a lot to commute.

chair from in front of your desk, stand up, walk outside and take a deep
breath. Then, take another deep breath. Now, feel better?

at all. It was a simple question and request for something that someone
probably already has. Why try and re-invent the wheel when the wheel works.
I am not asking for someone to write some super intelligent program to do
every bit of work there is for me to do. I have personally been learning
from the fine folks in these newsgroups that are more than willing to help
someone out without the attitude. I don't have money or time to spend at
some overpriced school learning programming and to be honest, I don't want
to. When I leave work my life begins and work is the farthest thing from my
mind. My work is not my life.

anymore as I do NOT want your help. I do wish you well and I sincerely hope
that life offers up all that is grand and wonderous.

 

Rudy, you're getting smaller from post to post.

Hint: high road.


<stuff snipped>

 

Sorry, Michael, I sincerely would like him to learn.

Seems now a days no one has time.

I wasn't trying to pick on him from my first post, I simply want him to try.

Perhaps I'm getting to aggresive, if so, I apologize.

Just think back when we first learned.

 

Dude, folks are at varying stages of learning as well as
deadlines. It should not be a force feeding zone here.
Some folks come for a sandwich, some for a 3 course meal,
yet others come to peruse the menu and just try a few of
the free samples. Point is, the original poster identified
what he was after, and it did not sound like one of those
"and I want gravy on the fries" posts.

For someone aspiring to have his own internet based business
I'm somewhat surprised by your posts. Everyone is a potential
customer. Isn't that business tip 42 which you wave around
every so often to folks inquiring about starting their own
shop?

Peyote, just say no.

 

I got the point in the beginning, Michael.

I do regret having appeared to respond in a negative manner.

I will no longer be participating in this newsgroup, other than posting my
own question.

Once again, I sincerely appologize.

 

Don't be a drama queen, your perspective and coding perspective,
like everyone elses' has value; just leave the attitude somewhere
else ok?

(Surely a lesson in this for me too).

 

Please don't stop participating Rudy. I'm one of those that is trying to
learn this. I would classify myself as a combination of what you and
Michael have been describing. Sometimes I'm hoping for a quick solution,
other times I have the time to study it myself. Slowly but surely I'm
getting better. I have found your posts quite helpful.

Jeff

 

akdrafter,
At this time, with all the 'posts' you have asked answers for,
seems that you would appreciate the 'help' given freely on
this NG. You KNOW that all you have to do is to load a style
and 'stuff' it in all TEXT , MTEXT elements as (assoc 7),, and
done. You know, we give our time freely..and do not appreciate being 'used'. I wouldn't blame folks for 'ignoring' you in the future.
Robert L. Shaw

 

Mr Tovar,

By the way Chuck Bradley, how the plumbing jobs in Wasilla, AK. 40 miles is a lot to commute. <<< Cease and desist. It's not necessarily what you say, but how you say it. To me, the way that was "Said" that is a threat and will NOT be taken lightly. I DO live in Alaska. D right I do.

Confucious(sp) says, better to leave ones mouth shut and be thought a fool that to open it and remove all doubt.

Let's move on. This is not worth the time.

"Catch" Ya Later,
AKDRAFTER

 

While Rudy may have been a bit off the mark in his initial
reply to you, he is a genuine lad: he truly wants folks to
broaden their horizons -- this kind of venoumous lashing out
is uncalled for imo, certainly not very professional. I would
not be suprised if responses to your future requests for help
appear a bit on the thin side.

 

Hey Bob, seems I remember PROFUSELY thanking you and offering you the fishing trip of a lifetime if you came to Alaska. It also seems as though I remember you telling me the routine (text file import) that you helped me with was one you did not even write. Well Bob.... my offer still stands on the fishing and you have my word as a gentleman that I shall NEVER bother you or anyone else with my feable(sp) minded line drawing work hating arse.

This is sooooooooo childish and $$$$$ driven.

Yup, time for me to go fishing.

"Catch"....ooops.... later.....ooops.....

BYE
AKDRAFTER