VBA command for View UCS - Please?

[Anonymous]

Hi,
Can anyone help,
I need to create a view UCS within my VBA module and make it current. I then need to return to the WCS when I've done all my stuff. I can't figure out how to create a View UCS.
Thanks

Matt

[Anonymous]

Try this:

Set WCS = ThisDrawing.ActiveUCS

Set MyUCS = ThisDrawing.UserCoordinateSystems.Add(MyOrigin, MyXaxisPoint, MyYaxisPoint, "My UCS")

ThisDrawing.ActiveUCS = MyUCS

' Do stuff

ThisDrawing.ActiveUCS = WCS

Regards



Wayne Ivory

IT Analyst Programmer

Wespine Industries Pty Ltd

[Anonymous]

Try this:

Set WCS = ThisDrawing.ActiveUCS

Set MyUCS = ThisDrawing.UserCoordinateSystems.Add(MyOrigin, MyXaxisPoint, MyYaxisPoint, "My UCS")

ThisDrawing.ActiveUCS = MyUCS

' Do stuff

ThisDrawing.ActiveUCS = WCS

Regards



Wayne Ivory

IT Analyst Programmer

Wespine Industries Pty Ltd

[Anonymous]

Thanks for your reply Wayne,

I may not have been specific enough.
I need to create a UCS with XY flat to the current view from within VB. I'm importing text into a model with leaders and they need to be in different attitudes. So I really need to get the model in the correct attitude then as I import my stuff they will be flat to the current screen view,

Matt
Howmet Ltd UK
Measurement Technology Dept

[Anonymous]

I'm not sure I understand what you want, but the TranslateCoordinates method has an acDisplayDCS enum which might be helpful.



Regards



Wayne