Topic: Check for Model Space UCS = World

[DanB]

In LISP, how does one check model space to see if the UCS is set to World? I have a simple cut-n-paste routine I have been meaning to add this too.

[ronjonp]

This is what I use:

Code: [Select]

(if (equal (getvar 'ucsxdir) '(1.0 0.0 0.0) 0.0000001)
  (princ "\nUCS is world...")
  (princ "\nUCS not world...")
)

[T.Willey]

This is what I use:

Code: [Select]

(if (equal (getvar 'ucsxdir) '(1.0 0.0 0.0) 0.0000001)
  (princ "\nUCS is world...")
  (princ "\nUCS not world...")
)

If the ucs is rotated around the 'x' axis then this code will be lieing, as the ucs is not world.  I would think you would have to check at least two axis, but I wasn't sure that is why I didn't post an answer.

[DanB]

Thanks, I think for the simple checking I need this may work. If anyone else has a different method please feel free to share as well.

[CADaver]

What about WORLDUCS ?

Code: [Select]

(if
   (equal (getvar 'worlducs) 1)
   (princ "\nUCS is world...")
   (princ "\nUCS not world...")
)


[kdub_nz]

What about WORLDUCS ?

< .. >

yep, that's what I use ..

[ronjonp]

How long has worlducs been around?

[DanB]

This looks even better, thanks.

[Bob Wahr]

How long has worlducs been around?

Looks like R12 at least.

[ronjonp]

Thanks Bob I never seem to stop learning things about AutoCAD  :ugly: