Sometimes routine does not Copy or Move selected objects up 60'-0"

[P.Lane]

Hello-

I have been having some trouble with this one routine not working properly. I want the routine to copy or move selected objects up 60'-0". It works great except every once in awhile I will got to use it and it will copy or move the objects up 47'-2 3/16". Then if I repeat it right away it continues coping or moving the objects correctly. I have not idea what I am doing wrong. Any help would be great. Here is the routine that I wrote for it. It might help. I have the same routine just modified to copy instead of move.

(defun C:60U()
  (setvar "cmdecho" 0) ;Turns the command echo of
  (setq A (ssget))
  (command "move" A "" "0,0" "0,60'") 			              
  (setvar "cmdecho" 1) ; Reset the command echo                  				
  (princ) ; Suppress the last echo                               				
 )

[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]

[Jeff_M]

Make sure OSMODE = 0 so you don't accidently snap to an object.

[P.Lane]

I tried doing that, and it still does it. I am not sure why it does this. But the weird thing is, that I can open a drawing one day and it does not work, then the next day open the same file and it works perfect. It seems to me like it is a random occurrence. But I do not think that there can be just random occurrences in ADT. Any more thoughts would be great.

[kennet.sjoberg]

I think it must be something with the Imperial units settings ( that I ignore ).

(defun C:60U ( / )
  (command "move" (ssget) "" "_non" "0,0" "_non" "0,60'" )
  (princ)
)

? grid snap ?

: ) Happy Computing !

kennet

[JASONM30395]

Are you limits on? Perhaps it is trying to go beyond the boundaries of your limits and puts it as far as it can instead?

[P.Lane]

Well I tried that different version. It seems to work, so I will continue to see if it works. This problem is spotty. That is why I do not think that limits is the issue. I have them turned off though anyway. Thanks for all the help.

[kennet.sjoberg]

Well I tried that different version. It seems to work. . .

OK, and

: ) Happy Computing !

kennet