Jump to content

How to create a Style for lines, circles etc.?


Recommended Posts

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?

Link to comment
Share on other sites

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! :beer:

 

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 by Dadgad
Link to comment
Share on other sites

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)))

Link to comment
Share on other sites

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.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...