Hallo an alle
Ich bin auf der Suche nach einem Stück Code, das einen lokalen Schnitt mit einem Kreis macht, bei dem der Mittelpunkt des letzteren auf dem "Ursprung" des Teils platziert wird (siehe Plan)
Vielen Dank im Voraus für alle Antworten
Hallo
Haben Sie es über den Makrorecorder versucht???
Ja, aber tatsächlich erstellt mein Makro jedes Mal andere Achsen (das ist das Ziel) und die Makroaufzeichnung gibt mir Koordinaten und wenn ich nur den Ursprung auswähle, gibt es mir dies:
boolstatus = Part.Extension.SelectByID2("Point1@Origine@Pièce50-Zeichnung 1@Vue 1", "EXTSKETCHPOINT", 0, 0, 0, Falsch, 0, Nichts, 0)
Und ich möchte, dass dieser Punkt (das Originalstück) das Zentrum meines Kreises für den lokalen Schnitt ist
Hallo
Wir brauchen mehr Informationen,
Ist der Teilename in der Zeichnung festgelegt?
Enthält Ihre Zeichnung immer ein einzelnes Stück?
Man möchte zum ursprünglichen Punkt des Stücks zurückkehren, und das ist es, was auf den ersten Blick am kompliziertesten erscheint. Könnten wir nicht einen festen Punkt in der Zeichnung für die Erstellung des lokalen Abschnitts haben?
Würde die Tiefe des Schnitts festgelegt werden? Vom Benutzer angegeben? Wiederaufnahme an der Küste?
Aber auf jeden Fall ist es nach ein paar Versuchen machbar.
Der Name des Stückes ändert sich jedes Mal je nach Referenz, dann ist das, was festgelegt ist, das Zentrum meines Lebens 1 oder 2, aber es ist für mich nutzlos.
Dann muss ich mir keine Sorgen um die Tiefe des Schnitts machen, bis ich weiß, wie ich meinem Makro das sagen kann :
- Machen Sie einen Kreis Ø14 in der Mitte des Ursprungs des Stücks
-Machen Sie einen lokalen Schnitt 3.175 tief
Das ist alles, was ich brauche, aber wenn ich nach diesem Punkt suche, dann deshalb, weil ich einen Punkt brauche, der bei jedem Teil gleich ist, da sich die Kundenlänge des Teils jedes Mal ändern kann, und da ich ein Loch in diesem Ursprung habe, wird es logisch
Ich habe die Lösung gefunden:
Legen Sie swApp = Application.SldWorks fest
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.ClearSelection2 Wahr
SkCircle als Objekt dimmen
Set SkCircle = Part.SketchManager.CreateCircle(0.05089546697908, 0.1514160210352, 0, 0.05637302852263, 0.1469609376464, 0)
boolstatus = Part.Extension.SelectByID2("Point1@Origine@Pièce51-Zeichnung 1@Vue 1", "EXTSKETCHPOINT", 0, 0, 0, Falsch, 0, Nichts, 0)
boolstatus = Part.Extension.SelectByID2("Punkt5", "SKETCHPOINT", 0.05089546697908, 0.1514160210352, 0, True, 0, Nichts, 0)
Part.SketchAddConstraints "sgCOINCIDENT"
Part.SketchAddConstraints "sgCOINCIDENT"
Part.ClearSelection2 Wahr
boolstatus = Part.Extension.SelectByID2("Arc2", "SKETCHSEGMENT", 0.1060269148852, 0.2591576180298, 0, False, 0, Nichts, 0)
boolstatus = Part.Extension.SelectByID2("Arc2", "SKETCHSEGMENT", 0.09157040374567, 0.2475179348306, 0, False, 0, Nichts, 0)
Teil.CreateBreakOutAbschnitt 0.003175
Part.ClearSelection2 Wahr
Ende Sub
Danke euch allen trotzdem