Button Question

[BCrouse]

In a button, how would I indicate that layer a block should go. How would I write that in a lisp routine also?

This is what I am trying to put on layer Interior. Ref. Code

^C^C(c:column "#28" "16")

[rkmcswain]

In a button, how would I indicate that layer a block should go. How would I write that in a lisp routine also?

This is what I am trying to put on layer Interior. Ref. Code

^C^C(c:column "#28" "16")

Toolbar macro:


^C^C-layer;s;yourlayername;;-insert;blockname;s;1;r;1;



Lisp:


(defun c:iblock ()
(setq oldlay (getvar "clayer"))
(setvar "clayer" "yourlayername")
(command "-insert" "blockname" "s" "1.0" "r" "1.0")
(while (= 1 (logand (getvar "cmdactive") 1))
(command pause)
)
(setvar "clayer" oldlay)
(princ)
)

Not sure what your (c:column) function does.

[BCrouse]

Toolbar macro:


^C^C-layer;s;yourlayername;;-insert;blockname;s;1;r;1;



Lisp:


(defun c:iblock ()
(setq oldlay (getvar "clayer"))
(setvar "clayer" "yourlayername")
(command "-insert" "blockname" "s" "1.0" "r" "1.0")
(while (= 1 (logand (getvar "cmdactive") 1))
(command pause)
)
(setvar "clayer" oldlay)
(princ)
)

Not sure what your (c:column) function does.

Thank you very much!

Brad