Just another routine, pls take a look

[pryzmm]

hi, i made this to do the following;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;        
;;   1) This routine will turn ALL layers (on/thaw/unlock) state.
;;   2) It will then select all the layers.
;;   3) Then move (NOT FLATTEN) everything to 0,0,0 coordinates 
;;       with a basepoint input from the user.
;;       -->> by pryzmm 072007 !!! 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN C:000 ()
  (setvar "cmdecho" 0)
  (command "-layer" "u" "*" "t" "*" "on" "*" "" "") 
  (setvar "osmode" 33)
  (princ "\nSelect base point->> hint (any end or intersection point):")
  (setq p1 (getpoint))   
  (command "move" "all" "" p1 "0,0,0" )  
  (setvar "osmode" 167)
  (setvar "cmdecho" 1) 
  (prompt "......................done !!! ")(terpri)    
  (princ)); end

this works fine , but what i really want is something like the sequence below;

(defun c:000 ()
(mapped all the current layer state and save in memory)
(turn all the layers (on/thaw/unlock) if its find one that is
(off/freeze/locked))
(select all layers and move to 0,0,0 with a basepoint from user)
(change back all the layers to its previous state using the 1st line string of command or any other string));end of routine

any suggestion ,,,gurus and coders alike ???

i use autocad 2006

[devitg]

If you do a (SSGET "x") will do a selection set of all enty on all layers

(ssget "X") creates a selection set of all entities in the drawing including those on layers that are frozen or off.
But i will not do allow to move LOCKED layer

[pryzmm]

devitg, could you exactly code that for me pls. im blurrr in this kind if codes, all i knew are those very basic ones,,,,plssssss...thanks

[devitg]

devitg, could you exactly code that for me pls. im blurrr in this kind if codes, all i knew are those very basic ones,,,,plssssss...thanks

Hi pryzmm , I´m dealing with it , I have a question , the basepoint selected by the user will be on a ON, THAW, UNLOCK layer???

[devitg]

devitg, could you exactly code that for me pls. im blurrr in this kind if codes, all i knew are those very basic ones,,,,plssssss...thanks

It take te base point on a on and thaw layer.

[pryzmm]

hi, thanks for that but could anyone pls. help on how exactly where to put this string in the above,,,,plsssss thanks guys in advance