Manejo de Layers.

Ver el tema anterior Ver el tema siguiente Ir abajo

Manejo de Layers.

Mensaje por saulo2016 el Miér Ago 10, 2016 12:13 am

Hola A todos:

En esta ocacion tengo un par de CODIGOS que no puedo resolver con exito, se trata de uno que me crea layers (digamos que de manera masiva), y otro que me renombra dichos layers y ademas me cambia el color de estos.

Algo estoy haciendo muy mal, y me gustaria que algun Maestro de los que ya conocemos aqui en este foro me pueda ayudar

aqui les dejo primero el de crear LAYERS:

Crear LAYERS
Código:
(defun c:crear (/)
(setvar "cmdecho" 0)

( command ".-layer"



  "m" "Areas"                                     "c" "132" ""
  "m" "Cable Tray Fittings"                       "c" "132" ""
  "m" "Cable Tays"                                "c" "132" ""
  "m" "Casework"                                  "c" "132" ""
  "m" "Ceilings"                                  "c" "132" ""
  "m" "Columns"                                   "c" "132" ""
  "m" "Communication Devices"                     "c" "132" ""
  "m" "Conduit Fittings"                          "c" "132" ""
  "m" "Conduits"                                  "c" "132" ""
  "m" "Curtain Panels"                            "c" "132" ""
  "m" "Curtain Systems"                           "c" "132" ""
  "m" "Curtain Wall Mullions"                     "c" "132" ""
  "m" "Data Devices"                              "c" "132" ""
  "m" "Detail Items"                              "c" "132" ""
  "m" "Doors"                                     "c" "132" ""
  "m" "
Duct Accessories"                          "c" "132" ""
  "m" "Duct Fittings"                             "c" "132" ""
  "m" "Duct lnsulations"                          "c" "132" ""
  "m" "Duct Linings"                              "c" "132" ""
  "m" "Duct Placeholders"                         "c" "132" ""
  "m" "Ducts"                                     "c" "132" ""
  "m" "Electrical Equipment"                      "c" "132" ""
  "m" "Electrical Fixtures"                       "c" "132" ""
  "m" "Entourage"                                 "c" "132" ""
  "m" "Fire Alarm Devices"                        "c" "132" ""
  "m" "Flex Ducts"                                "c" "132" ""
  "m" "Flex Pipes"                                "c" "132" ""
  "m" "Fioors"                                    "c" "132" ""
  "m" "Furniture"                                 "c" "132" ""
  "m" "Furniture Systems"                         "c" "132" ""
  "m" "Generic Models"                            "c" "132" ""
  "m" "HVAC Zones"                                "c" "132" ""
  "m" "Lighting Devices"                          "c" "132" ""
  "m" "Lighting Fixtures"                         "c" "132" ""
  "m" "Lines"                                     "c" "132" ""
  "m" "Mass"                                      "c" "132" ""
  "m" "Norse Call Devices"                        "c" "132" ""
  "m" "Parking"                                   "c" "132" ""
  "m" "Parts"                                     "c" "132" ""
  "m" "Pipe Accessories"                          "c" "132" ""
  "m" "Pipe Frttings"                             "c" "132" ""
  "m" "Pipe Insulations"                          "c" "132" ""
  "m" "Pipe Placeholders"                         "c" "132" ""
  "m" "Pipes"                                     "c" "132" ""
  "m" "Planting"                                  "c" "132" ""
  "m" "Plumbing Fixtures"                         "c" "132" ""
  "m" "Railings"                                  "c" "132" ""
  "m" "
Ramps"                                     "c" "132" ""
  "m" "Raster Images"                             "c" "132" ""
  "m" "Roads"                                     "c" "132" ""
  "m" "Roofs"                                     "c" "132" ""
  "m" "Rooms"                                     "c" "132" ""
  "m" "Security Devices"                          "c" "132" ""
  "m" "Site"                                      "c" "132" ""
  "m" "Spaces"                                    "c" "132" ""
  "m" "Specialty Equipment"                       "c" "132" ""
  "m" "Sprinklers"                                "c" "132" ""
  "m" "Stairs"                                    "c" "132" ""
  "m" "Walls/interior"                            "c" "132" ""
  "m" "Walls/Exterior"                            "c" "132" ""
  "m" "Walls/Foundation"                          "c" "132" ""
  "m" "Walls/Retaining"                           "c" "132" ""
  "m" "
Windows"                                   "c" "132" ""
  "m" "Wires"                                     "c" "132" ""
  "m" "Air Terminal Tags"                         "c" "132" ""
  "m" "Analytical Beam Tags"                      "c" "132" ""
  "m" "Analytical Brace Tags"                     "c" "132" ""
  "m" "Analytical Column Tags"                    "c" "132" ""
  "m" "Analytical Floor Tags"                     "c" "132" ""
  "m" "Analytical Isolated Foundation Tags"       "c" "132" ""
  "m" "Analytical Link Tags"                      "c" "132" ""
  "m" "Analytical Node Tags"

                      "c" "132" ""
  "m" "Analytical Slab Foundation Tags"           "c" "132" ""
  "m" "Analytical Wall Foundation Tags"           "c" "132" ""
  "m" "Analytical Wall Tags"                      "c" "132" ""
  "m" "Area Load Tags"                            "c" "132" ""
  "m" "Area Tags"                                 "c" "132" ""
  "m" "Assembly Tags"                             "c" "132" ""
  "m" "Brace in Plan View Symbols
"                "c" "132" ""
  "m" "Cable Tray Fitting Tags"                   "c" "132" ""
  "m" "Cable Tray Tags"                           "c" "132" ""
  "m" "Callouts"                                  "c" "132" ""
  "m" "Casework Tags"                             "c" "132" ""
  "m" "Ceiling Tags"                              "c" "132" ""
  "m" "Color Fill Legend"                         "c" "132" ""
  "m" "Communication Device Tags"                 "c" "132" ""
  "m" "Conduit Fitting Tags"
                      "c" "132" ""
  "m" "Conduit Tags"                              "c" "132" ""
  "m" "Connection Symbols"                        "c" "132" ""
  "m" "Contour Labels"                            "c" "132" ""
  "m" "Curtain Panel Tags"                        "c" "132" ""
  "m" "Curtain System Tags"                       "c" "132" ""
  "m" "Data Device Tags"                          "c" "132" ""
  "m" "Detail Item Tags"                          "c" "132" ""
  "m" "Dimensions"
                                "c" "132" ""
  "m" "Displacement Path"                         "c" "132" ""
  "m" "Door Tags"                                 "c" "132" ""
  "m" "Duct Accessory Tags"                       "c" "132" ""
  "m" "Duct Color Fill"                           "c" "132" ""
  "m" "Duct Color Fill Legends"                   "c" "132" ""
  "m" "Duct Fitting Tags"                         "c" "132" ""
  "m" "Duct Insulation Tags"                      "c" "132" ""
  "m" "Duct Lining Tags"                          "c" "132" ""
  "m" "Duct Tags"                                 "c" "132" ""
  "m" "Electrical Equipment Tags"                 "c" "132" ""
  "m" "Electrical Fixture Tags"
                   "c" "132" ""
  "m" "Elevations"                                "c" "132" ""
  "m" "Fire Alarm Device Tags"                    "c" "132" ""
  "m" "Flex Duct Tags"                            "c" "132" ""
  "m" "Flex Pipe Tags"                            "c" "132" ""
  "m" "Floor Tags"                                "c" "132" ""
  "m" "Foundation Span Direction Symbol"          "c" "132" ""
  "m" "Floor Tags"
                                "c" "132" ""
  "m" "Foundation Span Direction Symbol"          "c" "132" ""
  "m" "Furniture System Tags"                     "c" "132" ""
  "m" "Furniture Tags"                            "c" "132" ""
  "m" "Generic Annotations"                       "c" "132" ""
  "m" "Generic Model Tags"                        "c" "132" ""
  "m" "
Grids"                                     "c" "132" ""
  "m" "Internal Area Load Tags"                   "c" "132" ""
  "m" "Internal Line Load Tags"                   "c" "132" ""
  "m" "Internal Point Load Tags"                  "c" "132" ""
  "m" "Keynote Tags"                              "c" "132" ""
  "m" "Levels"                                    "c" "132" ""
  "m" "Lighting Device Tags"                      "c" "132" ""
  "m" "Lighting Fixture Tags"                     "c" "132" ""
  "m" "Line Load Tags"                            "c" "132" ""
  "m" "Mass Floor Tags"                           "c" "132" ""
  "m" "Matchline"                                 "c" "132" ""
  "m" "Material Tags"                             "c" "132" ""
  "m" "Mechanical Equipment Tags"                 "c" "132" ""
  "m" "MEP Fabrication Containment Tags"          "c" "132" ""
  "m" "MEP Fabrication Ductwork Tags"             "c" "132" ""
  "m" "MEP Fabrication Hanger Tags"               "c" "132" ""
  "m" "MEP Fabrication Pipework Tags"             "c" "132" ""
  "m" "Multi-Category Tags"                       "c" "132" ""
  "m" "Nurse Call Device Tags"                    "c" "132" ""
  "m" "Panel Schedule Graphics
"                   "c" "132" ""
  "m" "Parking Tags"                              "c" "132" ""
  "m" "Part Tags"                                 "c" "132" ""
  "m" "Pipe Accessory Tags"                       "c" "132" ""
  "m" "Pipe Color Fill"                           "c" "132" ""
  "m" "Pipe Color Fill Legends"                   "c" "132" ""
  "m" "Pipe Fitting Tags"                         "c" "132" ""
  "m" "Pipe Insulation Tags"                      "c" "132" ""
  "m" "Pipe Tags"                                 "c" "132" ""
  "m" "Plan Region"                               "c" "132" ""
  "m" "Planting Tags"                             "c" "132" ""
  "m" "Plumbing Fixture Tags"                     "c" "132" ""
  "m" "Point Load Tags"                           "c" "132" ""
  "m" "Property Line Segment Tags"                "c" "132" ""
  "m" "Property Tags"                             "c" "132" ""
  "m" "Railing Tags"                              "c" "132" ""
  "m" "Reference Lines"                           "c" "132" ""
  "m" "Reference Planes"                          "c" "132" ""
  "m" "Reference Points"                          "c" "132" ""
  "m" "Revision Cloud Tags"


                       "c" "132" ""
  "m" "Revision Clouds"                           "c" "132" ""
  "m" "Roof Tags"                                 "c" "132" ""
  "m" "Schedule Graphics"                         "c" "132" ""
  "m" "Scope Boxes"

                               "c" "132" ""
  "m" "Section Boxes"                             "c" "132" ""
  "m" "Sections"                                  "c" "132" ""
  "m" "Security Device Tags"                      "c" "132" ""
  "m" "Site Tags"                                 "c" "132" ""
  "m" "Space Tags"                                "c" "132" ""
  "m" "Span Direction Symbol"                     "c" "132" ""
  "m" "Specialty Equipment Tags"                  "c" "132" ""
  "m" "Spot Coordinates"                          "c" "132" ""
  "m" "Spot Elevations"                           "c" "132" ""
  "m" "Spot Slopes"                               "c" "132" ""
  "m" "Sprinkler Tags"                            "c" "132" ""
  "m" "Stair Landing Tags"                        "c" "132" ""
  "m" "Stair Paths"                               "c" "132" ""
  "m" "Stair Run Tags"                            "c" "132" ""
  "m" "Stair Support Tags"                        "c" "132" ""
  "m" "Stair Tags"                                "c" "132" ""
  "m" "Stair Tread_Riser Numbers"                 "c" "132" ""
  "m" "Structural Annotations"                    "c" "132" ""
  "m" "Structural Area Reinforcement Symbols"     "c" "132" ""
  "m" "Structural Area Reinforcement Tags"        "c" "132" ""
  "m" "Structural Beam System Tags"               "c" "132" ""
  "m" "Structural Column Tags"                    "c" "132" ""
  "m" "Structural Connection Tags"                "c" "132" ""
  "m" "Structural Fabric Reinforcement Symbols"   "c" "132" ""
  "m" "Structural Fabric Reinforcement Tags"      "c" "132" ""
  "m" "Structural Foundation Tags"                "c" "132" ""
  "m" "Structural Framing Tags"                   "c" "132" ""
  "m" "Structural Path Reinforcement Symbols"     "c" "132" ""
  "m" "Structural Path Reinforcement Tags"        "c" "132" ""
  "m" "Structural Rebar Coupler Tags"             "c" "132" ""
  "m" "Structural Rebar Tags"                     "c" "132" ""
  "m" "Structural Stiffener Tags"                 "c" "132" ""
  "m" "Structural Truss Tags"
                     "c" "132" ""
  "m" "Selephone Device Tags"                     "c" "132" ""
  "m" "Text Notes"                                "c" "132" ""
  "m" "Title Blocks"                              "c" "132" ""
  "m" "View Reference"                            "c" "132" ""
  "m" "View Titles"                               "c" "132" ""
  "m" "Wall Tags"                                 "c" "132" ""
  "m" "Window Tags"                               "c" "132" ""
  "m" "Wire Tags"                                 "c" "132" ""
  "m" "Structural Framing Tags"                   "c" "132" ""
  "m" "Structural Path Reinforcement Symbols"     "c" "132" ""
  "m" "Structural Path Reinforcement Tags"        "c" "132" ""
  "m" "Structural Rebar Coupler Tags"             "c" "132" ""
  "m" "Structural Rebar Tags"                     "c" "132" ""
  "m" "Structural Stiffener Tags"                 "c" "132" ""
  "m" "Structural Truss Tags"                     "c" "132" ""
  "m" "Telephone Device Tags"
                     "c" "132" ""
  "m" "Text Notes"                                "c" "132" ""
  "m" "Title_blocks"                              "c" "132" ""
  "m" "View Reference"                            "c" "132" ""
  "m" "View Titles"                               "c" "132" ""
  "m" "Wall Tags"                                 "c" "132" ""
  "m" "Window Tags"                               "c" "132" ""
  "m" "Wire Tags"
                                 "c" "132" ""
  "m" "Zone Tags"                                 "c" "132" "" "")

(princ)
)

saulo2016

Mensajes : 84
Fecha de inscripción : 17/03/2016
Edad : 51
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: Manejo de Layers.

Mensaje por saulo2016 el Miér Ago 10, 2016 12:17 am

Y este es el de Cambiar Nombre y Color de LAYERS:

Código:
(defun renlay (ol nl / ss i ent )
  (cond ((and (tblsearch "layer" ol) (not (tblsearch "layer" nl)))
 (command "._rename" "la" ol nl)
 )
 ((and (tblsearch "layer" ol)(tblsearch "layer" nl))
  (setq ss (ssget "x" (list (cons 8 ol))))
  (setq i -1)
   (repeat (sslength ss)
      (setq ent (entget (ssname ss (setq i (1+ i))))
    ent (subst (cons 8 nl) (cons 8 (cdr (assoc 8 ent))) ent)
      )    
      (entmod ent)
           )
 )
 ((not (tblsearch "layer" ol))
  (prompt (strcat "\nLayer " ol " no encontrado. "))
        )
  )



  (command "_.layer" "_color"  96    

"SM2D_Area Fill" "")
  (command "_.layer" "_color"  168  

"SM3D_Component_building_services" "")
  (command "_.layer" "_color"  32    

"SM3D_Casework" "")
  (command "_.layer" "_color"  32    

"SM3D_Suspended_ceiling" "")
  (command "_.layer" "_color"  96    

"SM3D_Load_bearing_steel_vert" "")
  (command "_.layer" "_color"  1    

"SM3D_Suspencled_ceiling_building_services" "")
  (command "_.layer" "_color"  1    

"SM3D_Non_load_bearing_component" "")
  (command "_.layer" "_color"  1    

"SM2D_Detail_reference" "")
  (command "_.layer" "_color"  168  

"SM3D_Opening_wall" "")
  (command "_.layer" "_color"  96    

"SM3D_Animation" "")
  (command "_.layer" "_color"  200  

"SM3D_Floor")
  (command "_.layer" "_color"  96    

"SM3D_Animation" "")
  (command "_.layer" "_color"  1    

"SM3D_Detail" "")
  (command "_.layer" "_color"  1    

"SM3D_Mass" "")
  (command "_.layer" "_color"  1     "

MEP Fabrication Containment" "")
  (command "_.layer" "_color"  1     "MEP Fabrication Doctwor

k" "")
  (command "_.layer" "_color"  1     "MEP Fabrication Hangers" "")
  (command "_.layer" "_color"  170  

"SM2D_External_works" "")
  (command "_.layer" "_color"  32    "SM3D_Sanitary_fittings" "")
  (command "_.layer" "_color"  1     "SM3D_Handrails" "")
  (command "_.layer" "_color"  32    "SM3D_Ramp" "")
  (command "_.layer" "_color"  200   "SM3D_Roof_cladding" "")
  (command "_.layer" "_color"  1     "SM2D_Text_general" "")
  (command "_.layer" "_color"  1     "SM2D_general_text" "")
  (command "_.layer" "_color"  78    "SM3D_Fire_protection" "")
  (command "_.layer" "_color"  31    "Stairs" "")
  (command "_.layer" "_color"  96    "SM3D_on_Load_bearing_steel" "")
  (command "_.layer" "_color"  192   "SM3D_Load_bearing_steel_horz" "")
  (command "_.layer" "_color"  96    "SM3D_Load_bearing_foundation" "")
  (command "_.layer" "_color"  192   "SM3D_Load_bearing_steel_horz" "")
  (command "_.layer" "_color"  31    "Structural Stiffeners" "")
  (command "_.layer" "_color"  192   "265M30_Load_bearing_steel_horz" "")
  (command "_.layer" "_color"  168   "SM3D_Component_building_services" "")
  (command "_.layer" "_color"  170   "SM3D_External_worlds" "")
  (command "_.layer" "_color"  120   "SM3D_Non_Load_bearing_component" "")
  (command "_.layer" "_color"  120   "SM3D_Facade_miscellaneous" "")
  (command "_.layer" "_color"  32    "SM3D_Foundation" "")
  (command "_.layer" "_color"  168   "SM3D_Opening_wall" "")
  (command "_.layer" "_color"  49    "SM2D_Component_building_services" "")
  (command "_.layer" "_color"  1     "

SM2D_Text_general" "")
  (command "_.layer" "_color"  1     "125M2D_Text_general" ""
)
  (command "_.layer" "_color"  1     "

SM2D_Text_general" "")
  (command "_.layer" "_color"  1     "SM2D_Text_general_suspended_ceiling" "")
  (command "_.layer" "_color"  2     "6" "")
  (command "_.layer" "_color"  1     "SM2D_Detail_reference" "")
  (command "_.layer" "_color"  1     "SM2D_Dimensioning_general" "")
  (command "_.layer" "_color"  1     "SM2D_Detail_reference" "")
  (command "_.layer" "_color"  1     "SM2D_Text_opening_wall")
  (command "_.layer" "_color"  1     "SM2D_Text_fire_protection" "")
  (command "_.layer" "_color"  1     "SM2D_Text_fundation

" "")
  (command "_.layer" "_color"  32    "SM2D_Grid
" "")
  (command "_.layer" "_color"  1     "

SM2D_Text_general" "")
  (command "_.layer" "_color"  1     "MEP Fabrication Containment Tags" "")
  (command "_.layer" "_color"  1     "MEP Fabrication Ductwork Tags" "")
  (command "_.layer" "_color"  1     "MEP Fabrication Hanger Tags" "")
  (command "_.layer" "_color"  1     "MEP Fabrication Pipework Tags" "")
  (command "_.layer" "_color"  1     "SM2D_Revision_marker" "")
  (command "_.layer" "_color"  1     "SM2D_Text_Roof
Room Tags" "")
  (command "_.layer" "_color"  1     "SM2D_Room_Stamp" "")
  (command "_.layer" "_color"  1     "SM2D_Section_line" "")
  (command "_.layer" "_color"  1     "SM2D_Text_steel
" "")
  (command "_.layer" "_color"  1    


"SM2D_Text_Foundation
" "")
  (command "_.layer" "_color"  1     "Structural Rebar Coupler Tags" "")
  (command "_.layer" "_color"  1     "Title_block" "")
  (command "_.layer" "_color"  1     "SM2D_Text_opening_wall" "")

  (command "_.layer" "_color"  1     "Structural Rebar Coupler Tags" "")
  (command "_.layer" "_color"  1     "Title Block" "")
  (command "_.layer" "_color"  1     "SM2D_Text_opening_wall" ""
)

  (princ)
)


(defun c:cambiar ()

  (renlay "Areas"                                                "SM2D_Area Fill")
  (renlay "Cable Tray Fittings"                                  "SM3D_Component_building_services")
  (renlay "Cable Tays"                                           "SM3D_Component_building_services")
  (renlay "Casework"                                             "SM3D_Casework")
  (renlay "Ceilings"                                             "SM3D_Suspended_ceiling")
  (renlay "Columns"                                              "SM3D_Load_bearing_steel_vert")
  (renlay "Communication Devices"                                "SM3D_Suspencled_ceiling_building_services")
  (renlay "Conduit Fittings"                                     "SM3D_Component_building_services")
  (renlay "Conduits"                                             "SM3D_Component_building_services")
  (renlay "Curtain Panels"                                       "SM3D_Non_load_bearing_component")
  (renlay "Curtain Systems"                                      "SM3D_Non_load_bearing_component")
  (renlay "Curtain Wall Mullions"                                "SM3D_Non_load_bearing_component")
  (renlay "Data Devices"                                         "SM3D_Component_building_services")
  (renlay "Detail Items"                                         "SM2D_Detail_reference")
  (renlay "Doors"                                                "SM3D_Opening_wall")  
  (renlay "
Duct Accessories"                                     "SM3D_Component_building_services")
  (renlay "Duct Fittings"                                        "SM3D_Component_building_services")
  (renlay "Duct lnsulations"                                     "SM3D_Component_building_services")
  (renlay "Duct Linings"                                         "SM3D_Component_building_services")
  (renlay "Duct Placeholders"                                    "SM3D_Component_building_services")
  (renlay "Ducts"                                                "SM3D_Component_building_services")
  (renlay "Electrical Equipment"                                 "SM3D_Component_building_services")
  (renlay "Electrical Fixtures"                                  "SM3D_Component_building_services")
  (renlay "Entourage"                                            "SM3D_Animation")
  (renlay "Fire Alarm Devices"                                   "SM3D_Component_building_services")
  (renlay "Flex Ducts"                                           "SM3D_Component_building_services")
  (renlay "Flex Pipes"                                           "SM3D_Component_building_services")
  (renlay "Floors"                                               "SM3D_Floor")
  (renlay "Furniture"                                            "SM3D_Animation")
  (renlay "Furniture Systems"                                    "SM3D_Animation")
  (renlay "Generic Models"                                       "SM2D_Detail_reference")
  (renlay "HVAC Zones"                                           "SM2D_Area_fill")
  (renlay "Lighting Devices"                                     "SM3D_Suspended_ceiling_building_services")
  (renlay "Lighting Fixtures"                                    "SM3D_Suspended_ceiling_building_services")
  (renlay "Lines"                                                "SM3D_Detail")
  (renlay "Mass"                                                 "SM3D_Mass")
  (renlay "Mechanical Equipment"                                 "SM3D_Component_building_services")
  (renlay "
MEP Fabrication Containment"                          "

MEP Fabrication Containment")

  (renlay "MEP Fabrication Doctwor

k"                             "MEP Fabrication Doctwor

k")
  (renlay "MEP Fabrication Hangers"                              "MEP Fabrication Hangers")


  (renlay "MEP Fabrication Pipework"
                             "SM3D_Component_building_services")
  (renlay "Norse Call Devices"                                   "SM3D_Component_building_services")

  (renlay "Parking"                                              "SM2D_External_works")
  (renlay "Parts"                                                "SM2D_Detail_reference")
  (renlay "Parts"                                                "SM2D_Detail_reference")
  (renlay "Pipe Accessories"                                     "SM3D_Component_building_services")
  (renlay "Pipe Frttings"                                        "SM3D_Component_building_services")
  (renlay "Pipe Insulations"                                     "SM3D_Component_building_services")
  (renlay "Pipe Placeholders"                                    "SM3D_Component_building_services")
  (renlay "Pipes"                                                "SM3D_Component_building_services")
  (renlay "Planting"                                             "SM2D_External_works")
  (renlay "Plumbing Fixtures"                                    "SM3D_Sanitary_fittings")

  (renlay "Railings"                                             "SM3D_Handrails")
  (renlay "
Ramps"                                                "SM3D_Ramp")

  (renlay "Raster Images"                                        "SM2D-Animation")
  (renlay "Roads"                                                "SM3D_External_works")
  (renlay "Roofs"                                                "SM3D_Roof_cladding")
  (renlay "Rooms"                                                "SM2D_Text_general")
  (renlay "Security Devices"                                     "SM3D_Component_building_services")
  (renlay "Site"                                                 "SM2D_External_works")
  (renlay "Spaces"                                               "SM2D_general_text")
  (renlay "Specialty Equipment"                                  "SM3D_Sanitary_fittings")
  (renlay "Sprinklers"                                           "SM3D_Fire_protection")
  (renlay "Stairs"                                               "Stairs")
  (renlay "Structural Area Reinforcement"                        "SM3D_on_Load_bearing_steel")
  (renlay "Structural Beam Systems"                              "SM3D_Load_bearing_steel_horz")
  (renlay "Structural Columns"                                   "SM3D_Load_bearing_steel_horz")
  (renlay "Structural Connections"                               "SM3D_Load_bearing_steel")
  (renlay "Structural Fabric Areas"                              "SM3D_Load_bearing_steel")
  (renlay "Structural Fabric Reinforcement"                      "SM3D_Non_load_bearing_steel")
  (renlay "Structural Foundations"                               "SM3D_Load_bearing_foundation")
  (renlay "Structural Framing"                                   "SM3D_Load_bearing_steel_horz")
  (renlay "Structural Path Reinforcement"                        "SM3D_Load_bearing_steel_horz")
  (renlay "Structural Rebar"                                     "SM3D_Load_bearing_steel_horz")
  (renlay "Structural Rebar Couplers"                            "SM3D_Load_bearing_steel_horz")
  (renlay "Structural Stiffeners"                                "Structural Stiffeners")
  (renlay "Structural Trusses"                                   "265M30_Load_bearing_steel_horz")
  (renlay "Telephone Devices"                                    "SM3D_Component_building_services")
  (renlay "Topography"                                           "SM3D_External_worlds")
  (renlay "Walls"                                                "SM3D_Non_Load_bearing_component")
  (renlay "Walls/interior"                                       "SM3D_Non_Load_bearing_component")
  (renlay "Walls/Exterior"                                       "SM3D_Facade_miscellaneous")
  (renlay "Walls/Foundation"                                     "SM3D_Foundation")

  (renlay "Walls/Retaining"                                      "SM3D_Foundation")
  (renlay "
Windows"                                              "SM3D_Opening_wall")
  (renlay "Wires"                                                "SM2D_Component_building_services")
  (renlay "Air Terminal Tags"                                    "

SM2D_Text_general")
  (renlay "Analytical Beam Tags"                                 "SM2D_Text_general")

  (renlay "Analytical Brace Tags"                                "

SM2D_Text_general")
  (renlay "Analytical Beam Tags"                                 "SM2D_Text_general")
  (renlay "Analytical Brace Tags"                                "SM2D_Text_general")
  (renlay "Analytical Column Tags"                               "SM2D_Text_general")
  (renlay "Analytical Floor Tags"                                "SM2D_Text_general")
  (renlay "Analytical Isolated Foundation Tags"

                  "SM2D_Text_general")
  (renlay "Analytical Link Tags"
                                 "125M2D_Text_general"
)
  (renlay "Analytical Node Tags"

                                 "

SM2D_Text_general")
  (renlay "Analytical Slab Foundation Tags"                      "

SM2D_Text_general")
  (renlay "Analytical Wall Foundation Tags"                      "

SM2D_Text_general")
  (renlay "Analytical Wall Tags"                                 "

SM2D_Text_general")
  (renlay "Area Load Tags"                                       "

SM2D_Text_general")
  (renlay "Area Tags"                                            "

SM2D_Text_general")
  (renlay "Assembly Tags"

                                        "

SM2D_Text_general")
  (renlay "Brace in Plan View Symbols"                           "

SM2D_Text_general")
  (renlay "Cable Tray Fitting Tags"
                              "

SM2D_Text_general")
  (renlay "Cable Tray Tags"                                      "

SM2D_Text_general")

  (renlay "Callouts"                                             "

SM2D_Text_general")
  (renlay "Casework Tags"                                        "

SM2D_Text_general")

  (renlay "Ceiling Tags"                                         "SM2D_Text_general_suspended_ceiling")
  (renlay "Color Fill Legend"                                    "6")
  (renlay "Communication Device Tags"                            "SM2D_Detail_reference")
  (renlay "Conduit Fitting Tags"
                                 "SM2D_Detail_reference")
  (renlay "Conduit Tags"                                         "SM2D_Detail_reference")
  (renlay "Connection Symbols"                                   "SM2D_Detail_reference")
  (renlay "Contour Labels"                                       "SM2D_Detail_reference")
  (renlay "Curtain Panel Tags"                                   "SM2D_Detail_reference")
  (renlay "Curtain System Tags"                                  "SM2D_Detail_reference")
  (renlay "Data Device Tags"                                     "SM2D_Detail_reference")
  (renlay "Detail Item Tags"
                                     "SM2D_Detail_reference")

  (renlay "Dimensions"
                                           "SM2D_Dimensioning_general")
  (renlay "Displacement Path"                                    "SM2D_Detail_reference")
  (renlay "Door Tags"

                                            "SM2D_Text_opening_wall")
  (renlay "Duct Accessory Tags"                                  "SM2D_Detail_reference")
  (renlay "Duct Color Fill"                                      "SM2D_Detail_reference")
  (renlay "Duct Color Fill Legends"
                              "SM2D_Detail_reference")
  (renlay "Duct Fitting Tags"                                    "SM2D_Detail_reference")
  (renlay "Duct Insulation Tags"                                 "SM2D_Detail_reference")
  (renlay "Duct Lining Tags"                                     "SM2D_Detail_reference")
  (renlay "Duct Tags"

                                            "SM2D_Detail_reference")
  (renlay "Electrical Equipment Tags"
                            "SM2D_Detail_reference")
  (renlay "Electrical Fixture Tags"
                              "SM2D_Detail_reference")
  (renlay "Elevations"                                           "SM2D_Detail_reference")
  (renlay "Fire Alarm Device Tags"                               "SM2D_Text_fire_protection")
  (renlay "Flex Duct Tags"                                       "SM2D_Detail_reference")

  (renlay "Flex Pipe Tags"                                       "SM2D_Detail_reference
")
  (renlay "Floor Tags"                                           "SM2D_Detail_reference
")
  (renlay "Foundation Span Direction Symbol"                     "SM2D_Text_fundation

")
  (renlay "Floor Tags"
                                           "SM2D_Detail_reference")
  (renlay "Foundation Span Direction Symbol"                     "SM2D_Text_fundation
")
  (renlay "Furniture System Tags"                                "SM2D_Detail_reference")
  (renlay "Furniture Tags"                                       "SM2D_Detail_reference")
  (renlay "Generic Annotations"                                  "SM2D_Detail_reference
")
  (renlay "Generic Model Tags"                                   "SM2D_Detail_reference")
  (renlay "
Grids"                                                "SM2D_Grid
")
  (renlay "Internal Area Load Tags"

                              "

SM2D_Text_general")
  (renlay "Internal Line Load Tags"                              "

SM2D_Text_general")
  (renlay "Internal Point Load Tags"                             "

SM2D_Text_general")
  (renlay "Keynote Tags"                                         "

SM2D_Text_general")
  (renlay "Levels"                                               "

SM2D_Text_general")
  (renlay "Lighting Device Tags"                                 "

SM2D_Text_general")
  (renlay "Lighting Fixture Tags"                                "

SM2D_Text_general")
  (renlay "Line Load Tags"                                       "

SM2D_Text_general")
  (renlay "Mass Floor Tags"                                      "

SM2D_Text_general")
  (renlay "Matchline"                                            "

SM2D_Text_general")
  (renlay "Material Tags"                                        "SM2D_Detail Reference"
)
  (renlay "Mechanical Equipment Tags"                            "

SM2D_Text_general")
  (renlay "Multi-Category Tags"                                  "

SM2D_Text_general")
  (renlay "Nurse Call Device Tags"                               "

SM2D_Text_general")
  (renlay "Panel Schedule Graphics"                              "

SM2D_Text_general")
  (renlay "Parking Tags"                                         "

SM2D_Text_general")
  (renlay "Part Tags"                                            "

SM2D_Text_general")
  (renlay "Pipe Accessory Tags"
                                  "

SM2D_Text_general")
  (renlay "Pipe Color Fill"

                                      "

SM2D_Text_general")
  (renlay "Pipe Color Fill Legends"

                              "

SM2D_Text_general")
  (renlay "Pipe Fitting Tags"                                    "

SM2D_Text_general")
  (renlay "Pipe Insulation Tags"                                 "

SM2D_Text_general")
  (renlay "Pipe Tags"                                            "

SM2D_Text_general")
  (renlay "Plan Region"                                          "

SM2D_Text_general")
  (renlay "Planting Tags"

                                        "

SM2D_Text_general")
  (renlay "Plumbing Fixture Tags"                                "

SM2D_Text_general")
  (renlay "Point Load Tags"
                                      "

SM2D_Text_general")
  (renlay "Property Line Segment Tags"
                           "

SM2D_Text_general")
  (renlay "Property Tags"                                        "

SM2D_Text_general")
  (renlay "Railing Tags"                                         "SM2D_Text_general")
  (renlay "Reference Lines"                                      "SM2D_Text_general")
  (renlay "Reference Planes"
                                     "SM2D_Text_general")
  (renlay "Reference Points"                                     "SM2D_Text_general")
  (renlay "Revision Cloud Tags"                                  "SM2D_Revision_marker")
  (renlay "Revision Clouds"                                      "SM2D_Revision_marker")
  (renlay "Revision Cloud Tags"


                                  "SM2D_Revision_marker")
  (renlay "Revision Clouds"                                      "SM2D_Revision_marker")
  (renlay "Roof Tags"                                            "SM2D_Text_Roof
Room Tags")
  (renlay "Schedule Graphics"                                    "SM2D_Room_Stamp")
  (renlay "Scope Boxes"

                                          "

SM2D_Text_general")
  (renlay "Section Boxes"                                        "SM2D_Detail_reference")
  (renlay "Sections"                                             "SM2D_Detail_reference")
  (renlay "Security Device Tags"                                 "SM2D_Section_line")
  (renlay "Site Tags"                                            "

SM2D_Text_general")
  (renlay "Space Tags"                                           "

SM2D_Text_general")
  (renlay "Span Direction Symbol"                                "

SM2D_Text_general")
  (renlay "Specialty Equipment Tags"                             "

SM2D_Text_general")
  (renlay "Spot Coordinates"                                     "

SM2D_Text_general")
  (renlay "Spot Elevations"                                      "

SM2D_Text_general")
  (renlay "Spot Slopes"
                                          "

SM2D_Text_general")
  (renlay "Sprinkler Tags"                                       "

SM2D_Text_general")
  (renlay "Stair Landing Tags"                                   "

SM2D_Text_general")
  (renlay "Stair Paths"                                          "

SM2D_Text_general")
  (renlay "Stair Run Tags"                                       "

SM2D_Text_general")
  (renlay "Stair Support Tags"                                   "

SM2D_Text_general")
  (renlay "Stair Tags"                                           "

SM2D_Text_general")
  (renlay "Stair Tread/ Riser Numbers"                           "

SM2D_Text_general")
  (renlay "Structural Annotations"                               "

SM2D_Text_general")

  (renlay "Structural Area Reinforcement Symbols"                "

SM2D_Text_general")
  (renlay "Structural Area Reinforcement Tags"                   "SM2D_Text_steel
")
  (renlay "Structural Beam System Tags"                          "SM2D_Text_steel")
  (renlay "Structural Column Tags"                               "SM2D_Text_steel")
  (renlay "Structural Connection Tags"                           "SM2D_Text_steel
")
  (renlay "Structural Fabric Reinforcement Symbols"              "SM2D_Text_steel")
  (renlay "Structural Fabric Reinforcement Tags"
                 "SM2D_Text_steel")
  (renlay "Structural Foundation Tags"                           "SM2D_Text_Foundation")
  (renlay "Structural Framing Tags"                              

"SM2D_Text_Foundation
")
  (renlay "Structural Path Reinforcement Symbols"                "SM2D_Text_steel")
  (renlay "Structural Path Reinforcement Tags"                   "SM2D_Text_steel
")
  (renlay "Structural Rebar Coupler Tags"
                        "Structural Rebar Coupler Tags")
  (renlay "Structural Rebar Tags"                                



"SM2D_Text_steel")
  (renlay "Structural Stiffener Tags"                            "SM2D_Text_steel")
  (renlay "Structural Truss Tags"
                                "SM2D_Text_steel")
  (renlay "Selephone Device Tags"                                "

SM2D_Text_general")
  (renlay "Text Notes"                                           "

SM2D_Text_general")

  (renlay "Title Blocks"                                         "Title_block")
  (renlay "View Reference"                                       "

SM2D_Text_general")
  (renlay "View Titles"                                          "

SM2D_Text_general")
  (renlay "Wall Tags"                                            "

SM2D_Text_general")
  (renlay "Window Tags"                                          "SM2D_Text_opening_wall")

  (renlay "Wire Tags"                                            "

SM2D_Text_general")

  (renlay "Structural Framing Tags"                              "SM2D_Text_steel")
  (renlay "Structural Path Reinforcement Symbols"                "SM2D_Text_steel")
  (renlay "Structural Path Reinforcement Tags"                  
"SM2D_Text_steel
")
  (renlay "Structural Rebar Coupler Tags"                        "Structural Rebar Coupler Tags")
  (renlay "Structural Rebar Tags"                                "SM2D_Text_steel")
  (renlay "Structural Stiffener Tags"                            "SM2D_Text_steel
")
  (renlay "Structural Truss Tags"                                "SM2D_Text_steel")
  (renlay "Telephone Device Tags"
                                "

SM2D_Text_general")
  (renlay "Text Notes"                                           "SM2D_Text_general")
  (renlay "Title_blocks"                                         "Title Block")
  (renlay "View Reference"                                       "

SM2D_Text_general")
  (renlay "View Titles"                                          "SM2D_Text_general")
  (renlay "Wall Tags"                                            "SM2D_Text_general")
  (renlay "Window Tags"                                          "SM2D_Text_opening_wall"
)
  (renlay "Wire Tags"
                                            "SM2D_Text_general")
  (renlay "Zone Tags"                                            "SM2D Text General")
)

Les agradeceria que me ayudaran por favor


Saludos

saulo2016

Mensajes : 84
Fecha de inscripción : 17/03/2016
Edad : 51
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: Manejo de Layers.

Mensaje por diogenes66 el Miér Ago 10, 2016 9:03 am

Hola Saulo2016. El primer problema es el carácter "/". No está permitido.
En la línea de "(command "._rename" "la" ol nl))" sería bueno poner "(command "._rename" "_la" ol nl))" si no trabajas en la versión inglesa.
El tercer problema, es que en el formato cond, la acción no puede ser tan larga a no ser que utilices el agrupador "progn". Además no entiendo porqué cambias las entidades de capa....
A partir de ahí, no entiendo porqué cambias todas las demás capas.
Saludos

diogenes66

Mensajes : 3
Fecha de inscripción : 19/05/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Manejo de Layers.

Mensaje por saulo2016 el Miér Ago 10, 2016 2:27 pm

Gracias diogenes66

Tienes razon, en tu explicacion......ahora permiteme explicar un poco el porque de tan extraña actividad mia....crear LAYERS para luego cambiarlos ?????.....resulta que el primer codigo que hice para crear LAYERS es porque estoy emulando exactamente los layer que van a venir cargados en una buena cantidad de archivos que van a enviarme pero en la empresa donde trabajo no estan manejando estos layers, si no los que estoy mencionando en el segundo codigo, entonces para no cambiar de uno por uno, necesito hacerlo masivamente, aunque en realidad el que me interesa mas resolver es el segundo no el primero......el primero me interesa que funcione para precisamente confirmar el funcionamiento del segundo.....ojala y no los este revolviendo con esta explicacion rara.....

Saludos

saulo2016

Mensajes : 84
Fecha de inscripción : 17/03/2016
Edad : 51
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: Manejo de Layers.

Mensaje por saulo2016 el Miér Ago 10, 2016 2:38 pm

Bueno ya quedo resuelto el primer codigo, ahora necesito saber como utilizar el agrupador "prong"......no sé como poderlo....

ayuda por favor!


Saludos

saulo2016

Mensajes : 84
Fecha de inscripción : 17/03/2016
Edad : 51
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: Manejo de Layers.

Mensaje por diogenes66 el Miér Ago 10, 2016 4:55 pm

mira este ejemplo de tu código. Sólo ten cuidado con los parentesis de abertura y cierre:
(defun renlay (ol nl / ss i ent )
(cond
((and (tblsearch "layer" ol) (not (tblsearch "layer" nl))) (command "._rename" "la" ol nl))
((and (tblsearch "layer" ol)(tblsearch "layer" nl)) (progn
(setq ss (ssget "x" (list (cons 8 ol))))
(setq i -1)
(repeat (sslength ss)
(setq ent (entget (ssname ss (setq i (1+ i)))))
.............................
.............................
);repeat
);progn
)
);cond
.................
.................
.................
.................
);defun

Más info:
http://help.autodesk.com/view/ACD/2016/ENU/?guid=GUID-7BA45202-D95F-4F2D-8D83-965024826074

diogenes66

Mensajes : 3
Fecha de inscripción : 19/05/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Manejo de Layers.

Mensaje por saulo2016 el Miér Ago 10, 2016 6:07 pm

Algo estoy haciendo mal otra vez...como que me estoy revolviendo con los parentesis de apertura y cierre....
no doy pie con bola

me muestra esto

saulo2016

Mensajes : 84
Fecha de inscripción : 17/03/2016
Edad : 51
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: Manejo de Layers.

Mensaje por nolo el Miér Ago 10, 2016 8:33 pm

Saulo, creo que deberías aprovechar a potencia de lisp que esta pensado para tratar listas
Sin que sea la mejor solución ya que parece lógico hacer al mismo tiempo el cambio de nombre y color, te dejo esto que debes repasar ya que detecto que he copiado algo mal.
OJO puede que si usas una versión de acad superior a la 214 tengas que cambiar el command por command_s

Código:
(defun renlay (ol nl / ss ent )
 (cond
 ((and (tblsearch "layer" ol) (not (tblsearch "layer" nl)))
 (command "._rename" "la" ol nl)
 )
 ((and (tblsearch "layer" ol)(tblsearch "layer" nl))
 (setq ss (ssget "x" (list (cons 8 ol))))
 (while (> (sslength ss) 0)
 (setq ent (entget (ssname ss 0)))
 (entmod (subst (cons 8 nl)(assoc 8 ent) ent))
 (ssdel (ssname ss 0) ss)
 )
 )
 ((not (tblsearch "layer" ol))
 (prompt (strcat "\nLayer " ol " no encontrado. "))
 )
 )
)


(defun c:cambiar_color()
;;; cambiar colores
(mapcar '(lambda(a / c )(setq c (car a))
 (foreach b (cdr a)(if (tblsearch "LAYER" b)(command "_.layer" "_color" c b "")))
)'(
 (96 "SM2D_Area Fill"
 "SM3D_Animation"
 "SM3D_Animation"
 "SM3D_on_Load_bearing_steel"
 "SM3D_Load_bearing_foundation"
 )
 (168 "SM3D_Component_building_services"
 "SM3D_Opening_wall"
 )
 (32 "SM3D_Casework"
 "SM3D_Sanitary_fittings"
 "SM3D_Ramp"
 "SM3D_Foundation"
 "SM2D_Grid"
 ;; falta una capa
 )
 (32 "SM3D_Suspended_ceiling")
 (96 "SM3D_Load_bearing_steel_vert")
 (1 "SM3D_Suspencled_ceiling_building_services"
 "SM3D_Non_load_bearing_component"
 "SM2D_Detail_reference"
 "SM3D_Detail"
 "SM3D_Mass"
 "MEP Fabrication Containment"
 "MEP Fabrication Doctwor k"
 "MEP Fabrication Hangers"
 "SM3D_Handrails"
 "SM2D_Text_general"
 "SM2D_general_text"
 "SM2D_Text_general"
 "125M2D_Text_general"
 "SM2D_Text_general_suspended_ceiling"
 "SM2D_Detail_reference"
 "SM2D_Dimensioning_general"
 "SM2D_Detail_reference"
 "SM2D_Text_opening_wall"
 "MEP Fabrication Ductwork Tags"
 "MEP Fabrication Hanger Tags"
 "MEP Fabrication Pipework Tags"
 "SM2D_Revision_marker"
 "SM2D_Text_Roof Room Tags"
 "SM2D_Room_Stamp"
 "SM2D_Section_line"
 "SM2D_Text_steel"
 "Structural Rebar Coupler Tags"
 "SM2D_Text_fire_protection"
 "SM2D_Text_fundation"
 "Title_block"
 "SM2D_Text_opening_wall"
 "Structural Rebar Coupler Tags"
 "Title Block"
 "SM2D_Text_opening_wall"
 ;; sobra una capa
 )
 (200 "SM3D_Floor"
 "SM3D_Roof_cladding"
 )
 (170 "SM2D_External_works"
 )
 (78 "SM3D_Fire_protection"
 )
 (192 "SM3D_Load_bearing_steel_horz"
 "SM3D_Load_bearing_steel_horz"
 "265M30_Load_bearing_steel_horz"
 )
 (31 "Structural Stiffeners"
 "Stairs"
 )
 (168 "SM3D_Opening_wall"
 "SM3D_Component_building_services"
 )
 (170 "SM3D_External_worlds")
 (120 "SM3D_Non_Load_bearing_component"
 "SM3D_Facade_miscellaneous"
 )
 (49 "SM2D_Component_building_services" )
))
 (princ)
)


(defun c:cambiar ()
(foreach a '(
("Areas"  "SM2D_Area Fill")
 ("Cable Tray Fittings"  "SM3D_Component_building_services")
 ("Cable Tays"  "SM3D_Component_building_services")
 ("Casework"  "SM3D_Casework")
 ("Ceilings"  "SM3D_Suspended_ceiling")
 ("Columns"  "SM3D_Load_bearing_steel_vert")
 ("Communication Devices" "SM3D_Suspencled_ceiling_building_services")
 ("Conduit Fittings"  "SM3D_Component_building_services")
 ("Conduits"  "SM3D_Component_building_services")
 ("Curtain Panels"  "SM3D_Non_load_bearing_component")
 ("Curtain Systems"  "SM3D_Non_load_bearing_component")
 ("Curtain Wall Mullions" "SM3D_Non_load_bearing_component")
 ("Data Devices"  "SM3D_Component_building_services")
 ("Detail Items"  "SM2D_Detail_reference")
 ("Doors"  "SM3D_Opening_wall")
 ("Duct Accessories"  "SM3D_Component_building_services")
 ("Duct Fittings"  "SM3D_Component_building_services")
 ("Duct lnsulations"  "SM3D_Component_building_services")
 ("Duct Linings"  "SM3D_Component_building_services")
 ("Duct Placeholders"  "SM3D_Component_building_services")
 ("Ducts"  "SM3D_Component_building_services")
 ("Electrical Equipment"  "SM3D_Component_building_services")
 ("Electrical Fixtures"  "SM3D_Component_building_services")
 ("Entourage"  "SM3D_Animation")
 ("Fire Alarm Devices"  "SM3D_Component_building_services")
 ("Flex Ducts"  "SM3D_Component_building_services")
 ("Flex Pipes"  "SM3D_Component_building_services")
 ("Floors"  "SM3D_Floor")
 ("Furniture"  "SM3D_Animation")
 ("Furniture Systems"  "SM3D_Animation")
 ("Generic Models"  "SM2D_Detail_reference")
 ("HVAC Zones"  "SM2D_Area_fill")
 ("Lighting Devices"  "SM3D_Suspended_ceiling_building_services")
 ("Lighting Fixtures"  "SM3D_Suspended_ceiling_building_services")
 ("Lines"  "SM3D_Detail")
 ("Mass"  "SM3D_Mass")
 ("Mechanical Equipment"  "SM3D_Component_building_services")
 ("MEP Fabrication Containment" "MEP Fabrication Containment")
 ("MEP Fabrication Doctwor k" "MEP Fabrication Doctwork")
 ("MEP Fabrication Hangers" "MEP Fabrication Hangers")

 ("MEP Fabrication Pipework" "SM3D_Component_building_services")
 ("Norse Call Devices"  "SM3D_Component_building_services")

 ("Parking"  "SM2D_External_works")
 ("Parts"  "SM2D_Detail_reference")
 ("Parts"  "SM2D_Detail_reference")
 ("Pipe Accessories"  "SM3D_Component_building_services")
 ("Pipe Frttings"  "SM3D_Component_building_services")
 ("Pipe Insulations"  "SM3D_Component_building_services")
 ("Pipe Placeholders"  "SM3D_Component_building_services")
 ("Pipes"  "SM3D_Component_building_services")
 ("Planting"  "SM2D_External_works")
 ("Plumbing Fixtures"  "SM3D_Sanitary_fittings")

 ("Railings"  "SM3D_Handrails")
 ("Ramps"  "SM3D_Ramp")

 ("Raster Images"  "SM2D-Animation")
 ("Roads"  "SM3D_External_works")
 ("Roofs"  "SM3D_Roof_cladding")
 ("Rooms"  "SM2D_Text_general")
 ("Security Devices"  "SM3D_Component_building_services")
 ("Site"  "SM2D_External_works")
 ("Spaces"  "SM2D_general_text")
 ("Specialty Equipment"  "SM3D_Sanitary_fittings")
 ("Sprinklers"  "SM3D_Fire_protection")
 ("Stairs"  "Stairs")
 ("Structural Area Reinforcement" "SM3D_on_Load_bearing_steel")
 ("Structural Beam Systems" "SM3D_Load_bearing_steel_horz")
 ("Structural Columns"  "SM3D_Load_bearing_steel_horz")
 ("Structural Connections" "SM3D_Load_bearing_steel")
 ("Structural Fabric Areas" "SM3D_Load_bearing_steel")
 ("Structural Fabric Reinforcement" "SM3D_Non_load_bearing_steel")
 ("Structural Foundations" "SM3D_Load_bearing_foundation")
 ("Structural Framing"  "SM3D_Load_bearing_steel_horz")
 ("Structural Path Reinforcement" "SM3D_Load_bearing_steel_horz")
 ("Structural Rebar"  "SM3D_Load_bearing_steel_horz")
 ("Structural Rebar Couplers" "SM3D_Load_bearing_steel_horz")
 ("Structural Stiffeners" "Structural Stiffeners")
 ("Structural Trusses"  "265M30_Load_bearing_steel_horz")
 ("Telephone Devices"  "SM3D_Component_building_services")
 ("Topography"  "SM3D_External_worlds")
 ("Walls"  "SM3D_Non_Load_bearing_component")
 ("Walls/interior"  "SM3D_Non_Load_bearing_component")
 ("Walls/Exterior"  "SM3D_Facade_miscellaneous")
 ("Walls/Foundation"  "SM3D_Foundation")

 ("Walls/Retaining"  "SM3D_Foundation")
 ("Windows"  "SM3D_Opening_wall")
 ("Wires"  "SM2D_Component_building_services")
 ("Air Terminal Tags"  "SM2D_Text_general")
 ("Analytical Beam Tags"  "SM2D_Text_general")

 ("Analytical Brace Tags" "SM2D_Text_general")
 ("Analytical Beam Tags"  "SM2D_Text_general")
 ("Analytical Brace Tags" "SM2D_Text_general")
 ("Analytical Column Tags" "SM2D_Text_general")
 ("Analytical Floor Tags" "SM2D_Text_general")
 ("Analytical Isolated Foundation Tags" "SM2D_Text_general")
 ("Analytical Link Tags" "125M2D_Text_general")
 ("Analytical Node Tags"  "SM2D_Text_general")
 ("Analytical Slab Foundation Tags" "SM2D_Text_general")
 ("Analytical Wall Foundation Tags" "SM2D_Text_general")
 ("Analytical Wall Tags"  "SM2D_Text_general")
 ("Area Load Tags"  "SM2D_Text_general")
 ("Area Tags"  "SM2D_Text_general")
 ("Assembly Tags"  "SM2D_Text_general")
 ("Brace in Plan View Symbols" "SM2D_Text_general")
 ("Cable Tray Fitting Tags""SM2D_Text_general")
 ("Cable Tray Tags"  "SM2D_Text_general")

 ("Callouts"  "SM2D_Text_general")
 ("Casework Tags"  "SM2D_Text_general")

 ("Ceiling Tags"  "SM2D_Text_general_suspended_ceiling")
 ("Color Fill Legend"  "6")
 ("Communication Device Tags" "SM2D_Detail_reference")
 ("Conduit Fitting Tags"
  "SM2D_Detail_reference")
 ("Conduit Tags"  "SM2D_Detail_reference")
 ("Connection Symbols"  "SM2D_Detail_reference")
 ("Contour Labels"  "SM2D_Detail_reference")
 ("Curtain Panel Tags"  "SM2D_Detail_reference")
 ("Curtain System Tags"  "SM2D_Detail_reference")
 ("Data Device Tags"  "SM2D_Detail_reference")
 ("Detail Item Tags"  "SM2D_Detail_reference")

 ("Dimensions"  "SM2D_Dimensioning_general")
 ("Displacement Path"  "SM2D_Detail_reference")
 ("Door Tags"  "SM2D_Text_opening_wall")
 ("Duct Accessory Tags"  "SM2D_Detail_reference")
 ("Duct Color Fill"  "SM2D_Detail_reference")
 ("Duct Color Fill Legends" "SM2D_Detail_reference")
 ("Duct Fitting Tags"  "SM2D_Detail_reference")
 ("Duct Insulation Tags"  "SM2D_Detail_reference")
 ("Duct Lining Tags"  "SM2D_Detail_reference")
 ("Duct Tags"  "SM2D_Detail_reference")
 ("Electrical Equipment Tags" "SM2D_Detail_reference")
 ("Electrical Fixture Tags" "SM2D_Detail_reference")
 ("Elevations"  "SM2D_Detail_reference")
 ("Fire Alarm Device Tags" "SM2D_Text_fire_protection")
 ("Flex Duct Tags"  "SM2D_Detail_reference")

 ("Flex Pipe Tags"  "SM2D_Detail_reference")
 ("Floor Tags"  "SM2D_Detail_reference")
 ("Foundation Span Direction Symbol" "SM2D_Text_fundation")
 ("Floor Tags"  "SM2D_Detail_reference")
 ("Foundation Span Direction Symbol" "SM2D_Text_fundation")
 ("Furniture System Tags" "SM2D_Detail_reference")
 ("Furniture Tags"  "SM2D_Detail_reference")
 ("Generic Annotations"  "SM2D_Detail_reference")
 ("Generic Model Tags"  "SM2D_Detail_reference")
 ("Grids"  "SM2D_Grid")
 ("Internal Area Load Tags" "SM2D_Text_general")
 ("Internal Line Load Tags" "SM2D_Text_general")
 ("Internal Point Load Tags" "SM2D_Text_general")
 ("Keynote Tags"  "SM2D_Text_general")
 ("Levels"  "SM2D_Text_general")
 ("Lighting Device Tags"  "SM2D_Text_general")
 ("Lighting Fixture Tags" "SM2D_Text_general")
 ("Line Load Tags"  "SM2D_Text_general")
 ("Mass Floor Tags"  "SM2D_Text_general")
 ("Matchline"  "SM2D_Text_general")
 ("Material Tags"  "SM2D_Detail Reference")
 ("Mechanical Equipment Tags" "SM2D_Text_general")
 ("Multi-Category Tags"  "SM2D_Text_general")
 ("Nurse Call Device Tags" "SM2D_Text_general")
 ("Panel Schedule Graphics" "SM2D_Text_general")
 ("Parking Tags"  "SM2D_Text_general")
 ("Part Tags"  "SM2D_Text_general")
 ("Pipe Accessory Tags"  "SM2D_Text_general")
 ("Pipe Color Fill"  "SM2D_Text_general")
 ("Pipe Color Fill Legends""SM2D_Text_general")
 ("Pipe Fitting Tags"  "SM2D_Text_general")
 ("Pipe Insulation Tags"  "SM2D_Text_general")
 ("Pipe Tags"  "SM2D_Text_general")
 ("Plan Region"  "SM2D_Text_general")
 ("Planting Tags"  "SM2D_Text_general")
 ("Plumbing Fixture Tags" "SM2D_Text_general")
 ("Point Load Tags" "SM2D_Text_general")
 ("Property Line Segment Tags" "SM2D_Text_general")
 ("Property Tags"  "SM2D_Text_general")
 ("Railing Tags"  "SM2D_Text_general")
 ("Reference Lines"  "SM2D_Text_general")
 ("Reference Planes"  "SM2D_Text_general")
 ("Reference Points"  "SM2D_Text_general")
 ("Revision Cloud Tags"  "SM2D_Revision_marker")
 ("Revision Clouds"  "SM2D_Revision_marker")
 ("Revision Cloud Tags"  "SM2D_Revision_marker")
 ("Revision Clouds"  "SM2D_Revision_marker")
 ("Roof Tags"  "SM2D_Text_RoofRoom Tags")
 ("Schedule Graphics"  "SM2D_Room_Stamp")
 ("Scope Boxes"  "SM2D_Text_general")
 ("Section Boxes"  "SM2D_Detail_reference")
 ("Sections"  "SM2D_Detail_reference")
 ("Security Device Tags"  "SM2D_Section_line")
 ("Site Tags"  "SM2D_Text_general")
 ("Space Tags"  "SM2D_Text_general")
 ("Span Direction Symbol" "SM2D_Text_general")
 ("Specialty Equipment Tags" "SM2D_Text_general")
 ("Spot Coordinates"  "SM2D_Text_general")
 ("Spot Elevations"  "SM2D_Text_general")
 ("Spot Slopes"  "SM2D_Text_general")
 ("Sprinkler Tags"  "SM2D_Text_general")
 ("Stair Landing Tags"  "SM2D_Text_general")
 ("Stair Paths"  "SM2D_Text_general")
 ("Stair Run Tags"  "SM2D_Text_general")
 ("Stair Support Tags"  "SM2D_Text_general")
 ("Stair Tags"  "SM2D_Text_general")
 ("Stair Tread/ Riser Numbers" "SM2D_Text_general")
 ("Structural Annotations" "SM2D_Text_general")

 ("Structural Area Reinforcement Symbols" "SM2D_Text_general")
 ("Structural Area Reinforcement Tags" "SM2D_Text_steel")
 ("Structural Beam System Tags" "SM2D_Text_steel")
 ("Structural Column Tags" "SM2D_Text_steel")
 ("Structural Connection Tags" "SM2D_Text_steel")
 ("Structural Fabric Reinforcement Symbols" "SM2D_Text_steel")
 ("Structural Fabric Reinforcement Tags" "SM2D_Text_steel")
 ("Structural Foundation Tags" "SM2D_Text_Foundation")
 ("Structural Framing Tags""SM2D_Text_Foundation")
 ("Structural Path Reinforcement Symbols" "SM2D_Text_steel")
 ("Structural Path Reinforcement Tags" "SM2D_Text_steel")
 ("Structural Rebar Coupler Tags" "Structural Rebar Coupler Tags")
 ("Structural Rebar Tags""SM2D_Text_steel")
 ("Structural Stiffener Tags" "SM2D_Text_steel")
 ("Structural Truss Tags""SM2D_Text_steel")
 ("Selephone Device Tags" "SM2D_Text_general")
 ("Text Notes"  "SM2D_Text_general")

 ("Title Blocks"  "Title_block")
 ("View Reference"  "SM2D_Text_general")
 ("View Titles"  "SM2D_Text_general")
 ("Wall Tags"  "SM2D_Text_general")
 ("Window Tags"  "SM2D_Text_opening_wall")

 ("Wire Tags"  "SM2D_Text_general")

 ("Structural Framing Tags" "SM2D_Text_steel")
 ("Structural Path Reinforcement Symbols" "SM2D_Text_steel")
 ("Structural Path Reinforcement Tags" "SM2D_Text_steel")
 ("Structural Rebar Coupler Tags" "Structural Rebar Coupler Tags")
 ("Structural Rebar Tags" "SM2D_Text_steel")
 ("Structural Stiffener Tags" "SM2D_Text_steel")
 ("Structural Truss Tags" "SM2D_Text_steel")
 ("Telephone Device Tags""SM2D_Text_general")
 ("Text Notes"  "SM2D_Text_general")
 ("Title_blocks"  "Title Block")
 ("View Reference"  "SM2D_Text_general")
 ("View Titles"  "SM2D_Text_general")
 ("Wall Tags"  "SM2D_Text_general")
 ("Window Tags"  "SM2D_Text_opening_wall")
 ("Wire Tags"  "SM2D_Text_general")
 ("Zone Tags"  "SM2D Text General")
)
(renlay (car a)(cadr a))
)(princ)
)

nolo

Mensajes : 95
Fecha de inscripción : 17/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Manejo de Layers.

Mensaje por saulo2016 el Jue Ago 11, 2016 2:29 pm

Gracias por todo su apoyo y ayuda, me sirvió bastante, pude mejorar mi rutina y ademas acábo de detectar el gravisimo problema, y es que estaba repitiendo muchos nombres de layers al momento de renombrar los existentes y veo que AutoCAD no me permite hacer eso y lo estaba dejando pasar desapercibido (pero cada dia se aprende algo nuevo y mejor)....solo les agregé un numero concecutivo al final para que se distiguiera uno de otro.....y se solucionó.......demas de que mejore la rutina con la ayuda de esto 2 grandes maestros diogenes66 y nolo.....leas agradezco masters.


Saludos

saulo2016

Mensajes : 84
Fecha de inscripción : 17/03/2016
Edad : 51
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: Manejo de Layers.

Mensaje por saulo2016 el Vie Ago 12, 2016 10:32 pm

Creo que me atore otra vez, ya puedo cambiar el nombre de los LAYERS, ahora el unico problema es que no me quier cambiar el color y aqui si ya no supe que hacer, voy a dejar el codigo aqui.

Código:
(defun renlay (ol nl / ss i ent )
(cond
((and (tblsearch "layer" ol) (not (tblsearch "layer" nl))) (command "._rename" "la" ol nl))
((and (tblsearch "layer" ol)(tblsearch "layer" nl)) (progn
(setq ss (ssget "x" (list (cons 8 ol))))
(setq i -1)
(repeat (sslength ss)
(setq ent (entget (ssname ss (setq i (1+ i)))))


(command "_.layer" "_color" 2 "SM2D_Text_general" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 1" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 2" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 3" "")
(command "_.layer" "_color" 6 "SM2D_Text_general 4" "")
(command "_.layer" "_color" 5 "SM2D_Text_general 5" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 6" "")
(command "_.layer" "_color" 1 "SM2D_Text_general 7" "")  
(command "_.layer" "_color" 6 "SM2D_Text_general 8" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 9" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 10" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 11" "")
(command "_.layer" "_color" 5 "SM2D_Text_general 12" "")
(command "_.layer" "_color" 1 "SM2D_Text_general 13" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 14" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 15" "")
(command "_.layer" "_color" 5 "SM2D_Text_general 16" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 17" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 18" "")
(command "_.layer" "_color" 5 "SM2D_Text_general 19" "")
(command "_.layer" "_color" 3 "SM2D_Text_general 20" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 21" "")
(command "_.layer" "_color" 6 "SM2D_Text_general 22" "")
(command "_.layer" "_color" 0 "SM2D_Text_general 23" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 24" "")
(command "_.layer" "_color" 5 "SM2D_Text_general 25" "")  
(command "_.layer" "_color" 2 "SM2D_Text_general 26" "")
(command "_.layer" "_color" 5 "SM2D_Text_general 27" "")
(command "_.layer" "_color" 6 "SM2D_Text_general 28" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 29" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 30" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 31" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 32" "")
(command "_.layer" "_color" 1 "SM2D_Text_general 33" "")
(command "_.layer" "_color" 1 "SM2D_Text_general 34" "")
(command "_.layer" "_color" 1 "SM2D_Text_general 35" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 36" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 37" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 38" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 39" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 40" "")
(command "_.layer" "_color" 6 "SM2D_Text_general 41" "")
(command "_.layer" "_color" 6 "SM2D_Text_general 42" "")
(command "_.layer" "_color" 4 "SM2D_Text_general 43" "")
(command "_.layer" "_color" 2 "SM2D_Text_general 44" "")
(command "_.layer" "_color" 3 "SM3D_Component_building_services" "")
(command "_.layer" "_color" 3 "SM3D_Component_building_services 1" "")
(command "_.layer" "_color" 3 "SM3D_Component_building_services 2" "")
(command "_.layer" "_color" 3 "SM3D_Component_building_services 3" "")
(command "_.layer" "_color" 2 "SM3D_Component_building_services 4" "")
(command "_.layer" "_color" 1 "SM3D_Component_building_services 5" "")  
(command "_.layer" "_color" 1 "SM3D_Component_building_services 6" "")  
(command "_.layer" "_color" 1 "SM3D_Component_building_services 7" "")
(command "_.layer" "_color" 4 "SM3D_Component_building_services 8" "")
(command "_.layer" "_color" 2 "SM3D_Component_building_services 9" "")
(command "_.layer" "_color" 2 "SM3D_Component_building_services 10" "")
(command "_.layer" "_color" 1 "SM3D_Component_building_services 11" "")
(command "_.layer" "_color" 3 "SM3D_Component_building_services 12" "")  
(command "_.layer" "_color" 2 "SM3D_Component_building_services 13" "")
(command "_.layer" "_color" 2 "SM3D_Component_building_services 14" "")
(command "_.layer" "_color" 3 "SM3D_Component_building_services 15" "")
(command "_.layer" "_color" 3 "SM3D_Component_building_services 16" "")
(command "_.layer" "_color" 3 "SM3D_Component_building_services 17" "")
(command "_.layer" "_color" 2 "SM3D_Component_building_services 18" "")
(command "_.layer" "_color" 2 "SM3D_Component_building_services 19" "")
(command "_.layer" "_color" 3 "SM2D_Component_building_services 20" "")  
(command "_.layer" "_color" 2 "SM2D_Detail_reference" "")
(command "_.layer" "_color" 2 "SM2D_Detail_reference 1" "")
(command "_.layer" "_color" 2 "SM2D_Detail_reference 2" "")
(command "_.layer" "_color" 2 "SM2D_Detail_reference 3" "")
(command "_.layer" "_color" 6 "SM2D_Detail_reference 4" "")  
(command "_.layer" "_color" 2 "SM2D_Detail_reference 5" "")
(command "_.layer" "_color" 3 "SM2D_Detail_reference 6" "")
(command "_.layer" "_color" 3 "SM2D_Detail_reference 7" "")  
(command "_.layer" "_color" 2 "SM2D_Detail_reference 8" "")
(command "_.layer" "_color" 2 "SM2D_Detail_reference 9" "")
(command "_.layer" "_color" 5 "SM2D_Detail_reference 10" "")
(command "_.layer" "_color" 2 "SM2D_Detail_reference 11" "")
(command "_.layer" "_color" 2 "SM2D_Detail_reference 12" "")
(command "_.layer" "_color" 2 "SM2D_Detail_reference 13" "")
(command "_.layer" "_color" 2 "SM2D_Detail_reference 14" "")
(command "_.layer" "_color" 6 "SM2D_Detail_reference 15" "")
(command "_.layer" "_color" 2 "SM2D_Detail_reference 16" "")
(command "_.layer" "_color" 2 "SM2D_Detail_reference 17" "")
(command "_.layer" "_color" 3 "SM2D_Detail_reference 18" "")  
(command "_.layer" "_color" 3 "SM2D_Detail_reference 19" "")
(command "_.layer" "_color" 2 "SM2D_Detail_reference 20" "")
(command "_.layer" "_color" 2 "SM2D_Detail_reference 21" "")
(command "_.layer" "_color" 6 "SM2D_Detail_reference 22" "")
(command "_.layer" "_color" 2 "SM2D_Detail Reference 23" "")
(command "_.layer" "_color" 6 "SM2D_Detail_reference 24" "")
(command "_.layer" "_color" 2 "SM3D_Suspended_ceiling_building_services" "")
(command "_.layer" "_color" 2 "SM3D_Suspended_ceiling_building_services 1" "")
(command "_.layer" "_color" 4 "SM3D_Suspended_ceiling_building_services 2" "")
(command "_.layer" "_color" 6 "SM3D_Non_load_bearing_component" "")
(command "_.layer" "_color" 3 "SM3D_Non_load_bearing_component 1" "")
(command "_.layer" "_color" 2 "SM3D_Non_Load_bearing_component 2" "")
(command "_.layer" "_color" 2 "SM3D_Non_Load_bearing_component 3" "")
(command "_.layer" "_color" 3 "SM3D_Animation" "")
(command "_.layer" "_color" 2 "SM3D_Animation 1" "")
(command "_.layer" "_color" 2 "SM3D_Animation 2" "")
(command "_.layer" "_color" 8 "SM2D-Animation 3" "")
(command "_.layer" "_color" 1 "SM2D_External_works" "")
(command "_.layer" "_color" 3 "SM2D_External_works 1" "")
(command "_.layer" "_color" 6 "SM2D_External_works 2" "")
(command "_.layer" "_color" 2 "SM3D_External_works 3" "")
(command "_.layer" "_color" 4 "SM3D_External_works 4" "")  
(command "_.layer" "_color" 5 "SM2D_Revision_marker" "")
(command "_.layer" "_color" 5 "SM2D_Revision_marker 1" "")
(command "_.layer" "_color" 2 "SM2D_Text_steel" "")
(command "_.layer" "_color" 2 "SM2D_Text_steel 1" "")
(command "_.layer" "_color" 2 "SM2D_Text_steel 2" "")
(command "_.layer" "_color" 2 "SM2D_Text_steel 3" "")
(command "_.layer" "_color" 2 "SM2D_Text_steel 4" "")
(command "_.layer" "_color" 2 "SM2D_Text_steel 5" "")
(command "_.layer" "_color" 2 "SM2D_Text_steel 6" "")
(command "_.layer" "_color" 2 "SM2D_Text_steel 7" "")
(command "_.layer" "_color" 2 "SM2D_Text_steel 8" "")
(command "_.layer" "_color" 2 "SM3D_on_Load_bearing_steel" "")
(command "_.layer" "_color" 2 "SM3D_Load_bearing_steel_horz" "")
(command "_.layer" "_color" 6 "SM3D_Load_bearing_steel_horz 1" "")
(command "_.layer" "_color" 4 "SM3D_Load_bearing_steel_horz 2" "")
(command "_.layer" "_color" 2 "SM3D_Load_bearing_steel_horz 3" "")
(command "_.layer" "_color" 2 "SM3D_Load_bearing_steel_horz 4" "")
(command "_.layer" "_color" 2 "SM3D_Foundation" "")
(command "_.layer" "_color" 2 "SM3D_Foundation 1" "")
(command "_.layer" "_color" 2 "SM2D_Text_fundation" "")
(command "_.layer" "_color" 2 "SM2D_Text_Foundation 1" "")
(command "_.layer" "_color" 2 "SM2D_Text_Foundation 2" "")
(command "_.layer" "_color" 6 "SM2D_Text_general_suspended_ceiling" "")
(command "_.layer" "_color" 6 "SM2D_Text_opening_wall" "")
(command "_.layer" "_color" 2 "SM2D_Text_fire_protection" "")
(command "_.layer" "_color" 6 "SM2D_Text_RoofRoom Tags" "")
(command "_.layer" "_color" 6 "SM2D_Text_opening_wall 2" "")
(command "_.layer" "_color" 3 "SM3D_Casework" "")
(command "_.layer" "_color" 5 "SM3D_Suspended_ceiling" "")
(command "_.layer" "_color" 4 "SM3D_Load_bearing_steel_vert" "")
(command "_.layer" "_color" 1 "SM2D_Dimensioning_general" "")
(command "_.layer" "_color" 1 "SM3D_Opening_wall" "")
(command "_.layer" "_color" 6 "SM3D_Opening_wall 1" "")
(command "_.layer" "_color" 6 "SM3D_Floor" "")
(command "_.layer" "_color" 1 "SM2D_Grid" "")
(command "_.layer" "_color" 2 "SM2D_Area_fill" "")
(command "_.layer" "_color" 5 "SM3D_Detail" "")
(command "_.layer" "_color" 5 "SM3D_Mass" "")
(command "_.layer" "_color" 6 "SM3D_Sanitary_fittings" "")
(command "_.layer" "_color" 1 "SM3D_Handrails" "")
(command "_.layer" "_color" 2 "SM3D_Ramp" "")
(command "_.layer" "_color" 4 "SM3D_Roof_cladding" "")
(command "_.layer" "_color" 5 "SM2D_Room_Stamp" "")
(command "_.layer" "_color" 2 "SM2D_Section_line" "")
(command "_.layer" "_color" 6 "SM3D_Sanitary_fittings 1" "")
(command "_.layer" "_color" 3 "SM3D_Fire_protection" "")
(command "_.layer" "_color" 2 "Stairs" "")
(command "_.layer" "_color" 4 "SM3D_Load_bearing_foundation" "")
(command "_.layer" "_color" 4 "Structural Stiffeners" "")
(command "_.layer" "_color" 2 "265M30_Load_bearing_steel_horz" "")
(command "_.layer" "_color" 6 "Title Block" "")
(command "_.layer" "_color" 2 "SM3D_Facade_miscellaneous" "")
);repeat
);progn
)
);cond

  
  (princ)
)


(defun c:cambiar ()

(renlay "M-ANNO"                   "SM2D_Detail_reference 10")
(renlay "M-ANNO 2"           "SM2D_Text_general 16")
(renlay "M-ANNO-TEXT"              "SM2D_Text_general")
(renlay "M-ANNO-TEXT 1"            "SM2D_Detail_reference 8")
(renlay "M-ANNO-TEXT 2"            "SM2D_Detail_reference 12")
(renlay "M-ANNO-TEXT 3"            "SM2D_Detail_reference 16")
(renlay "M-ANNO-TEXT 4"            "SM2D_Detail_reference 17")
(renlay "M-ANNO-TEXT 5"           "SM2D_Text_general 14")
(renlay "M-ANNO-TEXT 6"            "SM2D_Text_general 18")
(renlay "A-AREA-IDEN"              "SM2D_Text_general 1")
(renlay "E-POWR-IDEN"              "SM2D_Text_general 2")
(renlay "E-POWR-IDEN 1"            "SM2D_Text_general 3")
(renlay "A-ANNO-SYMB"              "SM2D_Text_general 4")
(renlay "I-ELEV-IDEN"              "SM2D_Text_general 5")
(renlay "LIGHTING-DEVICES"         "SM2D_Text_general 6")
(renlay "E-LITE-IDEN"              "SM2D_Text_general 7")
(renlay "A-ANNO-SYMB 1"            "SM2D_Text_general 8")  
(renlay "M-EQPT-IDEN"           "SM2D_Text_general 9")
(renlay "A-ANNO-IDEN"           "SM2D_Text_general 10")
(renlay "NURSE-CALL-DEVICES"   "SM2D_Text_general 11")
(renlay "A-ANNO-NPLT"           "SM2D_Text_general 12")
(renlay "C-PKNG-IDEN"           "SM2D_Text_general 13")
(renlay "M-PIPE-PATT"           "SM2D_Text_general 15")
(renlay "E-ANNO-TEXT"           "SM2D_Text_general 17")
(renlay "G-ANNO-NPLT"           "SM2D_Text_general 19")  
(renlay "L-PLNT-IDEN"           "SM2D_Text_general 20")
(renlay "P-ANNO-IDEN"           "SM2D_Text_general 21")
(renlay "C-PROP-IDEN"           "SM2D_Text_general 22")
(renlay "C-ANNO-IDEN"           "SM2D_Text_general 23")
(renlay "A-FLOR-IDEN"           "SM2D_Text_general 24")
(renlay "G-ANNO-NPLT 1"            "SM2D_Text_general 25")
(renlay "A-AREA-IDEN 1"           "SM2D_Text_general 26")
(renlay "G-ANNO-NPLT 2"            "SM2D_Text_general 27")
(renlay "L-ANNO-IDEN"           "SM2D_Text_general 28")
(renlay "M-AREA-IDEN"           "SM2D_Text_general 29")
(renlay "M-AREA-BDRY"           "SM2D_Text_general 30")
(renlay "S-FLOR-SYMB"           "SM2D_Text_general 31")
(renlay "A-EQPM-IDEN"           "SM2D_Text_general 32")
(renlay "A-ANNO-DIMS"           "SM2D_Text_general 33")
(renlay "A-ANNO-DIMS 1"           "SM2D_Text_general 34")
(renlay "A-ANNO-DIMS 2"           "SM2D_Text_general 35")
(renlay "F-Anno-Std-Text"          "SM2D_Text_general 36")  
(renlay "S-IDEN"   "SM2D_Text_general 37")
(renlay "S-RBAR-SYMB"           "SM2D_Text_general 38")
(renlay "PHONE-DEVICES"            "SM2D_Text_general 39")
(renlay "A-ANNO-TEXT"   "SM2D_Text_general 40")
(renlay "A-ANNO-SYMB 4"            "SM2D_Text_general 41")
(renlay "G-ANNO-TTLB"           "SM2D_Text_general 42")
(renlay "A-WALL-IDEN"           "SM2D_Text_general 43")
(renlay "E-ANNO-TEXT 1"           "SM2D_Text_general 44")
(renlay "E-POWR-CABL"              "SM3D_Component_building_services")
(renlay "E-POWR-CABL 1"            "SM3D_Component_building_services 1")
(renlay "E-POWR-CNDT"              "SM3D_Component_building_services 2")
(renlay "E-POWR-CNDT 1"            "SM3D_Component_building_services 3")
(renlay "DATA-DEVICES 1"           "SM3D_Component_building_services 4")
(renlay "M-HVAC-DUCT"              "SM3D_Component_building_services 5")
(renlay "M-HVAC-DUCT 1"            "SM3D_Component_building_services 6")
(renlay "M-HVAC-DUCT 2"            "SM3D_Component_building_services 7")
(renlay "E-EQPM"                   "SM3D_Component_building_services 8")
(renlay "E-FIXT"                   "SM3D_Component_building_services 9")
(renlay "FIRE-ALARM-DEVICES 1"     "SM3D_Component_building_services 10")
(renlay "M-HVAC-DUCT 3"            "SM3D_Component_building_services 11")
(renlay "M-PIPE"                   "SM3D_Component_building_services 12")
(renlay "M-EQPT"           "SM3D_Component_building_services 13")
(renlay "NURSE-CALL-DEVICES 1"   "SM3D_Component_building_services 14")
(renlay "M-PIPE 1"           "SM3D_Component_building_services 15")
(renlay "M-PIPE 2"           "SM3D_Component_building_services 16")
(renlay "M-PIPE 3"           "SM3D_Component_building_services 17")
(renlay "SECUTITY-DEVICES"         "SM3D_Component_building_services 18")
(renlay "PHONE-DEVICES 1"   "SM3D_Component_building_services 19")  
(renlay "E-POWR-WIRE"   "SM2D_Component_building_services 20")
(renlay "S-RBAR-IDEN"           "SM2D_Text_steel")
(renlay "S-BEAM-IDEN"           "SM2D_Text_steel 1")
(renlay "S-COLS-IDEN"           "SM2D_Text_steel 2")
(renlay "S-COLS-ANLY"           "SM2D_Text_steel 3")  
(renlay "S-RBAR-SYMB 1"            "SM2D_Text_steel 4")
(renlay "S-RBAR-IDEN 2"            "SM2D_Text_steel 5")
(renlay "S-RBAR-IDEN 3"            "SM2D_Text_steel 6")
(renlay "S-BEAM-IDEN 2"           "SM2D_Text_steel 7")
(renlay "S-BEAM-IDEN 3"            "SM2D_Text_steel 8")  
(renlay "COMM-DEVICES"             "SM2D_Detail_reference")
(renlay "E-POWR-IDEN 2"            "SM2D_Detail_reference 1")
(renlay "E-POWR-IDEN 3"            "SM2D_Detail_reference 2")
(renlay "C-TOPO-MAID"              "SM2D_Detail_reference 3")
(renlay "A-GLAZ-IDEN"              "SM2D_Detail_reference 4")
(renlay "DATA-DEVICES"             "SM2D_Detail_reference 5")
(renlay "A-DETL-IDEN"              "SM2D_Detail_reference 6")
(renlay "A-DETL-GENF"              "SM2D_Detail_reference 7")
(renlay "M-HVAC-PATT"              "SM2D_Detail_reference 9")
(renlay "E-ANNO-TEXT 2"            "SM2D_Detail_reference 11")
(renlay "E-EQPM-IDEN"              "SM2D_Detail_reference 13")
(renlay "E-FIXT-IDEN"              "SM2D_Detail_reference 14")
(renlay "A-ANNO-SYMB 2"            "SM2D_Detail_reference 15")
(renlay "I-FURN-IDEN"              "SM2D_Detail_reference 18")
(renlay "I-FURN-IDEN 1"            "SM2D_Detail_reference 19")
(renlay "A-ANNO-NOTE"              "SM2D_Detail_reference 20")
(renlay "A-GENM-IDEN"              "SM2D_Detail_reference 21")
(renlay "A-GENM"                   "SM2D_Detail_reference 22")
(renlay "A-ANNO-IDEN 1"            "SM2D_Detail Reference 23")
(renlay "A-ANNO-SYMB 3"            "SM2D_Detail_reference 24")
(renlay "C-PKNG"           "SM2D_External_works")
(renlay "L-PLNT-BEDS"           "SM2D_External_works 1")  
(renlay "L-SITE"   "SM2D_External_works 2")
(renlay "C-ROAD"   "SM3D_External_works 3")
(renlay "C-TOPO"   "SM3D_External_works 4")
(renlay "COMM-DEVICES 1"           "SM3D_Suspended_ceiling_building_services")
(renlay "LIGHTING-DEVICES 1"       "SM3D_Suspended_ceiling_building_services 1")
(renlay "E-LITE-EQPM"              "SM3D_Suspended_ceiling_building_services 2")
(renlay "A-DETL-GENF 1"            "SM3D_Animation")
(renlay "I-FURN"                   "SM3D_Animation 1")
(renlay "I-FURN-PNLS"              "SM3D_Animation 2")  
(renlay "G-ANNO-PATT"           "SM2D-Animation 3")
(renlay "S-FNDN-IDEN"           "SM2D_Text_Foundation")
(renlay "S-BEAM-IDEN 1"            "SM2D_Text_Foundation 1")
(renlay "S-FOOTING-SYMB"           "SM2D_Text_Foundation 2")
(renlay "S-ANNO-SYM 1"   "265M30_Load_bearing_steel_horz")
(renlay "S-ANNO-SYM"           "SM3D_Load_bearing_steel_horz")
(renlay "S-COLS"   "SM3D_Load_bearing_steel_horz 1")
(renlay "S-BEAM"   "SM3D_Load_bearing_steel_horz 2")
(renlay "S-RBAR-BDRY 1"            "SM3D_Load_bearing_steel_horz 3")
(renlay "S-RBAR"   "SM3D_Load_bearing_steel_horz 4")
(renlay "A-GLAZ"                   "SM3D_Non_load_bearing_component")
(renlay "A-GLAZ-CWMG"              "SM3D_Non_load_bearing_component 1")
(renlay "A-WALL"   "SM3D_Non_Load_bearing_component 2")
(renlay "I-WALL"   "SM3D_Non_Load_bearing_component 3")
(renlay "G-ANNO-REVS"           "SM2D_Revision_marker")
(renlay "G-ANNO-REVS 1"            "SM2D_Revision_marker 1")
(renlay "S-FNDN"           "SM3D_Foundation ")
(renlay "SITE-WALL"   "SM3D_Foundation 1")
(renlay "A-CLNG-IDEN"              "SM2D_Text_general_suspended_ceiling")
(renlay "A-DOOR-IDEN"              "SM2D_Text_opening_wall")
(renlay "A-GLAZ-IDEN 1"   "SM2D_Text_opening_wall 2")
(renlay "FIRE-ALARM-DEVICES"       "SM2D_Text_fire_protection")
(renlay "A-ROOF-IDEN"           "SM2D_Text_RoofRoom Tags")
(renlay "A-FLOR-CASE"              "SM3D_Casework")
(renlay "A-FLOR-OTLN"              "SM3D_Floor")
(renlay "S-GRID"                   "SM2D_Grid")
(renlay "A-DETL"                   "SM3D_Detail")
(renlay "A-MASS"                   "SM3D_Mass")
(renlay "S-BEAM 1"   "Structural Stiffeners")
(renlay "G-ANNO-TTLB 1"           "Title Block")
(renlay "A-FLOR-STRS"           "Stairs")
(renlay "A-FLOR-STRS 1"           "SM3D_Ramp")
(renlay "A-CLNG-SUSP"              "SM3D_Suspended_ceiling")
(renlay "A-COLS"                   "SM3D_Load_bearing_steel_vert")
(renlay "A-ANNO-DIMS 3"            "SM2D_Dimensioning_general")
(renlay "A-DOOR"                   "SM3D_Opening_wall")
(renlay "A-GLAZ 1"   "SM3D_Opening_wall 1")
(renlay "M-ZONE"                   "SM2D_Area_fill")
(renlay "P-SANR-FIXT"           "SM3D_Sanitary_fittings")
(renlay "A-FLOR-HRAL"           "SM3D_Handrails")
(renlay "A-ROOF"   "SM3D_Roof_cladding")
(renlay "A-ANNO-NPLT 1"            "SM2D_Room_Stamp")
(renlay "SECUTITY-DEVICES 1"       "SM2D_Section_line")
(renlay "A-EQPM"           "SM3D_Sanitary_fittings 1")
(renlay "F-Sprn-Std"           "SM3D_Fire_protection")
(renlay "S-RBAR-BDRY"           "SM3D_on_Load_bearing_steel")
(renlay "S-FNDN-FTNG"           "SM3D_Load_bearing_foundation")
(renlay "A-WALL 1"   "SM3D_Facade_miscellaneous")


);defun

Haber si me pueden ayudar pues ya no supe que hacer...

Gracias

saulo2016

Mensajes : 84
Fecha de inscripción : 17/03/2016
Edad : 51
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: Manejo de Layers.

Mensaje por Contenido patrocinado Hoy a las 11:04 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.