1. Home
  2. AutoCAD discussions
  3. need a lisp to split objects to layers

need a lisp to split objects to layers

Hi, I need a lisp routine to split all objects in a selection set (all
are 3d Solids), each to a seperate layer.
1) need to get selection set
2) object 1 -> layer 1
3) object 2 -> layer 2
4) etc
I have a drawing with over 1200 solids in it and somehow managed to
merge all layers. I can rename the layers easy enough. but there are
too many object to do by hand
Reply to
Christopher A. Kelly
Loading thread data ...
Hi, I need a lisp routine to split all objects in a selection set (all are 3d Solids), each to a seperate layer.
1) need to get selection set 2) object 1 -> layer 1 3) object 2 -> layer 2 4) etc
I have a drawing with over 1200 solids in it and somehow managed to merge all layers. I can rename the layers easy enough. but there are too many object to do by hand
Reply to
Christopher A. Kelly
So you want to make a drawing with over 1200 layers? Really?
Reply to
Michael Bulatovich
Hi, I need a lisp routine to split all objects in a selection set (all are 3d Solids), each to a seperate layer.
1) need to get selection set 2) object 1 -> layer 1 3) object 2 -> layer 2 4) etc
I have a drawing with over 1200 solids in it and somehow managed to merge all layers. I can rename the layers easy enough. but there are too many objects to do by hand
Reply to
Christopher A. Kelly
Here is a *very* simple routine to do this:
(DEFUN C:OBJ2LAY(/ TOT ENTG LNAM X) (SETQ TOT (SSGET) X 0) (REPEAT (SSLENGTH TOT) (SETQ ENTG (ENTGET (SSNAME TOT X))) (SETQ LNAM (STRCAT "LAYER" (ITOA X))) (COMMAND ".LAYER" "M" LNAM "") (ENTMOD (SUBST (CONS 8 LNAM)(ASSOC 8 ENTG) ENTG)) (SETQ X (1+ X)) ) ) (PRINC "Type OBJ2LAY to start routine")
Reply to
LTravis
No, don't want one, but I need one. I is for a large entertainment center with shelves, drawers, cabinets, etc. and my employer uses a add-in to generate cut lists based on one object a layer
Reply to
Christopher A. Kelly
Thank you, worked like a charm.
Reply to
Christopher A. Kelly

Further Reading

  • Lisp?

  • This lisp almost works. It is adding up the wrong attribute, then updating the...

  • How to connect to SQL server database in my Visual Lisp routine ?

  • Hi, Everyone,I'm programming in Visual Lisp. I need to get the information...

  • need help writing a lisp to calculate slope

  • hi, i'm still pretty new to lisp writing, so this is a little out ofmy...

  • Soldering wires to Bachmann split-chassis metal

  • All,Hope everyone is having a nice summer.Can anyone advise on the flux/solder...

  • How to split curves?

  • I need to split a 3d curve with a plane, the curve is the result ofintersecting...

  • Re: Problem, need tweak to Lisp code

  • Change the alignment of the first string to "center" before making...

  • Lisp to Change Styles

  • I've been trying to cobble up a LISP routine to change all Text Styles to...

  • Macro, how to delete layers?

  • Anyone have a macro to delete either all layers in a drawing or agiven layer by...

  • lisp to count polyline ends

  • Hi allI have a drawing of a network of road centrelines as a series of...

  • Holding round objects in vise

  • Once in a while, i need to hold round objects. It would be eitherthin, flat...

  • 2007 3D: haow to assign material to layers ? **********

  • HelloWith Autocad 2007, in 3D I can assign materials to objets.But how can I...

  • Lisp

  • I need a lisp to delete double objects on a layerThanksAJP

  • Need to open a DIEBOLD SAFE

  • I have a large Diebold safe but I'm trying to sell? Anybody have a n...

  • Parts Assigned to All Layers 2000I2

  • I'm having a problem with layers in 2000I2. When adding a new part in...

  • Need to duplicate an old flat spring

  • I need to duplicate an old flat spring but need to match the hardness or flex....

  • Toolbars

  • Did anyone figure out how to change the length of Toolbars? Toolbars are longer...
  • « previous thread

  • Plotting from model space

  • When I try to plot from model space, it seems to send ok but the plotter doesn't...
  • next thread »

PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.