We need a sample project to investigate this further...
Hi,
Can you please try this code snippet to retrieve the UCS of the viewport using the COM API ?
' Needs Autodesk.AutoCAD.Interop and Autodesk.AutoCAD.Interop.Common references
Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common
<CommandMethod("GetUCS", CommandFlags.NoTileMode)> _
Public Sub GetUCS_PaperSpace()
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim ed As Editor = doc.Editor
Dim db As Database = doc.Database
Dim peo As New PromptEntityOptions("Select a viewport : ")
peo.SetRejectMessage("Select a viewport.")
peo.AddAllowedClass(GetType(Autodesk.AutoCAD.DatabaseServices.Viewport), True)
Dim per As PromptEntityResult = ed.GetEntity(peo)
If per.Status <> PromptStatus.OK Then
Return
End If
Dim vpId As ObjectId = per.ObjectId
Dim acadDoc As AcadDocument = Autodesk.AutoCAD.ApplicationServices.DocumentExtension.GetAcadDocument(doc)
acadDoc.MSpace = True
Using tr As Transaction = db.TransactionManager.StartTransaction()
Dim vp As Autodesk.AutoCAD.DatabaseServices.Viewport = TryCast(tr.GetObject(vpId, OpenMode.ForRead), Autodesk.AutoCAD.DatabaseServices.Viewport)
acadDoc.ActivePViewport = vp.AcadObject
Dim ucsMat As Matrix3d = ed.CurrentUserCoordinateSystem
Dim cs As CoordinateSystem3d = ucsMat.CoordinateSystem3d
ed.WriteMessage([String].Format(vbLf & "Origin : {0}", cs.Origin))
ed.WriteMessage([String].Format(vbLf & "X Vec : {0}", cs.Xaxis))
ed.WriteMessage([String].Format(vbLf & "Y Vec : {0}", cs.Yaxis))
tr.Commit()
End Using
acadDoc.MSpace = False
End Sub
I am trying out with your code and will get back to you soon.
Hi,
The problem is not with the code and seems specific to that paperspace viewport of the drawing that you shared. After I switched to the modelspace and saved the drawing in AutoCAD, it worked ok. The UCS in that viewport might have been set incorrectly but it is hard to identify why and how.
Your code as well as the code that I posted earlier work correctly for any other viewport created with an unnamed UCS. Both the code works ok with the attached drawings. These drawings were saved after the viewport UCS was set right using the above step.
Hi,
To me this problem seems specific to this drawing and the code has worked for even a new layout created in the same drawing. I could not find a way to resolve this issue for the layout that you are testing with.
A workaround to get the UCS origin, x direction and y direction for the viewport could be get the values directly by retrieving the values for DXF codes 110, 111 and 112. I still do not like approaching it this way 
Here is a sample code that will display the DXF codes after you select the paperspace viewport. You can use the values from the above DXF codes to get the UCS values.
<DllImport("acdb19.dll", CallingConvention:=CallingConvention.Cdecl, EntryPoint:="?acdbGetAdsName@@YA?AW4ErrorStatus@Acad@@AEAY01_JVAcDbObjectId@@@Z")> _
Public Shared Function acdbGetAdsName_R19_64(name As Long(), objId As ObjectId) As Integer
End Function
<DllImport("accore.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.Cdecl, EntryPoint:="acdbEntGet")> _
Public Shared Function acdbEntGet(ename As Long()) As System.IntPtr
End Function
<DllImport("accore.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.Cdecl, EntryPoint:="acdbEntGetX")> _
Public Shared Function acdbEntGetX(ename As Long(), rb As IntPtr) As System.IntPtr
End Function
<CommandMethod("GetEntityDxf")> _
Public Shared Sub GetEntityDxf()
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim ed As Editor = doc.Editor
Dim per As PromptEntityResult = ed.GetEntity(vbLf & "Select an Entity: ")
If per.Status <> PromptStatus.OK Then
Return
End If
Dim ename As Long() = New Long() {0, 0}
' extract the id into an ename
Dim result As Integer = acdbGetAdsName_R19_64(ename, per.ObjectId)
' now I have the ename lets entget it into a result buffer
Dim rb As New ResultBuffer()
Interop.AttachUnmanagedObject(rb, acdbEntGet(ename), True)
' print out what we have
Dim iter As ResultBufferEnumerator = rb.GetEnumerator()
While iter.MoveNext()
Dim TmpVal As TypedValue = iter.Current
Dim strValue As String = (If(TmpVal.Value IsNot Nothing, TmpVal.Value.ToString(), "*Nothing*"))
ed.WriteMessage(vbLf & " - Code: " & TmpVal.TypeCode.ToString() & " = " & strValue)
End While
End Sub
Type a product name
May we collect and use your data?
Learn more about the Third Party Services we use and our Privacy Statement. May we collect and use your data to tailor your experience?
Explore the benefits of a customized experience by managing your privacy settings for this site or visit our Privacy Statement to learn more about your options.