Locating Planes In Drawing View

Tiffany_Hayden_
Collaborator

Locating Planes In Drawing View

Tiffany_Hayden_
Collaborator
Collaborator

I have code that finds the planes in model space and I have converted it over to drawing space using (oDrawView.ModelToDrawingViewSpace) but it doesn't seem to translate correctly. When I find the farthest curves in the drawing view the planes that should exist in the drawing views are way too large. I'm just wandering if I'm doing it right and if anyone has any tips to locate planes in a drawing view would be very helpful! Thanks in advance!

 

    For Each oOcc In oAssyDoc.ComponentDefinition.Occurrences
        If oOcc.BOMStructure = kReferenceBOMStructure Then
            Set oSubOccs = oOcc.Definition.Occurrences

            For Each oSubOcc In oSubOccs

                If InStr(oSubOcc.Name, "Floor") Or InStr(oSubOcc.Name, "FLOOR") Then
                    Set oSubDef = oSubOcc.Definition
                    For Each oWPlane In oSubDef.WorkPlanes

                        If oWPlane.Name <> "XY Plane" And oWPlane.Name <> "YZ Plane" And oWPlane.Name <> "XZ Plane" Then
                            Set oWPlaneProxy = GetWPlProxy(oSubOcc, oWPlane)
                            Set oSubOccPt2D = oDrawView.ModelToDrawingViewSpace(oWPlaneProxy.Plane.RootPoint)
                            Debug.Print oWPlaneProxy.Name & "-" & oSubOccPt2D.X & ", " & oSubOccPt2D.Y


                        End If
                    Next
                End If

            Next

        End If
    Next

 

Tiffany Hayden
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.

EESignature

0 Likes
Reply
Accepted solutions (1)
389 Views
1 Reply
Reply (1)

Tiffany_Hayden_
Collaborator
Collaborator
Accepted solution
Trick was using ModelToSheetSpace instead of ModelToDrawingViewSpace. Now I'm getting very close values.

Tiffany Hayden
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.

EESignature

0 Likes