Hallo,
mit Hilfe der Funktion
Drf.AskCustomSymbolLeader (...)
möchte ich auf die Eigenschaften eines CustomSymbol- Leaders
zugreifen.
Doch leider erhalte ich vom Compiler nur die Meldung,
"System.NullReferenceException....", also sinngemäß, das Objekt
existiert nicht im Speicher.
Hier der Code:
' NX 3.0.4.2
Imports System
Imports System.IO
Imports NXOpen
Imports NXOpen.Annotations
Imports NXOpen.Drawings
Imports NXOpen.UF
Imports NXOpen.UI
Module ChangeLeader
Dim theSession As Session = Session.GetSession()
Dim theUFSession As UFSession = UFSession.GetUFSession()
Sub Main()
Dim listingWindow As NXOpen.ListingWindow
Dim ui as UI = ui.GetUI
Dim message as String = "Select WeldSymbol"
Dim title as String = "Selection"
Dim scope as Selection.SelectionScope = Selection.SelectionScope.WorkPart
Dim keepHighlighted as Boolean = False
Dim includeFeatures as Boolean = True
Dim selectionAction as Selection.SelectionAction = _
Selection.SelectionAction.ClearAndEnableSpecific
Dim SelectionType as Selection.SelectionType = 0
Dim selectedObject As NXObject
Dim cursor As Point3d
'Selection Dialog
ui.SelectionManager.SelectObject(message, _
title, _
scope, _
includeFeatures, _
keepHighlighted, _
selectedObject, _
cursor)
Dim SelectedCustomSymbol As NXOpen.Annotations.CustomSymbol
SelectedCustomSymbol = CType(selectedObject, NXOpen.Annotations.CustomSymbol)
'Read angel
Dim Angle as Double
theUFSession.Drf.AskCustomSymbolAngle(SelectedCustomSymbol.Tag, Angle)
Dim LeaderPara() as NXOpen.UF.UFDrf.LeaderData
theUFSession.Drf.AskCustomSymbolLeader(SelectedCustomSymbol.Tag, LeaderPara)
'****************************** Error- Message: System.NullRefernceException
End Sub
End Module
Hat jemand von euch eine Idee? Das Test-Prt liegt bei.
Gruss Margo
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP