Hi!
Das Makro läuft soweit allerdings besteht nun das Problem, dass der Benutzer bestimmte Parts durch KLICKEN auswählen kann und diese ändern kann. Die Änderungen durchführen klappt auch, allerdings nur über ein UI, in dem man den Namen des Objektes eingibt. Im Moment sieht das ganze ca. so aus:
Public Function getGewaehlteVerbindung()
Dim InputObjectType(0)
Dim returnGewaehlteVerbindung As NXObject ' Ut: War daov rMIcrosoft COllection
Dim theUI As UI = UI.GetUI
Dim cursor As Point3d = Nothing
Dim selectionMask_array(1) As Selection.MaskTriple
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
Dim lw As ListingWindow = theSession.ListingWindow
Dim mySelectedObject As NXObject
lw.Open()
Dim selResp As Selection.Response = SelectAnObject("Wählen Sie bitte die zu ändernde Verbindung aus", _ mySelectedObject)
lw.WriteLine("Object Tag: " & mySelectedObject.Tag)
lw.WriteLine("Object Type: " & mySelectedObject.GetType.ToString)
lw.WriteLine("")
lw.Close()
returnGewaehlteVerbindung = mySelectedObject
Return returnGewaehlteVerbindung
End Function
------------------------------------------------
Public Function SelectAnObject(ByVal prompt As String, _
ByRef selObj As NXObject) As Selection.Response
Dim udobject As NXObject
Dim numberSelected As Integer
Dim theUI As UI = UI.GetUI
Dim cursor As Point3d
Dim object1 As NXObject
Dim selectionMask_array() As Selection.MaskTriple
Dim typeArray() As Selection.SelectionType = _
{Selection.SelectionType.All, _
Selection.SelectionType.Faces, _
Selection.SelectionType.Edges, _
Selection.SelectionType.Features
}
Dim resp As Selection.Response = theUI.SelectionManager.SelectObject(prompt, "VerbindungAuswählen", Selection.SelectionScope.WorkPart, False, typeArray, object1, cursor)
End Function
-------------------
Hat jemand eine Idee warum ich nicht per Mausklick das Objekt auswählen kann?
Bin für jede Hilfe dankbar
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP