[MAKRO] [SW2013] Steuern einer Extrusion aus einer Baugruppe

Macro
1

Hallo

Ich schreibe Ihnen, weil ich trotz meiner Recherchen bei einem Automatisierungsprojekt unter Solidworks 2013 feststecke.

Ich werde den Kontext wieder an seinen Platz setzen:

Ich habe ein Makro erstellt, das ein UserForm öffnet, in das der Benutzer verschiedene Informationen eingibt. Bei der Validierung, Montage, einem Schienensystem, modifiziert sich dieses, indem es seine Länge anpasst. Tatsächlich nehme ich die vom Benutzer gewünschte Länge und benutze maximal "Standard"-Schienen, die eine feste Länge haben. So bleibt ein letzter Abschnitt, der maßgeschneidert sein muss.

Ich habe in meiner Montage ein "spezifisches" Stück Schiene, das an der richtigen Stelle positioniert ist und auf dem ich die Länge des verbleibenden Wertes (den ich kenne und der bereits mit einer Variablen verknüpft ist) variieren möchte.

Ich habe versucht, dies auf verschiedene Weise zu tun:

  • Direkt in der Baugruppe, indem Sie ma_cote@ma_piece@mon_assemblage
  • Indem Sie ein part.editpart, dann eine Änderung und eine part.editassembly ausführen

Haben Sie eine Idee, was zu tun ist oder an welche Reihenfolge ich mich wenden soll? Oder vielleicht ist es unmöglich?

Vielen Dank im Voraus, wenn Ihnen ein Lead einfällt:)

Herzliche Grüße

2

Hallo

Handelt es sich um ein normales Teil oder ein virtuelles Teil während der Montage?

3

Hallo!

Die maßgefertigte Schiene ist ein normales Teil

Herzliche Grüße

4

Ihr müsst also den Raum öffnen:

http://help.solidworks.com/2013/english/api/sldworksapi/Open_Document_Example_VB.htm

So ändern Sie eine Bemaßung:

http://help.solidworks.com/2013/english/api/sldworksapi/Change_Dimension_Example_VB.htm

Und das können wir im Hintergrund tun:

http://help.solidworks.com/2011/English/api/sldworksapi/Enable_Background_Processing_When_Opening_Drawing_Document_Example_VB.htm

 

2 „Gefällt mir“
5

Fantastisch

Ich schaue es mir gleich an und versuche, am Nachmittag eine Rückkehr zu machen.

Herzliche Grüße

1 „Gefällt mir“
6

Hallo

Trotz meiner Versuche war ich nicht in der Lage, die von .PL angebotenen Funktionen zu nutzen.

Ich war immer noch in der Lage, mit einem Editpart auszukommen, der so aussieht:

Part.Extension.SelectByID2("PREMIER_RAIL-1", "COMPONENT", 0, 0, 0, False, 0, Nichts, 0)
Teil.BearbeitenTeil
MyDimension als Objekt dimmen
Set myDimension = Part.Parameter("D1@Boss.-Extru.1@PREMIER_RAIL. Teil")
myDimension.SystemValue = TextBox15.Text / 1000
Part.ClearSelection2 Wahr
boolstatus = Teil.EditRebuild3()
Part.EditAssembly

 

Vielen Dank für Ihre Zeit und für die Informationen, die es mir ermöglicht haben, meine Suche zu verbessern

7

Wenn Sie Ihr vollständiges Makro in einer Textdatei veröffentlichen können, kann jeder Ihren Code genießen:)