complex line typ help

Hello everyone,

Could you help me how can I create the following line type in AutoCAD 2011?

Please help me if you can!

Thanks

One option would be to use Express Tools commands for making a shape and making a linetype. They are MKSHAPE and MKLTYPE. Look under Express Tools > Tools for both commands.

FYI - Options for creating custom linetypes.

http://www.cadtutor.net/forum/showthread.php?27454-Options-for-creating-linetypes.&highlight=create+custom+linetype

A workaround:

*GEGENYTIBOR,Gegenytibor linetype -------\/\-------\/\-------\/\-------
A,.3,-.083,["Z",STANDARD,S=.1,R=56.0,X=0,Y=-.056],-.038

Zoomed out the linetype looks OK but zoomed in it starts to lose its appeal. Not sure if it will meet the OP's needs. Maybe a different font?

You are right, ReMark. If OP want to use it with a big scale, then he/she may adjust a little the angle and/or the gaps to refine the appearance.

*GEGENYTIBOR,Gegenytibor linetype -------\/\-------\/\-------\/\-------
A,.3,[color=magenta]-.083[/color],["Z",STANDARD,S=.1,R=[color=darkgreen]56.0[/color],X=0,Y=-.056],[color=magenta]-.038[/color]

I think it is my aversion to the "Standard" font that's all.

I did some refinement to above definition; it is optimized for TXT.shx due to its general availability and also appearance.

*GEGENYTIBOR,Gegenytibor linetype -------\/\-------\/\-------\/\-------
A,.3,-.0833,["Z",STANDARD,S=.1,R=56.3,X=0,Y=-.0555],-.037

You didn't have to go changing your code for me. I'm not the end user. Thanks just the same though.

The other way would be to do its as a pline just requires the co-ord calc at a step point to produce Z a choose 2 pts or convert exsiting line. Check out "Batting" there is lisps for various plines under this post subject. basicly take a line length work out how many segments then repeat pattern. i hav edone this beore and can have a scale factor for say height of Z or how many segments etc.

Need, is dwg mm m or feet ? What size line Z pretty simple to code otherwise.

Had a few minutes has a little bug on end will find it but draw a line 1000 units long as a guide to pick start & end needs correct gap etc and height of zig, odd distance 41.2311 and odd angle is crooked line to get round this need some more polars. This example shows how to use pline,

(defun c:zig ( / pt1 pt2 pt3 pt4 pt5 pt6 pt7 ang angang dist angup)
(setq pt1 (getpoint "\nPick 1st point"))
(setq pt2 (getpoint "\nPick 2nd point"))
(setq oldsnap (getvar 'osmode))
(setvar 'osmode 0)
(setq dist (distance pt1 pt2))
(setq ang (angle pt1 pt2))
(setq angup (+ ang 1.570796))
(setq angang (+ ang 4.957368))
(setq gap 200.0)
(setq gap2 20.0)
(setq x (fix (/ dist gap)))
(command "pline" pt1 "w" 0.0 0.0)
(repeat x
(setq pt3 (polar pt1 ang gap ))
(setq pt4 (polar pt3 angup gap2))
(setq pt5 (polar pt4 angang 41.2311)) ;cheated on diagonal needs extra polars
(setq pt6 (polar pt5 angup gap2))

(command pt3 pt4 pt5 pt6)
(setq pt1 pt6)
) ; repeat
(command pt2 "")
(setvar 'osmode oldsnap)
(Princ "all done")
) 

ps worked perfect a minute ago now its not will fix ver 2

fixed needs a bit of fine tuning overlengths at moment