Visual LISP, AutoLISP and General Customization

[#1]

hello to all
would like to set a base point during insertion of one block.

When not insert by AutoLISP, just type "b" to be able to change the base point.

But when I'm using an AutoLISP that inserts a block, it does not work, it interrupts the sequence of routine.

Anyone have a tip that can help me improve routine?

Lisp:

(defun c:carrobox()
(setq #clayer (getvar "clayer")) 
(if (= unidades nil)(setq unidades "cm"))
(if(= unidades "cm")(setq scalefactor 1.0)(setq scalefactor 0.01))
(if (= numberboxcar nil)(setq numberboxcar 1))
(if (= passoboxcar nil)(setq passoboxcar 1))
(setq frase (strcat "\nBloco de box [Inserir,Numero = " (itoa numberboxcar)",Soma = +"(itoa passoboxcar)",-----, Un = " unidades "]<Inserir>"))
(initget "I N S U" 0)
(setq op (getkword  frase))
(cond
((= op "U")(if(= unidades "cm")(setq unidades "metros")(setq unidades "cm"))(C:carrobox))
((= op "N")(setq numberboxcar(getint "\nNúmero do box atual: "))(C:carrobox))
((= op "S")(setq passoboxcar(getint "\nIncremento a cada box: "))(C:carrobox))
(
(or(= op "I")(= op nil))
(inserirboxdecarro)
)
)
(setvar "clayer" #clayer)
)
(defun inserirboxdecarro()
(if (not (tblsearch "layer" "box de estacionamentos"))(command "._-layer" "m" "box de estacionamentos" "c" "13" "" ""))(progn(command "._-layer" "on" "box de estacionamentos" "thaw" "box de estacionamentos""")(setvar "clayer" "box de estacionamentos")) 
(command "._INSERT" "box de carro.dwg" "scale" scalefactor PAUSE pause numberboxcar)
(setq numberboxcar (+ numberboxcar passoboxcar))
(inserirboxdecarro)
)

Thanks In Advance

[#2]

(defun inserirboxdecarro ()
			(if	(not (tblsearch "layer" "box de estacionamentos"))
		(command
	"._-layer"
	"m"
	"box de estacionamentos"
	"c"
	"13"
	""
	""
	) ;_ end of command
		) ;_ end of if
			(progn (command
	 "._-layer"
	 "on"
	 "box de estacionamentos"
	 "thaw"
	 "box de estacionamentos"
	 ""
	 ) ;_ end of command
		 (setvar "clayer" "box de estacionamentos")
		 ) ;_ end of progn
			(command "._INSERT" "box de carro.dwg" "scale" scalefactor)
			(while (not (zerop (getvar 'cmdactive)))
		(command pause)
		) ;_ end of while
			(vla-put-textstring
		(car
	(vlax-invoke
(vlax-ename->vla-object (entlast))
'GetAttributes
) ;_ end of vlax-invoke
	) ;_ end of car
		numberboxcar
		) ;_ end of vla-put-textstring
 ;_ end of command
			(setq numberboxcar (+ numberboxcar passoboxcar))
			(inserirboxdecarro)
			)

HTH

[#3]

That helped a lot. Just wanted to know what made it work.
is it?

(while (not (zerop (getvar 'cmdactive)))
(command pause)

TKS

[#4]

---

Gustavo_Bernardi wrote:

That helped a lot. Just wanted to know what made it work.
is it?

(while (not (zerop (getvar 'cmdactive)))
(command pause)

TKS

---

Yes Gustavo_Bernardi, it  sets the command in "pause" mode indefinitely until user ends the "insert" command.

Then it assigns the string value  to the attribute.

Cheers