Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte zostavu v SolidWorks . Kliknite pravým tlačidlom myši na priečinok " Anotácia " v " stromu FeatureManager " a vyberte " Zobraziť názvy kót " pre ľahký prístup k špecifickým rozmerom .
2
Záznam makra . Prejdite do ponuky " Zobraziť " a vyberte " Panely nástrojov " a potom " makro " pre zobrazenie makrá Toolbar . Kliknite na tlačidlo " Record \\ Pauza makro " na paneli nástrojov.
3
Vykonávajte iba akcie , ktoré chcete zaznamenať . Dvakrát kliknite na každý rozmer zvýšenie hodnoty rozmerov , napríklad o 0,5 cm . Kliknite na tlačidlo " Rebuild " alebo stlačte " Ctrl + B " znovu zostavu . Kliknite na tlačidlo " Stop " makro na paneli nástrojov Makro zastaviť makro .
4
Zadajte názov makra , napríklad v oblasti " Názov súboru " v Novom Makro " rozmery " , dialógové okno . Vyberte " SW VBA makrá ( * . SWP ) " v " Uložiť ako typ " a kliknite na " Uložiť " .
5
Kliknite na tlačidlo " Upraviť makro " na paneli nástrojov Makro a vyberte nové makro . Kód by mal obsahovať niečo podobné nasledujúcemu :
Sub main ( )
Set Swapp = CreateObject ( " SldWorks.Application " ) Set Časť = swApp.ActiveDocPart.SelectByID = 0.0254Part.SelectByID = 0.0254Part.SelectByID = 0.1016Part.SelectByID " MyDia2 @ Skica1 @ mygear2 - 1 @ MyGearbox " . Part.Parameter ( " MyDia2 @ Sketch1@mygear2.Part " ) . SystemValue = 0.0762Part.EditRebuildPart.ClearSelectionEnd Sub
6
Zmazať každý riadok kódu , ktorý obsahuje metódu " SelectByID " optimalizovať vaše makro . Makro zaznamenané výberom rozmer a mení svoju hodnotu . Ale na tomto príklade , nepotrebujete ten kód , tak to jednoducho spôsobuje zbytočné spracovanie . Upravený kód by mal byť podobný nasledujúcemu :
Sub main ( )
Set Swapp = CreateObject ( " SldWorks.Application " ) Set Časť = swApp.ActiveDocPart.Parameter ( " Shaft1 @ Sketch1@mygear.Part " ) . SystemValue = 0.0254Part.Parameter ( " Shaft2 @ Sketch1@mygear2.Part " ) . SystemValue = 0.0254Part.Parameter ( " MyDia1 @ Sketch1@mygear.Part " ) . SystemValue = 0,1016 Part.Parameter ( " MyDia2 @ Sketch1@mygear2.Part " ) . SystemValue = 0.0762Part.EditRebuildPart.ClearSelectionEnd Sub
7
Otvorte tabuľku programu Excel a vyplňte bunky pre hodnoty , ktoré chcete ovládať . Pridanie tlačidla do tabuľky pre aktiváciu makra vnútri Excel . Prejdite do ponuky " Zobraziť " vyberte " Panely nástrojov " a potom kliknite na " Ovládacie prvky " . Vyberte možnosť " Command Button " a potom kliknite na tlačidlo v okne tabuľkovom procesore , kam chcete vložiť na príkazové tlačidlo .
8
Prejsť na SolidWorks a skopírujte celý kód makra medzi " Sub Main ( ) " a " End Sub " riadky zaznamenané makro .
9
Návrat do tabuľky programu Excel a dvakrát kliknite na nové príkazové tlačidlo , alebo kliknite pravým tlačidlom myši na tlačidlo a vyberte možnosť " Zobraziť kód " . Vložte kód skopírovaný z programu SolidWorks nad " End Sub " riadku .
10
Upravte kód takto prístup hodnoty Excel .
Private Sub CommandButton1_Click ( ) Set Swapp = CreateObject ( " SldWorks.Application " ) Set Časť = swApp.ActiveDocPart.Parameter ( " Shaft1 @ Sketch1@mygear.Part " ) . SystemValue = Excel.Range ( " B1 " ) * 0.0254Part.Parameter ( " MyDia1 @ Sketch1@mygear.Part " ) . SystemValue = Excel.Range ( " B2 " ) * 0.0254Part.Parameter ( " Shaft2 @ @ Skica1 mygear2.Part " ) . SystemValue = Excel.Range ( " B3 " ) * 0.0254Part.Parameter ( " MyDia2 @ Sketch1@mygear2.Part " ) . SystemValue = Excel.Range ( " B4 " ) * 0.0254Part . EditRebuildPart.ClearSelectionEnd Sub
11
skopírujte a vložte tabuľku programu Excel do zostavy , takže externý súbor nie je ovládanie modelu . Vyberte všetky požadované bunky a stlačte " Ctrl + C " skopírovať bunky . Vráťte sa do zostavy SolidWorks a stlačte " Ctrl + V " vložiť skopírované bunky . Teraz , buď v blízkosti alebo odstrániť súbor programu Excel . Tabuľka je uložená v zostave , takže nemusíte súbor .
12
Dvakrát kliknite na vložený tabuľku pre aktiváciu tabuľky . Zmeňte hodnoty buniek a kliknite na príkazové tlačidlo tabuľky aktualizovať zostavu . Kliknite mimo vloženého okna tabuľkového deaktivovať a vrátiť do zostavy .
Copyright © počítačové znalosti Všetky práva vyhradené