topic Re: Save and Restore UCS in .NET Forum

Save and Restore UCS

Anonymous — Tue, 08 Mar 2011 20:23:13 GMT

I'm fairly new to this, but I'm confused looking through the vb.net developer's guide and online for information about transforming the UCS.

I'd like to:

1: Save the user's current UCS,

2: Change to the World UCS (that's easy)

2: Do things

3: Set the UCS back to the user's original UCS

Is there no simple way to do this?

If not I may have to learn more about matrix operations than I really wanted to

Thanks,

David

Re: Save and Restore UCS

Anonymous — Wed, 09 Mar 2011 11:20:06 GMT

UCS only affects user interaction, all your operations with entities take place in WCS

Re: Save and Restore UCS

Anonymous — Wed, 09 Mar 2011 14:48:37 GMT

Part of what I'm doing involves extrusions, and I get unpredictable results if I don't first set the UCS to world.

In VBA this was fairly straightforward, but different in vb.net, hence the posting.

Re: Save and Restore UCS

Alexander.Rivilis — Wed, 09 Mar 2011 15:25:57 GMT

You can P/Invoke acedSetCurrentUCS, acedGetCurrentUCS and acedRestorePreviousUCS

Re: Save and Restore UCS

Anonymous — Wed, 09 Mar 2011 19:04:00 GMT

Thanks! That sounds like a better approach

Re: Save and Restore UCS

Anonymous — Thu, 10 Mar 2011 15:04:11 GMT

After doing some research, part of my problem was not knowing what I was looking for. The following code does what I need, except for one thing:

The viewport changes to the orthogonal plan view at the end of the toUser Sub.

How do I keep the user's viewport view as-is?

Thanks,

David

Public vect1 As Vector3d

Public vect2 As Vector3d

Public org As Point3d

Public Sub toWorld()

Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument

Dim acCurDb As Database = acDoc.Database

vect1 = acCurDb.Ucsxdir

vect2 = acCurDb.Ucsydir

org = acCurDb.Ucsorg

acDoc.Editor.CurrentUserCoordinateSystem = Matrix3d.Identity

End Sub

Public Sub restoreUCS()

Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument

Dim acCurDb As Database = acDoc.Database

Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

'' Open the UCS table for read

Dim acUCSTbl As UcsTable

acUCSTbl = acTrans.GetObject(acCurDb.UcsTableId, OpenMode.ForRead)

Dim acUCSTblRec As UcsTableRecord

If acUCSTbl.Has("New_UCS") = False Then

acUCSTblRec = New UcsTableRecord()

acUCSTblRec.Name = "New_UCS"

acUCSTbl.UpgradeOpen()

acUCSTbl.Add(acUCSTblRec)

acTrans.AddNewlyCreatedDBObject(acUCSTblRec, True)

Else

acUCSTblRec = acTrans.GetObject(acUCSTbl("New_UCS"), OpenMode.ForWrite)

End If

acUCSTblRec.Origin = org

acUCSTblRec.XAxis = vect1

acUCSTblRec.YAxis = vect2

'' Open the active viewport

Dim acVportTblRec As ViewportTableRecord

'' Set the UCS current

acVportTblRec.SetUcs(acUCSTblRec.ObjectId)

acDoc.Editor.UpdateTiledViewportsFromDatabase()

acTrans.Commit()

End Using

End Sub

Re: Save and Restore UCS

Anonymous — Thu, 20 Jun 2013 15:36:35 GMT

Hi David, I am trying to do the same thing you are trying to do. I would like to change the UCS then create a polyline on a new UCS (not same as WCS). But when I create a polyline it adds it using WCS. Can you please point me to the right direction.

Thank you,

Re: Save and Restore UCS

jeff — Thu, 20 Jun 2013 17:24:45 GMT

See this article about using Editor.CurrentUserCoordinateSystem Property

http://spiderinnet1.typepad.com/blog/2012/03/autocad-net-api-ucswcs-entity-creation-and-matrix3dtransformation.html

Re: Save and Restore UCS

Anonymous — Thu, 20 Jun 2013 19:57:58 GMT

Thank you very much Jeff !!!!