A couple of newbie lisp questions / requests

[h_s_walker]

My company is soon going to be getting LT2025 after being stuck on LT2016 for ages.

Now I know if I want settings to load up everytime I need to put them in the *doc.lsp file.

What do I need put in the lisp file to change the following?

MTEXTCOLUMN 0

HPANNO 1

PASTESPECMODE 1

Those 3 will do for starters.

OK next request

We get sent drawings from clients all the time and I use the RENAME command to put "XCLIENT " in front of every entity so that all client stuff gets shoved to the bottom of the dialog boxes.

Is there a lisp which can run through the renaming of everything in the client drawing without me have to go through each and every group of items?

[MrJSmith]

@ronjonp I thought about that, but figured I should just give him what he asked for 😉

[pendean]

---

@h_s_walker wrote:

...Is there a lisp which can run through the renaming of everything in the client drawing without me have to go through each and every group of items?

---

Windows tools have been doing that for free for decades now (new login Howard?):

last one is first so it does not get lost in the shuffle:

https://www.pcmag.com/how-to/rename-multiple-files-at-once-in-windows#:~:text=The%20Best%20Amazon%20....

https://learn.microsoft.com/en-us/windows/powertoys/powerrename

https://www.bulkrenameutility.co.uk/

https://easyfilerenamer.com/blog/2018/02/07/rename-multiple-files-list-add-suffix-prefix/#:~:text=If....

https://www.advancedrenamer.com/#:~:text=Advanced%20Renamer%20is%20a%20program%20for%20renaming%20mu....

https://hp.vector.co.jp/authors/VA014830/english/FlexRena/

HTH

[MrJSmith]

@pendean I think you misunderstood him, he doesn't want to rename the files but rather the objects inside ACAD i.e. blocks and layers.

[pendean]

---

@MrJSmith wrote:

@pendean I think you misunderstood him, he doesn't want to rename the files but rather the objects inside ACAD i.e. blocks and layers.

---

Thanks for that.

[ronjonp]

---

@MrJSmith wrote:

@ronjonp He wanted all the named objects as listed in the RENAME command. That only handles the tables. You still have to do the dictionaries. 

---

I'm aware of that .. this was all the effort I wanted to put into this. 😎

I still think this is a much simpler solution: Another way to solve this sorting problem is to have a template and make all your layers blocks etc ...

[ronjonp]

---

@MrJSmith wrote:
@ronjonp I thought about that, but figured I should just give him what he asked for 😉

---

Why wouldn't you add it? It's a simple WCMATCH check.

[paullimapa]

for some reason when it comes to textstyles this line of code:

(vl-catch-all-apply '(lambda () (vla-put-name it (strcat prefix (vla-get-name it))))) 

Would yield following error

; error: ActiveX Server returned an error: Type mismatch

I had to resort to the old rename command:

(vl-cmdf "_.-Rename" "_Style" (vla-get-name it) (strcat prefix (vla-get-name it))) 

[john.uhden]

@paullimapa ,

Have you tried (vlax-invoke it 'get-name ....))?  Or even vlax-invoke-method?

I have found that for various species of the vla* family, certain varieties will work but others not.

[paullimapa · Accepted solution]

Since the setpropertyvalue method works I decided to code it like this:

       (if (eq "textstyles" table) ; add filter out to run different code for textstyles
        (if (not (tblsearch "style" (strcat prefix (vla-get-name it)))) ; add check if rename textstyle doesn't exist
         (setpropertyvalue (vlax-vla-object->ename it) "Name" (strcat prefix (vla-get-name it))) ; this works on textstyles
        )
        (vl-catch-all-apply '(lambda () (vla-put-name it (strcat prefix (vla-get-name it))))) ; this doesn't work on textstyles
       )

[h_s_walker]

@MrJSmith @ronjonp Thanks I'll try those when I get into work

@pendean No I just needed to change my username, because my work will use my old one for LT 2025

[Sea-Haven]

Just my $0.05 I stay away from acaddoc.lsp etc but rather have a custom lisp with all my start up code, you just do Appload and add to the "start up suite" it will run when you open a dwg.

[h_s_walker]

@Sea-Haven Yeah I am thinking of going that route.

[h_s_walker]

@MrJSmith Yep that is almost perfect as has been mentioned elsewhere it doesn't work on text styles

@paullimapa Where would I put your little snippet of code to make it work?

[paullimapa · Accepted solution]

attached is my modified version...

[h_s_walker]

@paullimapa Works perfectly. Cheers

@ronjonp Since the dinosaurs started crawling out of the primordial ooze

[paullimapa]

It was a group effort…cheers!!!

[Sea-Haven]

Glad to help, we ran a server so any updates to the autoload were straight away available. No customizing code on each pc.

[MrJSmith]

@paullimapa Interesting. Turns out the textstyles name property is read only. I've hence updated my code to include your fix.

[paullimapa]

Yes, very strange that it's only the case with textstyles. But glad that at least the setpropertyvalue method works.

[Sea-Haven]

Just a comment comparing Bricscad with LT2025 does not have the problem of missing lisp functions a definite drawback. Possibly better pricing also.