Follow-up for One-click command question.

[wengcy27]

Big Thanks for CarlCAD!, the lisp routine really works. A follow up question pls???
After i insert a title block dwg. wih a lock layer, i was required to move the title block on the dwg. So i face the same problem again. With one command, I need to unlock the layer of the title block so it can be selected/moved and finally I want to lock its layer again befor the command terminates. I tried to create a customized button command and edit the button properties; but what i was able to do only is unlock the layerand select/move the title block. I was not able to Lock the layer of the title block befor the command terminates. (With my previous question One click command for 3; we were able to do it also using the customized button commands; but we prefer to use the lisp routine shared to us by CarlCAD! Thanks again)

Good Day!

 

[Guest_imported]

Wengcy27,

You're welcome for the routine. Now for your followup, a very similar routine is needed. I thought for convenience to combine both options (move and edit) in one routine. Following is the result, let me know if it helps.

Carl

_____________________________

(defun c:tblock ()
(initget 1 "Edit Move&quot
(setq task (getkword "\nEdit or Move titleblock: &quot)
(setq entpick (entsel "\nSelect titleblock: &quot)
(setq entdata (entget (car entpick)))
(setq tblayer (cdr (assoc 8 entdata)))
(setvar "cmdecho" 0)
(command "._-layer" "_U" tblayer "&quot
(cond
((= task "Edit&quot
(setvar "cmdecho" 1)
(command "._ddatte" entpick)
(while (= (getvar "CMDACTIVE&quot 8)
(command pause)
)
);cond1
((= task "Move&quot
(setvar "cmdecho" 1)
(command "._Move" entpick "&quot
(while (= (logand (getvar "CMDACTIVE&quot 1) 1)
(command pause)
)
) ; cond2
) ; cond
(setvar "cmdecho" 0)
(command "._layer" "_LO" tblayer "&quot
(princ (strcat "\nLayer " tblayer " is locked&quot)
(princ)
) ; defun
(princ"\nStart with TBLOCK&quot
(princ)