The PMI Working Group recognizes two levels of information that can be exchanged in the context of explicit 3D geometric shape representation and associated PMI. Manufacturing Information box when importing CATIA files.) exchanged between CAD systems. You can import PMI if you check the Import Part GD&T is part of the Product and Manufacturing Information ( PMI Product Manufacturing Information.
#Datum feature symbol update#
So, when their attachment references change in space or in type, the symbols update accordingly or become invalid. You are here: Detailing > Annotations > Geometric Tolerances > Encoding geometric tolerancesĮncoded GD&T symbols understand their dimensional and situational context within the model. ToString End Function Public Function GetUnloadOption ( ByVal dummy As String ) As Integer 'Unloads the image immediately after execution within NX DrawingSheet ) As String Dim sheetNum As Integer Dim theSheetBuilder As Drawings. VerticalLetter = Chr (verticalLetterNum ) End If Dim theSheetNum As String = SheetNumber (theSheet )Įnd Function Function SheetNumber ( ByVal theSheet As Drawings. VerticalLetterNum = Asc ( "A" ) + numVerticalZones - Vcell VerticalLetter = Chr (verticalLetterNum ) Else 'origin on the top VerticalLetterNum = Asc ( "A" ) + Vcell - 1 HorizontalNum = numHorizontalZones - Hcell + 1 End If If theZoneOrigin = Drawings. Destroy ( ) Dim verticalLetterNum As Integer Dim verticalLetter As Char Dim horizontalNum As Integer If theZoneOrigin = Drawings.
Ceiling (Vcell ) Dim theZoneOrigin As Drawings. HorizontalSize Dim Vcell As Double = (theAnnotation. VerticalSize 'calculate zone wrt bottom left of drawing (ZoneOrigin.BottomLeft) Dim Hcell As Double = (theAnnotation. HorizontalSize Dim numVerticalZones As Integer = (theSheet. BordersAndZones ) Dim numHorizontalZones As Integer = (theSheet. BordersAndZones ) Then Return Nothing End IfīorderBuilder = theSession. BordersAndZonesBuilder If IsNothing (theSheet. Annotation ) As NXJSheetZoneInfoĭim borderBuilder As Drawings. DrawingSheet, ByVal theAnnotation As Annotations. Get (drawingTag ) ' the drawing it is on! End Function Function ReportAnnotationSheetZone ( ByVal theSheet As Drawings. AskDrawingOfView (viewTag, drawingTag ) Return Utilities. AskType (viewTag, viewType, viewSubtype ) If viewType = 0 Then Return Nothing ' it is view dependent in a modeling view Dim drawingTag As Tag = Nothing AskTagOfViewName (viewName, viewTag ) Dim viewType As Integer = Nothing Dim viewSubtype As Integer = Nothing Return Nothing End Try If status = 0 Then Return Nothing ' it is a model mode object Dim viewTag As Tag = Nothing Tag, status, viewName ) Catch ex As NXException Return Nothing ' it is a model view End Try End If Dim viewName As String = Nothing Dim status As Integer = Nothing Try Get (sheetTag ) ' the drawing it is on Catch ex As NXException model mode) objects Dim theView As View = Tr圜ast (theObject, View ) If Not theView Is Nothing Then Dim sheetTag As Tag = Nothing Try DrawingSheet 'Code written by Amy Webster of GTAC ' see nx_api4936 or nx_api4937 ' This function will work for: ' an object which "Resides on drawing" or is "View Dependent In" a DraftingView ' a DraftingView ' a DrawingSheet.View ' Returns Nothing for all other (ie. Close ( ) End Sub Function AskDrawingSheet ( ByVal theObject As TaggedObject ) As Drawings. WriteLine ( "Zone: " & myDraftingDatumZone. WriteLine ( "Sheet number: " & myDraftingDatumZone. MyDraftingDatumZone = ReportAnnotationSheetZone (AskDrawingSheet (myDraftingDatum ), myDraftingDatum ) DraftingDatum = tempĭim myDraftingDatumZone As New NXJSheetZoneInfo DraftingDatum Then Dim myDraftingDatum As Annotations. Gdts 'lw.WriteLine(" type: " & ) If TypeOf (temp ) Is Annotations.
Open ( ) For Each temp As NXObject In theSession.
Work Dim lw As ListingWindow = theSession. Work ) Then 'active part required Return End If Dim workPart As Part = theSession. GetUFSession Sub Main ( ) If IsNothing (theSession. GetSession ( ) Dim theUfSession As UFSession = UFSession.
0 kommentar(er)
