---

Hallo erst mal ich habe gerade erst mit der programierung in vba angefangen und mein erstes Ziel ist es Features wie Bohrungen Fasen etc. zu unterdrücken!!!

Mein Problem:
Ich hab leider auch nach zweimaligem studieren der Hilfe keine ahnung wie ich Features nach bestimten Kriterien auswähle um sie dann zu unterdrücken!!

Ich bedanke mich im Vorraus für eure mühe!!
Ahra

------------------
Je mehr ich weiß um so mehr weiß ich das ich nichts weiß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ahra

anbei eine kleine Prozedur, die alle Bohrungen mit Durchmesser 5
in einem gewählten Teil unterdrückt

Grüße
Heinz

Sub supress()
  Dim mapp As McadApplication
  Dim util As McadUtility
  Set mapp = ThisDrawing.Application.GetInterfaceObject("Mcad.Application")
  Set util = mapp.ActiveDocument.Utility
     
  Dim Pick As McadPick
  Set Pick = util.Pick("Teil wählen: ", mcPart)
   
  Dim part As McadPart
  Set part = util.GetObjectFromPick(Pick)
 
  Dim fc As McadFeatures
  Set fc = part.Features
 
  Dim f1 As McadFeature
  Dim hdesc As IMcadDrilledHoleDescriptor
 
  For Each f1 In fc
    If f1.FeatureType = mcDrilledHole Then
      Set hdesc = f1.Descriptor
      If hdesc.Diameter = 5 Then
        f1.Suppressed = True
      End If
    End If
  Next
 
  part.Update True
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP