Qselct and change layer scripts

[Spinxy]

Hey,

 

I'm trying to make some scripts that will automatically find certain elements from a qselect and change their layers and properties.

 

i'm trying ssx command which finds the elements but don't keep them selected, i'm also struggling with a command to change the layers, and set colour, linetype and lineweight to bylayer

 

i have lots of these to make which will all be pretty similar to automate track design outputs into our cad standard format.

 

i want to find everything on layer T-PROF-GRID and change to G_misc25, color to BYLAYER, Lintype to BYLAYER, Lineweight to BYLAYER.

 

also i want to find every polyline on T-PROF-TEXT and change to G_misc, color to BYLAYER, Lintype to BYLAYER, Lineweight to BYLAYER.

 

if i have help creating these i'm pretty sure i would figure out how to do the rest!

[MSasu]

Since seems that you are using AutoCAD full, you can solve that by AutoLISP:

 

(setq ItemsSet (ssget "_X" '((8 . "T-PROF-GRID"))))
(if ItemsSet (command "_CHPROP" ItemsSet "" "_LA" "G_misc25" "_C" "_ByLayer" "_LT" "_ByLayer" "_LW" "_ByLayer" ""))
(setq ItemsSet (ssget "_X" '((0 . "LWPOLYLINE") (8 . "T-PROF-TEXT"))))
(if ItemsSet (command "_CHPROP" ItemsSet "" "_LA" "G_misc" "_C" "_ByLayer" "_LT" "_ByLayer" "_LW" "_ByLayer" ""))

 

Regards,

Mircea

[Spinxy]

Sorry real basic question, i haven't run lisp for a while, how do i run this?

[MSasu]

There used to be a FAQ page on this subject - but I'm not able to locate it now. Please check this tutorial from LeeMac.

 

Regards,

Mircea