rlcad Posted July 22, 2016 Share Posted July 22, 2016 In the Style Manager I couldn't find a way to create a Style for lines, circles, rectangles, arcs et al. How do I save a set of settings for these components? Quote Link to comment Share on other sites More sharing options...
RobDraw Posted July 23, 2016 Share Posted July 23, 2016 Layers, usually. Quote Link to comment Share on other sites More sharing options...
Dadgad Posted July 23, 2016 Share Posted July 23, 2016 (edited) Most people probably wouldn't need a style for them, specifically, unless as Robdraw suggested, for some reason you wanted to isolate them onto separate layers, and that would be a good way to address that need, if that is what you have in mind. When I am drawing on my Steel layer, which is where I spend most of my time, I will typically use most of those (although I greatly prefer using closed Polylines), and the colors, linetypes and lineweights will all be controlled by the layer upon which they are created, or located, at any given moment. I am curious what Settings you would expect, or want to apply to these different types of entities? If there is some compelling reason why you need to be able to do this, I can think of no more fluid and inspired way, than using Lee Mac's outstanding Layer Director lisp. Thanks Lee! This lisp is such an EPIC productivity enhancer, and does so much to improve the quality and conformity of one's drawings, that it is difficult to express. If you click on the link and read the complete description carefully, you will see why I believe that. It is in my startup lisp folder, and I would be lost without it. Stop worrying about what layer you are currently on, and just get back to work, while the lisp effortlessly and tirelessly assigns, or creates layers (if needed), to your personal specifications, adjusts your current layer to the command appropriate layer, then reverts to the previous layer, standing by until your next command, all on the fly, without giving any of those considerations a moments thought. What's not to LOVE? If you are reading this, and thinking I am delusional and waxing hyperbolic? You may be part right, as the fact that I am spot on regarding Lee's lisp, does not preclude the possibility that I could be totally bonkers, and delusional in other areas. Check it out, you'll be eternally grateful to Lee Mac, that you did. Edited July 23, 2016 by Dadgad Quote Link to comment Share on other sites More sharing options...
rkent Posted July 23, 2016 Share Posted July 23, 2016 Can confirm, LayerDirector by Lee Mac is the best. Edit the layer list to your needs and never look back. Quote Link to comment Share on other sites More sharing options...
BIGAL Posted July 24, 2016 Share Posted July 24, 2016 We set up our dwg template to have the common used layers all preset so would start there. One little thing we have is a preset object group so we can pick these and set current layer, like TEXT layer & colour set. The other way is to have commands say via lisp or menu's so again you draw on the correct layer. There is a lisp that you pick an object and it sets the current layer and starts the command for that type of object. ; sorry Author is unknown ; matches pick object for next command plus layer (defun c:ZZZ (/ ent Obj lEnt) (vl-load-com) (while (setq ent (car (nentsel "\nSelect Object: "))) (setq Obj (vlax-ename->vla-object ent) typ (cdr (assoc 0 (entget ent)))) (cond ((vl-position typ '("CIRCLE" "ARC" "ELLIPSE" "SPLINE" "XLINE")) (comInv typ nil) (PropMatch Obj (entlast))) ((eq "LWPOLYLINE" typ) (comInv "pline" nil) (PropMatch Obj (entlast))) ((eq "LINE" typ) (setq lEnt (entlast)) (comInv typ nil) (foreach ent (EntCol (if lEnt lEnt (entlast))) (PropMatch Obj ent))) ((eq "HATCH" typ) (setq lEnt (entlast)) (comInv typ t) (if (not (eq lEnt (entlast))) (PropMatch Obj (entlast)))) ((eq "VIEWPORT" typ) (setq lEnt (entlast)) (comInv "-vports" nil) (if (not (eq lEnt (entlast))) (PropMatch Obj (entlast)))))) (princ)) (defun PropMatch (bObj dObj) (or (eq 'VLA-OBJECT (type bObj)) (setq bObj (vlax-ename->vla-object bObj))) (or (eq 'VLA-OBJECT (type dObj)) (setq dObj (vlax-ename->vla-object dObj))) (foreach prop '(Layer Linetype LinetypeScale Color Lineweight ViewportOn ShadePlot DisplayLocked GradientAngle GradientCentered GradientColor1 GradientColor2 GradientName HatchObjectType HatchStyle ISOPenWidth Origin PatternAngle PatternDouble PatternScale PatternSpace) (if (and (vlax-property-available-p bObj prop) (vlax-property-available-p dObj prop T)) (vlax-put-property dObj prop (vlax-get-property bObj prop))))) (defun EntCol (x / x) (if (setq x (entnext x)) (cons x (EntCol x)))) (defun comInv (com flag) (if flag (initdia)) (command (strcat "_." com)) (while (eq 1 (logand 1 (getvar "CMDACTIVE"))) (command pause))) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.