![]() ToString ) For Each tempTag As Tag In theParentTagsĭim objParent As TaggedObject = Utilities. WriteLine ( New String ( " "c, indent ) & "number of parents: " & numParents. UF_SO_ASK_ALL_PARENTS, numParents, theParentTags ) Tag, temp ) End If End If End If Next End Sub Private Function GetSmartParent ( ByRef theSmartObject As NXObject, ByVal indent As Integer ) As TaggedObjectĭim numParents As Integer Dim theParentTags ( ) As Tag = Nothing Dim isSmart As Boolean = False Try SmartParent = GetSmartParent (geoPt, 0 ) If Not IsNothing (smartParent ) Then PointOnGeometry Dim smartParent As TaggedObject RelativeToGeometry Then Dim geoPt As Point = originData. WriteLine ( " note associativity type: " & originData. HasAssociativeOrigin Then Dim pt As Point3dĭim originData As Annotations. Item ( 1 ) ) End If End Sub Private Sub CreateAnnotationMap ( ) For Each temp As Annotations. ContainsKey (_sectionLineSegmentCurveTags. Count = 2 Then Exit Sub End If If _annotationMap. Tag ) If Not _sectionLineSegmentCurveTags. _sectionLineSegmentCurveTags = SectionLineSegmentCurveTags (_theSectionLine. #Region "Private methods" Private Sub GetSectionLineLabels ( ) Me. GetSectionLineLabels ( ) End Sub #End Region _theSectionView = GetSectionView (someSectionLine ) Me. GetSectionLineLabels ( ) End Sub Public Sub New ( ByVal someSectionLine As Drawings. _theSectionLine = GetSectionLine (_theSectionView ) Me. #Region "Public methods" Public Sub New ( ByVal someSectionView As Drawings. DraftingView Get Return _sectionViewParent DraftingView = Nothing Public ReadOnly Property SectionViewParent ( ) As Drawings. Note Get Return _sectionLineLabel2Įnd Get End Property Private _sectionViewParent As Drawings. Note = Nothing Public ReadOnly Property SectionLineLabel2 ( ) As Annotations. Note Get Return _sectionLineLabel1Įnd Get End Property Private _sectionLineLabel2 As Annotations. Note = Nothing Public ReadOnly Property SectionLineLabel1 ( ) As Annotations. SectionView Get Return _theSectionViewĮnd Get End Property Private _sectionLineLabel1 As Annotations. SectionView = Nothing Public ReadOnly Property SectionView ( ) As Drawings. SxlineStatus Get Return _theSectionLineStatusĮnd Get End Property Private _theSectionView As Drawings. SxlineStatus = Nothing Public ReadOnly Property SectionLineStatus ( ) As UFDraw. SectionLine Get Return _theSectionLineĮnd Get End Property Private _theSectionLineStatus As UFDraw. SectionLine = Nothing Public ReadOnly Property SectionLine ( ) As Drawings. #Region "Properties" Private _theSectionLine As Drawings. ![]() Note ) Private _sectionLineSegmentCurveTags As New List ( Of Tag ) #End Region LogFile 'key = tag of note's smart object parent, value = note object Private _annotationMap As New Dictionary ( Of Tag, Annotations. GetUFSession ( ) Private lg As LogFile = _theSession. GetSession Private _theUfSession As UFSession = UFSession. #Region "Private variables" Private _theSession As Session = Session. Immediately End Function End Module Public Class NXJ_findSectionLineLabels GetText ( 0 ) ) Next Return Nothing End Function Public Function GetUnloadOption ( ByVal dummy As String ) As Integer 'Unloads the image immediately after execution within NX CreateComponentData (someNote ) For Each tC As Annotations. CreateAssociativeText ( ) Dim cData As Annotations. Close ( ) End Sub Function EvaluateText ( ByVal someNote As Annotations. WriteLine ( "" ) End If 'lw.WriteLine("") Next WriteLine ( "label2 coordinates: " & myLabels. WriteLine ( "label2 value: " & EvaluateText (myLabels. UpdateDisplay ( ) MsgBox ( "label1 tag: " & myLabels. WriteLine ( "label1 coordinates: " & myLabels. WriteLine ( "label1 value: " & EvaluateText (myLabels. WriteLine ( "section line tag: " & myLabels. SectionView Then Dim myLabels As New NXJ_findSectionLineLabels (temp ) ![]() DraftingViews If TypeOf (temp ) Is Drawings. Visible, undoMarkName ) For Each temp As Drawings. Open ( ) Const undoMarkName As String = "find section line labels" Dim markId1 As Session. BaseWork ) Then 'active part required Return End If Work Sub Main ( ) If IsNothing (theSession. ListingWindow Dim workPart As Part = theSession. GetUFSession ( ) Dim lw As ListingWindow = theSession. GetSession ( ) Dim theUfSession As UFSession = UFSession. UF Module process_section_viewsĭim theSession As Session = Session. ![]() 'Process all the section views in the part report the section line, parent view, and labels. ' 'Novem'Journal to illustrate usage of class code to return section line labels given the section line or section view. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |