Searching for a Lisp draws lines in each layer

[Organic]

Civilcad has been in it since the 80's

 

This is probably a stupid question, although out of interest what menu/option is it under? I don't see anything in the drawing editor after creating a plot window that looks relevant, nor in the linestyle library or layer manager.

[BIGAL]

Sorry Dink it looks like they have removed the option in version 7 pretty sure it was still there in 6 as our library was set up years ago no need to plot a chart. It may still be there but you need to know how to do, if you really want to know contact Topcon Australia. Else it may be pretty simple to load an old version say 5 and plot the chart unfortunatley we have killed all our old versions with new pC's else would have tested for you.

[Brockster]

That's a great routine! Is there any chance it can be altered to double the space between the lines or just tell what line to change to do this? Again, very cool tool.

[3dwannab]

Hi Lee, great code as always.

 

Just having trouble sorting layers by name in the legend. I've tried adding this code:

(vl-sort laylist '<); sorted alphabetically

in your example but I can't get it to work. Thanks.

 

I took the code from an example like so:

(while (setq lay (cdadr (tblnext "layer" (not lay)))); make list of Layer names
 (setq laylist (cons lay laylist))
)
(foreach
 lay
 (vl-sort laylist '<); sorted alphabetically
 (setvar 'clayer lay)
 (setq start-point (mfp start-point (list 0 (- 0 (+ text-height 4)) 0)))
 (command
   "_line" start-point (mfp start-point (list line-length 0 0)) ""
   "-text" (mfp start-point (list 0 1 0)) "0" lay ; [[i]could[/i] leave (getvar 'clayer) in there]
 )
); foreach

[sieu khung khiep]

HI 3dwannab,(vl-sort laylist '

See here https://www.theswamp.org/index.php?topic=16564.0;all