Hallo,
ich probiere im Moment, mehr aus Spaß, ein kleines, eigentlich unsinniges Journal.
Ich möchte gerne im Workpart bestimmte Feature löschen. Das Feature heißt #CornerCut#.
Das Schnipselwerk, was ich bisher habe ist folgendes:
Option Strict Off
Imports System
Imports System.Collections.Generic
Imports NXOpen
Module DeleteFeatureCornerCut
Sub Main()
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim lw As ListingWindow = theSession.ListingWindow
lw.Open
lw.WriteLine("You selected " & " object(s)")
For Each temp As Features.Feature In theSession.Parts.Work.Features
If TypeOf (temp) Is Features.ShipDesign.CornerCut Then
lw.WriteLine("Feature gefunden")
'Delete Feature
lw.WriteLine("Feature gelöscht")
End If
Next
End Sub
End Module
Das läuft durch und gibt mir auch schon die Meldung, wenn das Feature gefunden ist.
Eigentlich würde ich erwarten, dass ich nur noch einen Befehl zum löschen einsetzen muss. Aber da hakt es bei mir aber sowas von.
Eventuell ist es ja eine Kleinigkeit, aber ich sehe den Wald vor lauter Bäumen nicht mehr.
Viele Grüße
Felix
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP