This series of articles discusses the following:<\/P><\/p>\n
- Document Unit Conversion<\/U> <\/SPAN>– ParseUnit and Format Unit methods of the UnitsOfMeasure object.<\/LI>
\n- View Coordinate Conversion<\/U> <\/SPAN>– ViewToSheet and SheetToView methods of the DrawingView object.<\/LI>
\n- 2D to 3D Conversion<\/U> <\/SPAN>– Convert2DCoordinate method of the Profile object.<\/LI>
\n- 3D to 2D Transformations<\/U> <\/SPAN>– ModelToView method of the DrawingView object.<\/LI>
\n- Assembly Transformations<\/U> <\/SPAN>– GetMatrix and PutMatrix methods of the Occurrence object.<\/LI>
\n<\/OL><\/p>\nView Coordinates Conversion<\/SPAN><\/STRONG><\/P><\/p>\n
When you right-click a drawing view in a Draft sheet, one of the options is to zoom fit to the Drawing View<\/SPAN><\/P><\/p>\n
![\"CAT04.png\"](\"http:\/\/blogs.sw.siemens.com\/wp-content\/uploads\/sites\/8\/2019\/09\/CAT04-1.png\" "\\"CAT04.png\\"")
<\/span><\/SPAN><\/P><\/p>\nBut other simpler drawing objects like lines and circles do not have this feature. Let\u2019s implement it.<\/SPAN><\/P><\/p>\n
The coordinates of the bounding box or extents of an object can be determined by the Range Method.<\/SPAN><\/P><\/p>\n
Public Sub Range( _
\n ByRef XMin As Double, _
\n ByRef YMin As Double, _
\n ByRef XMax As Double, _
\n ByRef YMax As Double _
\n)<\/PRE><\/p>\nAnd depicted as below:<\/SPAN><\/P>
\n![\"CAT05.png\"](\"http:\/\/blogs.sw.siemens.com\/wp-content\/uploads\/sites\/8\/2019\/09\/CAT05-1.png\" "\\"CAT05.png\\"")
<\/span><\/SPAN><\/P><\/p>\nThe image above shows the range of a bunch of objects for which a direct API does not exist.<\/P>
\nThe function below determines the combined Range for a set of selected objects in Solid Edge Draft:<\/P><\/p>\n
First check if the user has selected at least one drawing object:<\/SPAN><\/P><\/p>\n
Sub Main()
\n Dim seApp As SolidEdgeFramework.Application =
System.Runtime.InteropServices.Marshal.GetActiveObject(“solidedge.application”)
\n Dim seDoc As SolidEdgeDraft.DraftDocument = seApp.ActiveDocument
\n Dim seSheet As SolidEdgeDraft.Sheet = seDoc.ActiveSheet
\n Dim sSet As SelectSet = seDoc.SelectSet<\/p>\nIf sSet.Count = 0 Then
\n MsgBox(“select atleast one object.”)
\n End
\n End If<\/PRE>
\nNext, take the first object in the select set as a seed object and get its range:<\/SPAN><\/P><\/p>\n
oSel.Item(1).Range(XMin, YMin, XMax, YMax)<\/P><\/p>\n
Loop through all the objects in the select set and compare their extents with the seed object to determine which one has a greater extent:<\/SPAN><\/P>
\n<\/P>
\nFor i = 1 To oSel.Count
\n oSel.Item(i).Range(X1, Y1, X2, Y2)<\/p>\nIf X1 < XMin Then
\n XMin = X1
\n End If<\/p>\nIf Y1 < YMin Then
\n YMin = Y1
\n End If<\/p>\nIf X2 > XMax Then
\n XMax = X1
\n End If<\/p>\nIf Y2 > YMax Then
\n YMax = Y2
\n End If
\nNext<\/PRE><\/p>\nThis finds the extents or bounding box of the objects combined.<\/SPAN><\/P><\/p>\n
These values of the bounding box are in terms of the document units and the sheet coordinates increase in the North-East direction i.e. from Lower-Left corner to Upper-Right corner.<\/SPAN><\/P><\/p>\n
For zooming the view to these coordinates, they need to be converted to the window or view coordinates who increase in the South-East direction meaning from Top-Left to the Bottom-Right corner as shown below:<\/SPAN><\/P><\/p>\n
![\"CAT09.png\"](\"http:\/\/blogs.sw.siemens.com\/wp-content\/uploads\/sites\/8\/2019\/09\/CAT09-1.png\" "\\"CAT09.png\\"")
<\/span><\/SPAN><\/P><\/p>\nConvert the values obtained by the Range method to window coordinates using the ModelToWindow method:<\/SPAN><\/P><\/p>\n
oSheetWindow = oApp.ActiveWindow<\/p>\n
oSheetWindow.ModelToWindow(XMin, YMin, XWinMin, YWinMin)
\noSheetWindow.ModelToWindow(XMax, YMax, XWinMax, YWinMax)<\/PRE>
\nUse these converted coordinates to zoom in using the ZoomArea method:<\/SPAN><\/P><\/p>\n
If XWin1 = XWin2 Then
\n XWin2 *= 1.1
\nEnd If<\/p>\nIf YWin1 = YWin2 Then
\n YWin2 *= 1.1
\nEnd If<\/p>\noSheetWindow.ZoomArea(XWin1, YWin1, XWin2, YWin2)<\/PRE>
\nAdd some extra checks before zooming to the area for vertical or horizontal lines since their coordinates could be the same and an area or window is not formed.<\/SPAN><\/P><\/p>\n
Now you have a brand new command that zooms in an area formed by the extents of a bunch of selected object in Solid Edge Draft.<\/SPAN><\/P><\/p>\n
In the next part of this article, I will show you how to perform a 3-step conversion of the center point coordinates of a hole in a part model all way to its coordinate in the Drawing Sheet in Draft.<\/SPAN><\/P><\/p>\n
If you have any questions related to this article, kindly post them on the Solid Edge Developer forum<\/A>.<\/P><\/p>\n
Tushar Suradkar<\/SPAN><\/P>
\nwww.CADVertex.com<\/A><\/SPAN><\/P>
\nwww.SurfAndCode.IN<\/SPAN><\/A><\/P><\/p>\n
Join the Solid Edge User Group on FaceBook:<\/P>
\n - View Coordinate Conversion<\/U> <\/SPAN>– ViewToSheet and SheetToView methods of the DrawingView object.<\/LI>
\n