Topic: Linetype needed

[ronjonp]

Does anyone know how to make the line type shown below?

[mjfarrell]

you should be able to find/create a similar linetype in acad.lin file

*GAS_LINE,Gas line ----GAS----GAS----GAS----GAS----GAS----GAS--
A,.5,-.2,["GAS",STANDARD,S=.1,R=0.0,X=-0.1,Y=-.05],-.25

becomes

*Electric_LINE,Gas line ----E----E----E----E----E----E--
A,.5,-.2,["E",STANDARD,S=.1,R=0.0,X=-0.1,Y=-.05],-.25

[ronjonp]

Thanks for the reply Mike. The part that had me confused was the double line in the definition 

[JCTER]

AFAIK, unless you use some character that's double lined, like the equals sign (=) you cannot have two lines occupying the same space in a line definition.  This is something I kinda hate about Autocad's linetype ability.  There's plenty of stuff that could use updating.

You could use a MULTILINE, but that introduces a lot of complication, error, and inconsistency that come with a utility that is also just as unimpressive as regular linetypes, imo

If you're comfortable using a custom shape definition, I'd say go that route, but in some environments, that is more hassle than it's worth, maybe yours included.

I've tried to get a similar linetype with parallel 'horizontal' lines, but ended up using multilines, and then I got disgruntled about different problems that multilines had.  It might be a solution for you though.

[ronjonp]

So other than creating a shape file to use this is not possible?

[JCTER]

So other than creating a shape file to use this is not possible?

Unless you can find a suitable character that'll work well enough in a font file.  Or you could create a custom font

Short of it... no, you'd have to create a custom doohickey of some sort.

[alanjt]

So other than creating a shape file to use this is not possible?

I tried that once and it looked TERRIBLE.

[alanjt]

 

Code: [Select]

(defun c:TEst (/ w p1 p2 lst obj)
  (and (setq w (getdist "\nSpecify width: "))
       (setq w (/ w 12.))
       (setq p1 (getpoint "\nSpecify first point: "))
       (setq lst (list p1))
       (while (setq p2 (getpoint (car lst) "\nSpecify next point: "))
         (grdraw (car lst) p2 -1)
         (setq lst (cons p2 lst))
       ) ;_ while
       (setq obj (vlax-ename->vla-object
                   (entmakex (append (list '(0 . "LWPOLYLINE")
                                           '(100 . "AcDbEntity")
                                           '(100 . "AcDbPolyline")
                                           (cons 90 (length lst))
                                     ) ;_ list
                                     (mapcar '(lambda (x) (cons 10 x)) lst)
                             ) ;_ append
                   ) ;_ entmakex
                 ) ;_ vlax-ename->vla-object
       ) ;_ setq
       (progn
         (mapcar '(lambda (#) (vl-catch-all-apply 'vla-offset (list obj (/ w #))))
                 '(2. -2.)
         ) ;_ mapcar
         (vla-delete obj)
         (redraw)
       ) ;_ progn
  ) ;_ and
) ;_ defun


[Matt__W]

What about using an MLINE style?  You could create a simple line style that has dots on each end and the letter 'E' spaced throughout.

[mjfarrell]

Thanks for the reply Mike. The part that had me confused was the double line in the definition 

Is it REALLY a double line definition, or just TWO different features whose line types are similar lying next to each other in plan view?

[ronjonp]

Thanks for the reply Mike. The part that had me confused was the double line in the definition 

Is it REALLY a double line definition, or just TWO different features whose line types are similar lying next to each other in plan view?

It's a linetype in Microstation that I'm trying to mimic.

[ronjonp]

Code: [Select]

(defun c:TEst (/ w p1 p2 lst obj)
  (and (setq w (getdist "\nSpecify width: "))
       (setq w (/ w 12.))
       (setq p1 (getpoint "\nSpecify first point: "))
       (setq lst (list p1))
       (while (setq p2 (getpoint (car lst) "\nSpecify next point: "))
         (grdraw (car lst) p2 -1)
         (setq lst (cons p2 lst))
       ) ;_ while
       (setq obj (vlax-ename->vla-object
                   (entmakex (append (list '(0 . "LWPOLYLINE")
                                           '(100 . "AcDbEntity")
                                           '(100 . "AcDbPolyline")
                                           (cons 90 (length lst))
                                     ) ;_ list
                                     (mapcar '(lambda (x) (cons 10 x)) lst)
                             ) ;_ append
                   ) ;_ entmakex
                 ) ;_ vlax-ename->vla-object
       ) ;_ setq
       (progn
         (mapcar '(lambda (#) (vl-catch-all-apply 'vla-offset (list obj (/ w #))))
                 '(2. -2.)
         ) ;_ mapcar
         (vla-delete obj)
         (redraw)
       ) ;_ progn
  ) ;_ and
) ;_ defun


Thanks for the code Alan .. perhaps if I get bored I'll take it a bit further and plop the E's along it 

[alanjt]

Code: [Select]

(defun c:TEst (/ w p1 p2 lst obj)
  (and (setq w (getdist "\nSpecify width: "))
       (setq w (/ w 12.))
       (setq p1 (getpoint "\nSpecify first point: "))
       (setq lst (list p1))
       (while (setq p2 (getpoint (car lst) "\nSpecify next point: "))
         (grdraw (car lst) p2 -1)
         (setq lst (cons p2 lst))
       ) ;_ while
       (setq obj (vlax-ename->vla-object
                   (entmakex (append (list '(0 . "LWPOLYLINE")
                                           '(100 . "AcDbEntity")
                                           '(100 . "AcDbPolyline")
                                           (cons 90 (length lst))
                                     ) ;_ list
                                     (mapcar '(lambda (x) (cons 10 x)) lst)
                             ) ;_ append
                   ) ;_ entmakex
                 ) ;_ vlax-ename->vla-object
       ) ;_ setq
       (progn
         (mapcar '(lambda (#) (vl-catch-all-apply 'vla-offset (list obj (/ w #))))
                 '(2. -2.)
         ) ;_ mapcar
         (vla-delete obj)
         (redraw)
       ) ;_ progn
  ) ;_ and
) ;_ defun


Thanks for the code Alan .. perhaps if I get bored I'll take it a bit further and plop the E's along it 

Playing around and thought it might help.

[GDF]

or use autocad's dline.lsp routine...

[ronjonp]

I ended up using this:

*TRENCH,trench
A,0,-.007898,["E",Standard,y=-.062837,s=.125],-.093018,["=",Standard,y=-.100337,s=.2],-.13344,["=",Standard,y=-.100337,s=.2],-.13344,["=",Standard,y=-.100337,s=.2],-.13181

It's UGLY but works...