My lisp is not waiting for my command

[ola.harrius]

Hi

I have made a script that makes a block of my drawings, save the file vith new name and place, then it rotate and move objects to new coordinates and finaly explode the block and save the file again.

I have made a lisp for the rotate and move, like this:

(defun C:MO (/ MOT NOT ANG)

(setq ANG (getreal "\n Ange vinkel, 0.0 i grader: ")) ; Frågar efter vinkel        

(setq MOT (getpoint "\n Ange nollpunkt, eg 0,0,0: ")) ; Frågar efter koordinater från (0,0,0) i mm

(setq NOT (getpoint "\n Ange ny punkt, eg 0,0,0: ")) ; Frågar efter koordinater till (x,y,z) i mm

(princ)

(command "_.rotate" "all" "" MOT ANG) ; Kör kommandot rotera

(princ)        

(command "_.move" "all" "" MOT NOT) ; Kör kommandot flytta

(princ)

(setq MAGN 2000)

(command "_ZOOM" "_E" NOT MAGN) ; Kör kommandot zoom och förstoring 2000

(princ)

)

It works when I run it all alone, but togheter with my script it not wait for my input and therefore take my next command i my script and I have the "can't reenter lisp" "error". Then it runs my lisp correct but my next commands in my script does not run after this.

I have som error in my lisp, i think, but here I need some help to guide me in the right direction.

[paullimapa]

unfortunately you can't pause a script to getpoint

[EnM4st3r]

wouldnt it work if you put a resume at the end of the lisp?

So like this: 

(command "_resume")

[EnM4st3r]

would this work?

(defun C:MO (/ mot ang not1)
(setq mot (cond ((getpoint "\n Ange nollpunkt, eg 0,0,0: ")) ('(0 0 0))) ; Frågar efter koordinater från (0,0,0) i mm
      ang (cond ((getangle mot "\n Ange vinkel, 0.0 i grader: ")) (0)) ; Frågar efter vinkel        
      not1 (cond ((getpoint "\n Ange ny punkt, eg 0,0,0: ")) ('(0 0 0))) ; Frågar efter koordinater till (x,y,z) i mm
)
(command "_.rotate" "all" "" mot (polar mot ang 10)) ; Kör kommandot rotera    
(command "_.move" "all" "" mot not1) ; Kör kommandot flytta
(command "_ZOOM" "_E") ; Kör kommandot zoom och förstoring 2000
(command "_resume")  
(princ)
)

[ola.harrius]

No, the problem is still there....
I tried and did a workaround instead, split my script into two, and run them after each other! Thank you anyway for trying!!
//Ola

[EnM4st3r]

what i noticed in my testing is that somehow after using the resume the first expression withing the script gets skipped.. idk why. So i put a dummy there and it works somehow.

;...
(c:MO)
(princ "\nDummy message")
;dummy line gets skipped idk why
burst
all

;....

[Sea-Haven]

Maybe 

(command "_ZOOM" "_E" NOT MAGN) 

(command "_ZOOM" "_C" NOT MAGN)