Script to pass objects to another layer..help

[SLW210]

Please read the Code posting guidelines and edit your post to include the Code in Code Tags.

[nmareis]

sorry i will go to read the article...thanks

[nmareis]

(defun c:clc()
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "RAMAISmdm")) 75) 
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "G_EM_CONSTRUCAO")) 75) 
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "C_ARRUAMENTOS")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "001_14_C_AUX_ALTERADO_NOVO")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "C_AUX_ALTERADO_NOVO")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "C_EDIFICACOES")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "C_EDIFICACOES_PUBLICAS")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "C_N_POLICIA")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "C_TERRENOS")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "C_TOPONIMIA")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "CROQUIS_MOLD500")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "MARGEM")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "MOLD500")) 75)
(princ)
)

[MSasu]

Are all those layers available in your drawing? Maybe is better to add a validation before attempting to adjust the colors:

(defun c:clc()
(if (setq layerTemp (tblobjname "LAYER" "RAMAISmdm"))
 (vla-put-color (vlax-ename->vla-object layerTemp) 75))
(if (setq layerTemp (tblobjname "LAYER" "G_EM_CONSTRUCAO"))
 (vla-put-color (vlax-ename->vla-object layerTemp) 75))
...
(princ)
)

By the way, I used the color 75 as example, you should adjust it to suit your standard.

[nmareis]

Thanks unable to resolve this situation now ... now I'm looking for a lisp to change various sizes of text in a drawing for one clearcut size for me.

you know of any? ..

 

Thank you.

[MSasu]

Please let me know if the above suggestion worked after will be able to test it.

 

looking for a lisp to change various sizes of text in a drawing for one clearcut size for me.

Not sure that understand; isn't enough to call QSELECT command, select all text entities and adjust their height in Properties?

[nmareis]

lol you're right ... I had not remembered me .. thanks:)

[nmareis]

true .. working with very large files ... is there any script to clear all existing garbage in the drawing? .. or is it better to just do the purge?

[MSasu]

It really depends what you mean by "existing garbage". The purge will get rid of unused entities. May also worth to take a look to OVERKILL command (from Express pack).

[nmareis]

overkill the design destroys anything? ... or just clean what's more?

[MSasu]

It deal with duplicate and/or overlapped entities; please check in Express help for details.

[Tuns]

I personally don't like overkill because it has done some strange things to my drawings. Though it's rare that it really messes something up, it still happens. I'd just stick with purge if I were you. I use a macro to purge so all I have to do is click the button and it's done. This is the macro I use:

^C^C-purge;all;*;n;save;

[MSasu]

May I suggest to call purge more than once to get rid of nested objects, too?

^C^C-purge;all;*;n;-purge;all;*;n;-purge;all;*;n;save;

 

I'm not aware of OVERKILL causing issues, but don't forget that its effect is different than PURGE's one.

[nmareis]

how do you aplly macro?

[MSasu]

Please check this tutorial.

[Tuns]

I'm not aware of OVERKILL causing issues, but don't forget that its effect is different than PURGE's one.

The only problem OVERKILL caused for me was it would combine some of the lines into PLINES, it would change some of the lines to different angles or change the linetype. It happened fairly rarely, but it was still an inconvenience.

[SLW210]

The only problem OVERKILL caused for me was it would combine some of the lines into PLINES, it would change some of the lines to different angles or change the linetype. It happened fairly rarely, but it was still an inconvenience.

 

 

 

There are options with OVERKILL that can be selected/deselected.

[nmareis]

dear moderator ... one doubt .. I have several layers that end up in the same way .. kind .. c_AUX_ALTERADO_NOVO ... only changes the start ... is there any way to give a command and ask for them to change only one layer? thank you ..