Πώς να διαβάσετε το Excel σε μια μακροεντολή SolidWorks

Εργαστείτε πιο αποτελεσματικά σε SolidWorks με τη χρήση του Excel ικανότητα να κατέχουν πολλαπλές τιμές και καθορίσουν τις λειτουργικές σχέσεις μεταξύ των τιμών . SolidWorks ελέγχου παραμέτρων , όπως τιμές διάσταση , με προγράμματα VBA του Excel . Για παράδειγμα , μπορείτε να δημιουργήσετε ένα συγκρότημα με ένα ενσωματωμένο υπολογιστικό φύλλο του Excel που σας επιτρέπει να ελέγχετε τις διαστάσεις μέρος . Μπορείτε να αλλάξετε τις τιμές των κελιών στο ενσωματωμένο υπολογιστικό φύλλο και , στη συνέχεια, κάντε κλικ σε ένα κουμπί εντολής για να εκτελέσει μια μακροεντολή η οποία ενημερώνει το συγκρότημα . Εξερευνήστε τις πολλές επιλογές για τη χρήση τύπους και συναρτήσεις του Excel με SolidWorks macro . Οδηγίες
Η

1 Ανοίξτε μια συνέλευση στο SolidWorks . Κάντε δεξί κλικ στο φάκελο "Σημειώσεις " στο " δέντρο του σχεδιασμού FeatureManager " και επιλέξτε " Εμφάνιση Διάσταση Ονόματα" για να παρέχει εύκολη πρόσβαση σε συγκεκριμένες διαστάσεις . 2

Καταγράψτε μια μακροεντολή . Μεταβείτε στο μενού "Προβολή" και επιλέξτε " Γραμμές εργαλείων " και στη συνέχεια " Macro " για να εμφανιστεί η γραμμή εργαλείων μακροεντολών . Κάντε κλικ στο κουμπί " Record \\ Παύση Macro " στη γραμμή εργαλείων .
Εικόνων 3

Εκτελέστε μόνο τις ενέργειες που θέλετε να καταγράψετε . Κάντε διπλό κλικ σε κάθε διάσταση για την αύξηση της αξίας των διαστάσεων , για παράδειγμα, από 0,5 ίντσες . Κάντε κλικ στο κουμπί " Rebuild " ή πατήστε το πλήκτρο " Ctrl + B" για την ανοικοδόμηση του συγκροτήματος . Κάντε κλικ στο κουμπί "Stop Macro " στη γραμμή εργαλείων μακροεντολών για να διακόψετε τη μακροεντολή .
Η

4 Πληκτρολογήστε ένα όνομα για τη μακροεντολή , όπως " διαστάσεις ", το " Όνομα αρχείου" πεδίο στο New Macro παράθυρο διαλόγου . Επιλέξτε " SW VBA μακροεντολές ( * . SWP) " σε " Αποθήκευση ως τύπου" και κάντε κλικ στο κουμπί "Αποθήκευση".
5

Κάντε κλικ στο κουμπί "Επεξεργασία Macro " στο Macro γραμμή εργαλείων και επιλέξτε νέα μακροεντολή σας . Ο κώδικας θα πρέπει να περιλαμβάνει κάτι παρόμοιο με το ακόλουθο :

Sub main ()

Σετ swapp = CreateObject ( " SldWorks.Application " ) Set μέρος = swApp.ActiveDocPart.SelectByID = 0.0254Part.SelectByID = 0.0254Part.SelectByID = 0.1016Part.SelectByID " MyDia2 @ @ Sketch1 mygear2 - 1 @ MyGearbox " . Part.Parameter ( " MyDia2 @ Sketch1@mygear2.Part " ) . SystemValue = 0.0762Part.EditRebuildPart.ClearSelectionEnd Sub
Η 6

Διαγραφή κάθε γραμμή του κώδικα που περιλαμβάνει τη μέθοδο " SelectByID " για τη βελτιστοποίηση σας macro . Η μακροεντολή καταγράφεται επιλογή του διάσταση και αλλάζει την αξία του . Αλλά για αυτό το παράδειγμα , δεν χρειάζεται αυτόν τον κώδικα , έτσι δεν προκαλεί μόνο περιττή επεξεργασία . Η επεξεργασία κώδικα θα πρέπει να είναι παρόμοιο με το ακόλουθο :

Sub main ()

Σετ swapp = CreateObject ( " SldWorks.Application " ) Set μέρος = 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

Ανοίξτε ένα υπολογιστικό φύλλο Excel και να συμπληρώσετε τα κελιά για τις τιμές που θέλετε να ελέγχετε . Προσθέστε ένα κουμπί στο φύλλο για να ενεργοποιήσετε ένα macro μέσα στο Excel . Μεταβείτε στο μενού "Προβολή " , επιλέξτε " Γραμμές εργαλείων " και στη συνέχεια κάντε κλικ στο "Control Toolbox . " Επιλέξτε την επιλογή "Command Button " και στη συνέχεια κάντε κλικ στο παράθυρο φύλλο στο σημείο όπου θέλετε να εισαγάγετε το κουμπί εντολής .
8

Πηγαίνετε στο SolidWorks και να αντιγράψετε όλα τα θρεπτικά κώδικα μεταξύ των " Sub main () " και " End Sub" γραμμές καταγεγραμμένη μακροεντολή σας .
Η 9

Επιστροφή στο υπολογιστικό φύλλο Excel και κάντε διπλό κλικ το νέο κουμπί εντολής ή κάντε δεξί κλικ στο κουμπί και επιλέξτε " Προβολή κώδικα ". Επικολλήστε τον κώδικα που αντιγράψατε από SolidWorks πάνω από το " End Sub " γραμμή .
Η 10

Τροποποιήστε τον κώδικα ως εξής πρόσβασης οι τιμές του Excel .

Private Sub CommandButton1_Click ( ) Set swapp = CreateObject ( " SldWorks.Application " ) Set μέρος = 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 @ @ Sketch1 mygear2.Part " ) . SystemValue = Excel.Range ( " B3 " ) * 0.0254Part.Parameter ( " MyDia2 @ Sketch1@mygear2.Part " ) . SystemValue = Excel.Range ( " Β4 " ) * 0.0254Part . EditRebuildPart.ClearSelectionEnd Sub
Η 11

Αντιγράψτε και επικολλήστε το υπολογιστικό φύλλο του Excel στο συγκρότημα έτσι ένα εξωτερικό αρχείο που δεν ελέγχει το μοντέλο . Επιλέξτε όλα τα απαιτούμενα στοιχεία και πατήστε το πλήκτρο " Ctrl + C " για να αντιγράψετε τα κελιά . Επιστροφή στο συγκρότημα SolidWorks και πατήστε το πλήκτρο " Ctrl + V " για να επικολλήσετε τα αντιγραμμένα κελιά . Τώρα , είτε κοντά ή να διαγράψετε το αρχείο Excel . Το φύλλο είναι ενσωματωμένη στη συνέλευση , ώστε να μην χρειάζεται το αρχείο .
Η 12

Κάντε διπλό κλικ στο ενσωματωμένο υπολογιστικό φύλλο για να ενεργοποιήσετε το υπολογιστικό φύλλο . Αλλάξτε τις τιμές των κελιών και κάντε κλικ στο κουμπί εντολής φύλλο για να ενημερώσετε το συγκρότημα . Κάντε κλικ έξω από το ενσωματωμένο παράθυρο φύλλου για να απενεργοποιήσετε και να επιστρέψει στο συγκρότημα .
Η
εικόνων