Topic: Will PAY $$ fpr lsp - MODIFY TEXT

[mhcadman]

 

PLEASE HELP!!!!

MODIFYING EXISTING TEXT

1st- the text can be mtext, mostly the text will be plain text.

2nd - the command will be placed in a toolbar button, for example: (load "chgtxt");chtxt

3rd - yes I know how to perform theses tasks one at a time.. it gets old after hours and hours of repetitious attribute editing.

4th - please respond only if you can write the program..  criticism isn't going to solve anything...  this is the program I want, period.  Maybe  in return, I can help you with something in Microstation.

humble cad man,,,,, mike....

-------------------------------------------------------------------------------
I've tried searching the web and using ACAD help but I can't make this lsp happen.

I need a lsp program that will change existing text.......

Existing test is:   PLAN EL.180'-0"

I want to select existing text to change.
 
Once selected, I want the selected text to be "UNDERLINED (adding %%u to the beginning- %%uEL.180'-0" )", the "STYLE" to change to "STD35E", the
"HEIGHT" to change to 3", the "LAYER" to change to "CY1".

An additional "help" (but not required) would be to have the lsp read a "data file" to import the "STYLE, HEIGHT, and LAYER". (Underlining will always be required.)
Different "data files" for multiple requirements.

Sincerely,
Mike

[JohnK]

That doesn't sound like it isnt that hard of a procedure/request.

[mkweaver]

Here's something to get you up and running.  Note that the layer and the text style must already exist or the routine will fail.
Zero error checking here (and zero testing)

Code: [Select]

(defun chgtxt( / obj oldstring newstring)
  (setq
    obj (vlax-ename->vla-object (car (entsel)))
    OldString (vla-get-textstring obj)
    NewString (vla-put-textstring obj (strcat "%%U" oldstring))
    )
  (vla-put-stylename obj "STD35E")
  (vla-put-height obj 3)
  (vla-put-layer obj "CY1")
  )code]

[JohnK]

%%U doesnt work on mtext.

[T.Willey]

If you really want to pay for this, make a donation to theSwamp.

[ http://www.theswamp.org/donate.html ]

Code: [Select]

(defun c:MyTest (/ ActDoc)
   
    (setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
    (vla-EndUndoMark ActDoc)
    (vla-StartUndoMark ActDoc)
    (vla-Add (vla-get-Layers ActDoc) "CY1")
    (vla-Add (vla-get-TextStyles ActDoc) "STD35E")
    (if (ssget'((0 . "*TEXT")))
        (vlax-for obj (vla-get-ActiveSelectionSet ActDoc)
            (if (= (vla-get-ObjectName obj) "AcDbText")
                (vla-put-TextString obj (strcat "%%U" (vla-get-TextString obj)))
                (vla-put-TextString obj (strcat "{\\L" (vla-get-TextString obj) "}"))
            )
            (vla-put-StyleName obj "STD35E")
            (vla-put-Layer obj "CY1")
            (vla-put-Height obj 3)
        )
    )
    (vla-EndUndoMark ActDoc)
    (princ)
)


[JohnK]

*blink-blink*

[M-dub]

Nice thought, Tim. 

[T.Willey]

*blink-blink*

Hope I didn't step on your toes, or anyone else's.  Or did I not do what the OP wanted?

Nice thought, Tim. 

Thanks.

[JohnK]

Hope I didn't step on your toes, or anyone else's.  Or did I not do what the OP wanted?

I'm broke!! ...But, I guess $20 wouldn't have gotten me very much so no harm i guess. 

[T.Willey]

Hope I didn't step on your toes, or anyone else's.  Or did I not do what the OP wanted?

I'm broke!! ...But, I guess $20 wouldn't have gotten me very much so no harm i guess. 

I don't think the OP saw it yet, so I can take it away.   

Just for you.   

[Kerry]

Will PAY $$ fpr lsp

...But, I guess $20 wouldn't have gotten me very much .........

   I thought the offer was 2$ ( $$ )   

[T.Willey]

Will PAY $$ fpr lsp

...But, I guess $20 wouldn't have gotten me very much .........

   I thought the offer was 2$ ( $$ )   

If he's broke, 2$ is at least something to get him started.   

[JohnK]

Ok, im going to do some slight modifications to my version and you two are going to test it. But i need to know what bank you guys use and your favorite 4 digits first. 

[CAB]

You should add (vl-load-com) to the beginning of both of those lisp routines.
Just in case it wasn't loaded already.

[M-dub]

See, look at this...  This is typical of members of theSwamp.

Keep smilin' everyone.