Search the Community

Hi, I am looking to lock multiple layers simultaneously by selection window. Or by clicking multiple times. The inbuilt lock layer (_laylck) command does not seem to support selection windows and only does one layer at a time. I would like to do mutiples. I am fairly new to LISP but fairly good at script writing (been on LT for several year, now on full!!!) I found this script on the forum; type "frz" to run lisp (defun c:frz () (setvar "cmdecho" 0) (setq data (enget (car (entsel))))) (setq laynme assoc 8 data)) (setq lay (cdr laynme)) (command "layer" "freeze" lay "") (princ)) Though autocad (2011) throws out an error (see below) Any suggestions on how to modify the above a) to work and b) to do what i want? Or is there a better way? Thanks for your help!

Hi, I have an auto cad file which has around 100 different layers, I want to extract one layer to a dxf file. I have frozen all layers accept the layer I require and have then tried to use the dxf out command, however the created dxf file still contains all of the other layers. Is dxf out the correct command or am I doing something wrong?

Recently i changed the layer color for a drawing in AutoCAD. However, each time i would use one of my layer states, the layer would change to the previous color. SOLUTION: Since i use layer states quite frequently, i keep a drawing with them saved in a prototype directory. All i had to do to fix the problem above was re-save the layer states with the new layer color. And then export them out as files (if you use layer states as often as i do, you know what I'm talking about). Hope this helps! Patrick

hey guys i have a file with 2 dozen layers each with objects in 12 different colors and i need to sort them out into layers depending on the objects color. e.g. all the objects with color "yellow" in one layer, all the objects with color "magenta" in another layer etc. can this be done with a lisp? can anyone help me i now nothing about writing lisp's

Ladies/Gents, Looking for a bit of assistance to an odd occurence with one of my drawings. I have a room full of furniture that I want to show in 3D in the conceptual style from a few different views. I've set up a couple of viewports in paper space, then rotated my view to suit, went into the layer properties for each and turned off the 'walls' layer within the viewport - walls disappear in each viewport and I have what I want. Problem is, when I then save the drawing, the frozen layer reappears. Checking back into the layer manager, the 'walls' layer still says its frozen within the viewport, but I can cleary see it on my drawing... Any ideas on what might be happening? It's AutoCAD 2009 and I'm not using Xrefs. (It seems a similar problem can be sorted if its Xref's) Thanks for your help

I have tried searching the forums to no avail. I am not a beginner when it comes to AutoCAD but I am self taught so it's entirely possible there are things I have missed that are basic and obvious to others. Is it possible to assign an entity or a block to multiple layers? For example I have a Fire Alarm layer showing smoke detectors and a Fire Alarm Panel but I would also like the Fire Alarm Panel to also show in my Small Power Viewport too. I don't want to see smoke detectors on my small Power so I can't just make the layer visible to that viewport. How do you guys handle such a situation? At present I tend to create a dedicated layer called "Small Power Fire" which is shown on both the Fire Alarm Viewport and the Small Power Viewport but this creates a lot of layers to maintain that contain one or two items. I realise I could copy the Fire Alarm Panel to the Small Power Layer but I don't like that idea because its means someone has to change two layers when repositioning or altering. Any suggestions? The ability to assign an entity or block to multiple layers would be fantastic and I can't believe it's not already an option. I am running AutoCAD 2008 at present.

When I open the layers dialog box my layer names are scrambled up and not in order like they once were. I have to hit the "Name" tab to get them back. I have tried re-setting it back to how it was but can't figure out how. When I opened an old file of the same drawing and the layers are in their original positions. How do I get them to stick? Thanks

I'm working on a drawing with staging of works on it. I have 3 drawings for the 3 stages, and each stage shows the work done as part of the previous stage. However we would like the work from previous stages shown, but printed as grey rather than black. I know how to set certain colours to print grey while the rest are black, however is it possible to modify the plot table so that particular layers rather than colours can be changed to greyscale?

Hi All, I have so many drawings in which the xrefs were 'bind'ed instead of 'insert'ing. Seeking a solution I got a Lisp routine from net (Thanks to the person posted it. But I don't remember his name or the wesite I got it from), which is as given below. The problem is that $0$ layers are not getting renamed because I have another layer in the same name. Suppose; I have a layer, Ground Floor Plan$0$A-ANNO-DIMS which has to be renamed to A-ANNO-DIMS Since the drawing has a layer A-ANNO-DIMS, it doesn't allow the lisp to rename it. I have the logic now but I am a zero in lisp. It has to check if the layer exists before renaming. If existing it should merge down the $0$ layer to the standard one. (This part is missing in the lisp routine) Can anyone please change the code to do so? It would be a great help... Here is the code; (defun c:RBP(/ ActDoc Name NewName) ; RemoveBindPrefixes ; Renames layers, blocks, dimension styles, text styles, user coordinate systems, and views ; by taking out the bind as bind prefix ; Example Drawing1$0$Layer1 -> Layer1 (vl-load-com) (defun RemoveBindPrefix (String / Pos LastPos) (if (setq Pos (vl-string-search "$" String)) (progn (setq LastPos Pos) (while (setq Pos (vl-string-search "$" String (1+ Pos))) (setq LastPos Pos) ) (substr String (+ 2 LastPos)) ) String ) ) ;--------------------------------------------------------- (setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object))) (vlax-for Obj (vla-get-Layers ActDoc) (setq Name (vla-get-Name Obj)) (if (/= (setq NewName (RemoveBindPrefix Name)) Name) (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-Name (list Obj NewName))) (prompt (strcat "\n Layer: " Name " was not renamed.")) ) ) ) (vlax-for Obj (vla-get-Blocks ActDoc) (setq Name (vla-get-Name Obj)) (if (/= (setq NewName (RemoveBindPrefix Name)) Name) (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-Name (list Obj NewName))) (prompt (strcat "\n Block: " Name " was not renamed.")) ) ) ) (vlax-for Obj (vla-get-TextStyles ActDoc) (setq Name (vla-get-Name Obj)) (if (/= (setq NewName (RemoveBindPrefix Name)) Name) (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-Name (list Obj NewName))) (prompt (strcat "\n Text style: " Name " was not renamed.")) ) ) ) (vlax-for Obj (vla-get-Views ActDoc) (setq Name (vla-get-Name Obj)) (if (/= (setq NewName (RemoveBindPrefix Name)) Name) (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-Name (list Obj NewName))) (prompt (strcat "\n View: " Name " was not renamed.")) ) ) ) (vlax-for Obj (vla-get-UserCoordinateSystems ActDoc) (setq Name (vla-get-Name Obj)) (if (/= (setq NewName (RemoveBindPrefix Name)) Name) (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-Name (list Obj NewName))) (prompt (strcat "\n UCS: " Name " was not renamed.")) ) ) ) (vlax-for Obj (vla-get-DimStyles ActDoc) (setq Name (vla-get-Name Obj)) (if (/= (setq NewName (RemoveBindPrefix Name)) Name) (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-Name (list Obj NewName))) (prompt (strcat "\n Dimension style: " Name " was not renamed.")) ) ) ) (princ) )

Hi, I have a script that will plot layers automatically without me going into layer manager and changing them and then clicking plot. The drawings i will be working with are electrical, they have many layers in one drawing. the layers are not sequentially numbered so makes the script harder to produce. In theory i wanted a vB program were i have check boxes of the layeers and then the layers checked are pasted into the script. Has anyone got any ideas? the script is as follows: