Current UCS Help

I want to translate coordinates of a block insert from world to the current UCS. The problem is the current UCS is not named and in order to define it in VBA you have to name it can give it an origin, xvector, and yvector. I cant seem to get this information about the active ucs because it does not have a name.

Any ideas for a work around? Or am I missing something?

 

If all you need to do is "tilt" it into the ucs, just set its NORMAL
property - you can get that from any object already in the unnamed ucs

-- Mike
___________________________
Mike Tuersley
CADalyst's CAD Clinic
Rand IMAGINiT Technologies
___________________________
the trick is to realize that there is no spoon...

 

Does this work for you? Unnamed ones seem to show up as "_ACTIVEx" for me

Code:

Sub List_ActiveUCS()
Dim currUCS As AcadUCS
Dim varXvec As Variant
Dim varOrigin As Variant
Dim varYvec As Variant

' Return current UCS of active document
Set currUCS = ThisDrawing.ActiveUCS
MsgBox "The current UCS is " & currUCS.Name, vbInformation, "ActiveUCS
Example"

varOrigin = currUCS.origin
varXvec = currUCS.XVector
varYvec = currUCS.YVector

MsgBox "Origin: " & varOrigin(0) & ", " & varOrigin(1) & ", " & varOrigin(2)
MsgBox "xVec: " & varXvec(0) & ", " & varXvec(1) & ", " & varXvec(2)
MsgBox "yVec: " & varYvec(0) & ", " & varYvec(1) & ", " & varYvec(2)

End Sub

 

That is about what I was trying to do but I get
a runtime error 'Null Object Id' when I run it at

Set currUCS = ThisDrawing.ActiveUCS

If the UCS is saved with a name it work fine but no one here ever saves UCSs. Mine does not show up at "_Activex".

Any idea why?

 

hmmmm... i dunno.

I made a UCS with "UCS NEW " and then just rotated about axes. That's when
I got one named "_Active1".

Could you use GetVariable to get the UCS system variables? I realize that
still wouldn't get you access to the UCS methods like TranslateCoordinates.

James