line on each layer

[bryan.thatcher]

does anyone have a routine to create a line on each layer in a drawing? Thanks.

[rkmcswain]

Here is one way.


(vl-load-com)
(setq *doc* (vla-get-activedocument
(vlax-get-acad-object)
)
*ms* (vla-get-modelspace *doc*)
)
(vlax-for q (vla-get-layers *doc*)
(setq newline (vla-addLine *ms*
(vlax-3d-point (list 0 0 0))
(vlax-3d-point (list 1 1 0))
)
)
(vla-put-layer newline (vla-get-name q))
)