Topic: text removal question

[diarmuid]

is there a routine out there i can get my hands on that will allow me to delete a word in a dtext line by just selecting it with the pickbox?

"...all concrete proposed surrounds to be minimum 200MM thick"

i want to remove the words "proposed"

we have alot of drawings that are now as built so "proposed" is now defunct.

thanks in advance

Diarmuid

[MP]

Varous text search and replace utilities abound on the net, just use a capable one and search for "proposed", replace with "".

[VerticalMojo]

Varous text search and replace utilities abound on the net, just use a capable one and search for "proposed", replace with "".

find and replace..... thats my bet too....

[diarmuid]

its a little bit more complicated than what your suggesting, because some of the discipline have used prop. instead of proposed and there is still other sections of the complex, not part of this contract that is still proposed.

so a blanket find and replace would not be suitable in this instance.

thanks in advance

Diarmuid

[MP]

Friendly note: The applicablility of a proposed solution is generally proportionate to the clarity of the problem definition.

[VerticalMojo]

its a little bit more complicated than what your suggesting, because some of the discipline have used prop. instead of proposed and there is still other sections of the complex, not part of this contract that is still proposed.

so a blanket find and replace would not be suitable in this instance.

thanks in advance

Diarmuid

I see...... yer right, It would be routine then.... Sorry cant help you there Diarmuid

[Mark]

is this what you want??

warning ..... no error checking ....... use at your own risk

Code: [Select]


(defun c:rword (/ word ent obj txt_str new_txt_str)
  (setq word (getstring "\nEnter word to remove: "))

  (while
(setq ent (car (entsel "\nPick Dtext...")))

(setq obj (vlax-ename->vla-object ent))

(setq txt_str   (vlax-get-property obj 'TextString)
  new_txt_str (vl-string-subst "" (strcat " " word) txt_str)
  )

(vlax-put-property obj 'TextString new_txt_str)

(vlax-release-object obj)
)
  (princ)
  )


[Keith™]

I still fail to see why Find cannot be used. If you know what the string is, and which you wish to change, it is a simple proposition to select the group to change and apply the change to that group only. Simply apply it for each variation of "proposed"

[VerticalMojo]

I was thinking maybe he wanted to do it all at once without having some extra steps involved (like having to do proposed, then another for prop.).....

[Keith™]

Well if that is the case, we need a whole lot more information than what has been given to date, and the program would not be useful once it has done it's job.

[diarmuid]

thanks Mark, what i'm looking for is to just initiate the routine by a button and just pan through the drawing and with the mouse just select the word, which would be in the middle of a sentence or at the start or end etc and just click on it and it is deleted, then move to the next piece of text, the technican will have A3 mark ups with the words to be deleted circled.

Keith Quoted:
I still fail to see why Find cannot be used. If you know what the string is, and which you wish to change, it is a simple proposition to select the group to change and apply the change to that group only. Simply apply it for each variation of "proposed"

its a little more complicated than that, keith, in the sence that we would be hoping for students etc in the summertime to be able to comein and perform that task which is mindnumbingly boring. and its simple to show how to use.

the programme would still have a purpose in our company because we have a policy of removing the words "prop." "proposed" and "future" from all of our engineering jobs.  to date on one current project there are 400 drawings.  this programme would allow a junior technician to go through the drawings an eliminate the said words.  (all of our text is in dtext, its the standard).  so it does have a useful function, because it streamlines the drafting process, and eliminates the repetition of having to edit the text and remove the text etc...

thanks for the help guys

[Mark]

thanks Mark, what i'm looking for is to just initiate the routine by a button and just pan through the drawing and with the mouse just select the word, which would be in the middle of a sentence or at the start or end etc and just click on it and it is deleted, then move to the next piece of text, the technican will have A3 mark ups with the words to be deleted circled.

That's basically what I did, right?

[diarmuid]

ok stupid question...

i've tried to run the file, i'm only at my machine as of this minute and i seem to be unable to get the file to run.  i've tried saving it as .lsp, .fas, .vlx, .arx and it wont run?

i must be doing something stupid...

[Mark]

copy text in "code" window
paste to file (notepad)
saveas rword.lsp
drag -n- drop from Windows Explorer into ACAD
on the command line in ACAD type in rword
did that work?
HTH

[diarmuid]

it did work,(i never copied one of the brackets, duhhhh, if i had a brain...) but would it be possible to just select the word that was to be deleted.

ie.  start the lisp...select "prop" in a dtext line and it goes...then just select "future" on a different line and zap it goes as well?

Thanks Mark

[hendie]

think in this situation, since the exact string is known, I would have been tempted to use "superfind" ~ that way, you wouldn't even need to open the drawings and the whole thing could be done in minutes instead of having someone sit there and go through the entire list manually.

[Mark]

Another version with error checking.

http://www.theswamp.org/swamp.files/mark/lisp/rword.lsp

[ELOQUINTET]

ah the ineveitable question  

how to modify to work with mtext too

[Keith™]

If'n you are talking about Marks routine it will work with MText as well as DText, the only thing I can see is that it does not find words at the beginning of the sentence unless you preceed them with a space. but otherwise a good tool

[Mark]

ah the ineveitable question  

how to modify to work with mtext too

Open acad_dev.chm
go to ActiveX and VBA Reference
click on Object Model
scroll down til you see MText (in blue) click on it
examine Properties

[ELOQUINTET]

mmm downloaded the latest and doesn't work:

"selected object was not dtext"

[Mark]

mmm downloaded the latest and doesn't work:

"selected object was not dtext"

No it won't. See post above yours.

[Keith™]

Oh .. so you posted a NEW version ... I was looking at the one where you posted the code.