Message += ((vbLf & "Minimum coordinates: (" + min.X & ", ") + min.Y & ", ") + min.Z & ")" 'get the origin of the screen Dim origin As XYZ = view.Origin 'Minimum coordinates (lower-left-rear corner of the box). 'Maximum coordinates (upper-right-front corner of the box). 'The crop box sets display bounds of the view Dim cropBox As BoundingBoxXYZ = view.CropBox Message += vbLf & "View name: " & Convert.ToString(view.ViewName) Private Sub Getinfo_View(view As .View)ĭim message As String = "View: " 'get the name of the view Message += "\nScale after set: " + view.Scale Scale is meaningless for Schedules if (view.ViewType != ViewType.Schedule) ViewDirection.Y + ", " + viewDirection.Z + ")" Message += "\nView direction: (" + viewDirection.X + ", " + UpDirection.Y + ", " + upDirection.Z + ")" Message += "\nUp direction: (" + upDirection.X + ", " + The direction towards the top of the screen RightDirection.Y + ", " + rightDirection.Z + ")"
Message += "\nRight direction: (" + rightDirection.X + ", " + XYZ rightDirection = view.RightDirection The direction towards the right side of the screen Message += "\nMinimum coordinates: (" + minUv.U + ", " + minUv.V + ")" Message += "\nMaximum coordinates: (" + maxUv.U + ", " + maxUv.V + ")" UV minUv = outline.Min //Minimum coordinates (lower-left corner of the box). UV maxUv = outline.Max //Maximum coordinates (upper-right corner of the box). The bounds of the view in paper space (in inches). Message += "\nMinimum coordinates: (" + min.X + ", " + min.Y + ", " + min.Z + ")" Message += "\nMaximum coordinates: (" + max.X + ", " + max.Y + ", " + max.Z + ")" XYZ min = cropBox.Min //Minimum coordinates (lower-left-rear corner of the box). XYZ max = cropBox.Max //Maximum coordinates (upper-right-front corner of the box). The crop box sets display bounds of the view Message += "\nView name: " + view.ViewName
0 kommentar(er)
