Hoe om te lezen van Excel in een Macro voor SolidWorks

Efficiënter werken in SolidWorks door gebruik te maken van Excel's kunnen meerdere waarden bevatten en functionele betrekkingen tussen de waarden te definiëren. Controle van SolidWorks parameters, zoals dimensiewaarden, met Excel VBA-utilities. U kunt bijvoorbeeld een vergadering met een ingesloten Excel-spreadsheet waarmee u controle deel afmetingen. U kunt de waarden van de cellen in de ingesloten spreadsheet wijzigen en klik vervolgens op een opdrachtknop voor het uitvoeren van een macro die de vergadering bijwerkt. Verken de vele opties voor het gebruik van Excel-formules en functies met SolidWorks macro.

• Open een vergadering in SolidWorks. Met de rechtermuisknop op de map "Aantekeningen" in the "FeatureManager ontwerp tree" en selecteer "Dimensie namen weergeven" gemakkelijk toegang verlenen tot specifieke afmetingen.

• Een macro opnemen. Ga naar het menu "Beeld" en selecteer "Werkbalken" en vervolgens "Macro" de Macro-werkbalk wilt weergeven. Klik op de "Record\Pause Macro"-knop op de werkbalk.

• Alleen de acties uitvoeren die u wilt opnemen. Dubbelklik op elke dimensie de waarde te verhogen van de dimensies, bijvoorbeeld door 0,5 inch. Klik op de "Herstellen" knop of druk op "Ctrl + B" voor de wederopbouw van de vergadering. Klik op de "Macro stoppen" knop op de werkbalk van de Macro te stoppen als de macro.

• Typ een naam voor de macro, zoals "afmetingen," in het "Bestandsnaam" veld in het dialoogvenster Nieuwe Macro. Selecteer "SW VBA-macro's (*.swp)" in "Opslaan als type" en klik op "Opslaan".

• Klik op de knop "Macro bewerken" op de Macro-werkbalk en selecteer uw nieuwe macro. De code dient iets gelijkend op het volgende te omvatten:

  Sub main()

  Instellen van swApp = CreateObject("SldWorks.Application")
  Instellen deel = swApp.ActiveDoc
  Part.SelectByID "Shaft1
  Part.Parameter ("Shaft1 = 0.0254
  Part.SelectByID "Shaft2
  Part.Parameter ("Shaft2 = 0.0254
  Part.SelectByID "MyDia1
  Part.Parameter ("MyDia1 = 0.1016
  Part.SelectByID "MyDia2. Part.Parameter ("MyDia2 = 0.0762
  Part.EditRebuild
  Part.ClearSelection
  End Sub

• Verwijderen elke regel met code die de methode van de "SelectByID" voor het optimaliseren van uw macro bevat. De macro opgenomen de dimensie te selecteren en de waarde ervan te wijzigen. Maar voor dit voorbeeld hoeft u niet deze code, zodat het veroorzaakt enkel geen onnodige verwerking. De bewerkte code moet er ongeveer als volgt te werk:

  Sub main()

  Instellen van swApp = CreateObject("SldWorks.Application")
  Instellen deel = swApp.ActiveDoc
  Part.Parameter ("Shaft1 = 0.0254
  Part.Parameter ("Shaft2 = 0.0254
  Part.Parameter ("MyDia1 = 0.1016
  Part.Parameter ("MyDia2 = 0.0762
  Part.EditRebuild
  Part.ClearSelection
  End Sub

• Openen van een Excel-werkblad en invullen van cellen voor de waarden die u besturen wilt. Een knop toevoegen aan het werkblad activeren een macro in Excel. Ga naar het menu "Beeld", selecteer "Werkbalken" en klik op "Werkset." Selecteer de "Command Button" optie en klik in het werkbladvenster waar u wilt invoegen van de opdrachtknop.

• Ga naar SolidWorks en kopieer alle de macrocode tussen de "Sub main()" en "End Sub" lijnen van uw opgenomen macro.

• Terug naar het Excel-werkblad en dubbelklik op de nieuwe opdrachtknop of klik met de rechtermuisknop op de knop en selecteer "View Code." Plak de code die u gekopieerd van SolidWorks boven de "End Sub" lijn.

• Wijzig de code als volgt zodat toegang tot de waarden van Excel.

  Private Sub CommandButton1_Click()
  Instellen van swApp = CreateObject("SldWorks.Application")
  Instellen deel = swApp.ActiveDoc
  Part.Parameter ("Shaft1 = Excel.Range("B1") 0.0254
  Part.Parameter ("MyDia1 = Excel.Range("B2") 0.0254
  Part.Parameter ("Shaft2 = Excel.Range("B3") 0.0254
  Part.Parameter ("MyDia2 = Excel.Range("B4") 0.0254
  Part.EditRebuild
  Part.ClearSelection
  End Sub

• Kopieer en plak het Excel-werkblad in de vergadering, zodat een extern bestand is niet de controle van het model. Selecteer alle gewenste cellen en druk op "Ctrl + C" om de cellen te kopiëren. Terug naar de vergadering van SolidWorks en druk op "Ctrl + V" om de gekopieerde cellen plakt. Nu, sluiten of verwijderen van het Excel-bestand. Het werkblad is ingesloten in de vergadering, dus u niet het bestand hoeft.

• Dubbelklik op de ingesloten spreadsheet om te activeren van het werkblad. De celwaarden wijzigen en klik op de opdrachtknop werkblad voor het bijwerken van de vergadering. Klik buiten het venster van de ingesloten spreadsheet deactiveren en terugkeren naar de vergadering.