| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| SOLIDWORKS Flow Simulation, ein Seminar am 12.09.2024
|
Autor
|
Thema: Passungstabelle Ver. 4 / zum Testen (25933 mal gelesen)
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 09. Jan. 2008 16:45 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen anbei die neueste Version zum Testen Sollte jemand Fehler feststellen, so bitte ich um Rückmeldung. Sehr wahrscheinlich werden noch einige Fehler vorhanden sein, weil das eine gröbere Überarbeitung war. Ich bitte auch schon jetzt um Nachsicht, dass etwaige Fehler nicht sofort behoben werden können, weil ich im Moment etwas Zeitmangel habe. Es gibt nun 3 Makros 1. "Passungstabelle_Main.swp" Makro zum Starten des Hauptfunktion 2. "Passungstabelle_Setup.swp" Makro zum Starten des Setup-Dialogs 3. "Passungstabelle7.swp" Hauptfunktion (sollte eigentlich nie direkt aufgerufen werden) hier sind auch im Modul "Passungstabelle1" die Änderungen beschrieben anbei die Änderungen im Detail '** Version 4.0 / 09.01.2008 '** - Es gibt nun 3 Makros '** * Passungstabelle7 '** Hauptprogramm = dieses Makro '** * Passungstabelle_Main '** zum Starten der Hauptfunktion '** * Passungstabelle_Setup '** zum Starten der Setupfunktion '** - Parameter können über das Makro Passungstabelle_Setup für verschiedene '** Formate eingestellt werden und werden in einer INI Datei gespeichert '** - Folgende Parameter können beeinflusst werden '** * Lage des Einfügepunkts '** Links oben / Rechts oben / Links unten / Rechts unten '** * Offset des Einfügepunktes '** X- Y-Offset '** positive Werte bewirken eine Verschiebung in das Blatt '** negative Werte bewirken eine Verschiebung aus dem Blatt '** * Texthöhe '** * Textstil '** * Textoptionen (durchgestrichen, untersctrichen, fett, kursiv) '** * Spaltenbreite für alle 4 Spalten '** * Anzahl der Dezimalstellen auf die die Maße gerundet werden '** Grund siehe unten Ver. 3.0 '** * PLUS-Zeichen bei positiven Toleranzen anzeigen oder nicht '** * Verhalten wenn Passungen ohne Passungswert gefunden werden '** - Hinweise für die Parameter '** * ist eine Tabelle vorhanden wird der Einfügepunkt der '** existierenden Tabelle übernommen alle anderen Parameter '** werden von den Einstellungen in der INI-Datei übernommen '** * wennn mehrere Formate definiert sind und das Blattformat '** konnte nicht gefunden werden werden die Einstellungen der '** des 1. Eintrags übernommen '** * Ist nur ein Format definiert wird davon ausgegangen, dass '** für alle Formate die selben Parameter gelten '** * Als Erkennungsmerkmal der Formate dienen die Abmessungen und '** nicht der Formatname '** * Wenn Passungen ohne Passungswert gefunden werden und die '** Option auf "warnen" gestellt ist wird eine Meldung ausgegeben '** und die Maße werden selektiert '** diese Option wird für jedes Format gespeichert '** - Zusätzliche Fehlerabfragen integriert '** * Prüfung ob eine Datei geladen ist '** * Prüfung ob eine Zeichnung geladen ist
------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
T. Steffen Mitglied Konstrukteur
Beiträge: 339 Registriert: 27.03.2002
|
erstellt am: 11. Jan. 2008 07:54 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
Hallo Heinz Ich wollte die Passungstabelle ausprobieren. Leider komme ich nicht sehr weit. Beim Klick auf den Button Format hinzufügen und anschliessendem Eingeben eines Namen für das neue Format erscheint diese Fehlermeldung. Gruss Tom Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 11. Jan. 2008 08:27 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen Tom ein paar Fragen 1. hast Du alle 3 Makros in das selbe Verzeichnis kopiert? 2. wie hast Du das Makro gestartet? mit dem Makro "Passungstabelle_Main"? 3. Wie lautet der eingegebene Formatname? ------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
T. Steffen Mitglied Konstrukteur
Beiträge: 339 Registriert: 27.03.2002
|
erstellt am: 11. Jan. 2008 08:52 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
Hallo Heinz 1. Habe alle Makros im selben Verzeichnis 2. Habe das Makro über Passungstabelle_Main gestartet 3. Der eingegebene Formatname lautet "A4". Habe es aber auch mit anderen Namen versucht. Anbei noch ein Bild der Debug Meldung. Gruss Tom Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Lutz Federbusch Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau
Beiträge: 3094 Registriert: 03.12.2001 alle SW seit 97+ AutoCAD2016-2022 ERP ProAlpha + CA-Link Intel Core i7-7820K 32GB Win10x64 Quadro K5000 SpacePilot
|
erstellt am: 11. Jan. 2008 09:32 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
Kam ein Beta-Tester des Wegs: Ich hätte den hier zu bieten... Kommt nach dem (noch keine INI-Datei da) Hinzufügen eines neuen Formates "A2" rechts (mit Knopf Auflösung ausgelesen (Werte für die Blattabmessungen des aktuellen Blatts kamen richtig, Format hinzufügen und dann Sichern gedrückt) ... Punkt 1 und 2 von Tom wurden eingehalten. SW2007/SP3 Dim swApp as object und Set swApp = CreateObject("SldWorks.Application") wäre eine andere Möglichkeit Warum nur immer diese böse versionsabhängige Programmierung?! ------------------ Lutz Federbusch Mein Gästebuch Der Mensch, Herr oder Sklave der Technik? [Diese Nachricht wurde von Lutz Federbusch am 11. Jan. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 11. Jan. 2008 10:59 <-- editieren / zitieren --> Unities abgeben:
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 11. Jan. 2008 11:05 <-- editieren / zitieren --> Unities abgeben:
|
Lutz Federbusch Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau
Beiträge: 3094 Registriert: 03.12.2001 alle SW seit 97+ AutoCAD2016-2022 ERP ProAlpha + CA-Link Intel Core i7-7820K 32GB Win10x64 Quadro K5000 SpacePilot
|
erstellt am: 11. Jan. 2008 12:10 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
Habs mal wieder getestet => Unter verschieden Versionen. SW2001+ komme ich eine Zeile weiter als vorher (Fehler mit GetCurrentMacroPath). Wohl eher ein versionsabhängiges Problem. Das Objekt geht da einfach nicht. In SW2007 immer noch die Fehlermeldung wie vorhin, allerdings ohne die Aktion mit dem Erstellen der INI-Datei (die wird jetzt gespeichert). Bei Passungstabelle8 kommt nur die alles entscheidende Abfrage. Wahrscheinlich habe ich die Abfrage falsch beantwortet... ------------------ Lutz Federbusch Mein Gästebuch Der Mensch, Herr oder Sklave der Technik? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 11. Jan. 2008 12:34 <-- editieren / zitieren --> Unities abgeben:
Hallo Lutz danke für Deine Geduld ich hab das mit "DIM swapp as Object" zwar in "Passungstabelle8" aber nicht in den beiden anderen Makros geändert. Das Makro "Passungstabelle8" sollte nie direkt aufgerufen werden sondern immer über "Passungstabgelle_Main" oder "Passungstabelle_Setup" Die DIM swapp ... Anweisung ist nun auch in den beiden anderen Makros ersetzt worden Danke fürs Testen!!
------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Jörg W Mitglied Maschinenbautechniker und CAD Admin
Beiträge: 1232 Registriert: 12.07.2001 Win 10 64bit SW2018 SP5 HP z240 16GB Ram Quadro P1000
|
erstellt am: 11. Jan. 2008 12:58 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
|
Lutz Federbusch Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau
Beiträge: 3094 Registriert: 03.12.2001 alle SW seit 97+ AutoCAD2016-2022 ERP ProAlpha + CA-Link Intel Core i7-7820K 32GB Win10x64 Quadro K5000 SpacePilot
|
erstellt am: 11. Jan. 2008 13:14 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
Nicht zu danken; geht ja immer schnell : Diesmal bis hier => Ist eine Passung nicht da, dann bricht alles ab. Schöner wäre es, wenn wenigstens mit dem Rest eine Tabelle kommen würde. ------------------ Lutz Federbusch Mein Gästebuch Der Mensch, Herr oder Sklave der Technik? [Diese Nachricht wurde von Lutz Federbusch am 11. Jan. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Lutz Federbusch Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau
Beiträge: 3094 Registriert: 03.12.2001 alle SW seit 97+ AutoCAD2016-2022 ERP ProAlpha + CA-Link Intel Core i7-7820K 32GB Win10x64 Quadro K5000 SpacePilot
|
erstellt am: 11. Jan. 2008 15:14 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
Gut, jetzt habe ich auch mal eine Tabelle hinbekommen. Jetzt wäre Sortieren noch schön und die Überschrift oben. Zum Vergleich sehen 'unsere' Tabellen so aus => Ach ja, den EinfügepunktOffset nimmt es bei mir nicht. ------------------ Lutz Federbusch Mein Gästebuch Der Mensch, Herr oder Sklave der Technik? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 11. Jan. 2008 15:18 <-- editieren / zitieren --> Unities abgeben:
|
Lutz Federbusch Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau
Beiträge: 3094 Registriert: 03.12.2001 alle SW seit 97+ AutoCAD2016-2022 ERP ProAlpha + CA-Link Intel Core i7-7820K 32GB Win10x64 Quadro K5000 SpacePilot
|
erstellt am: 11. Jan. 2008 15:35 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 12. Jan. 2008 14:26 <-- editieren / zitieren --> Unities abgeben:
Hallo Lutz so, ich bin schon gespannt welche Fehler noch auftauchen werden Für alle neu Hinzugekommenen nochmals die Historie der Version 4 Die vorigen Versionen habe gelöscht und können hoffentlich nicht mehr runtergeladen werden. '** Versionshinweise '** Version 4.12 / 12.01.2008 '** - Fehlerabfragen für Zahlenfelder hinzugefügt '** - bei fehlenden Passungen wird nur mehr eine Meldung ausgegeben '** und das Makro nicht komplett abgebrochen '** - zusätzlicher Parameter für Kopf- oder Fußzeile '** - zusätzlicher Parameter über die Art der Tabelle '** dafür werden die 3 JPG-Bilder benötigt '** - Maße werden sortiert dargestellt '** Danke an Lutz Federbusch für die Anregungen und fürs Testen '** Version 4.11 / 11.01.2008 '** - Definition der SWX Variablen sollte nun versionsunabhängig sein '** auch bei Passungstabelle_Main und Passungstabelle_Setup '** Danke an Lutz Federbusch für den Hinweis '** - Hauptprogramm auf Passungstabelle9 umbenannt '** Version 4.1 / 11.01.2008 '** - Bug beim Hinzufügen von Formaten beseitigt '** Danke an T. Steffen für den Hinweis '** - Definition der SWX Variablen sollte nun versionsunabhängig sein '** Danke an Lutz Federbusch für den Hinweis '** - Hauptprogramm auf Passungstabelle8 umbenannt '** Version 4.0 / 09.01.2008 '** - Es gibt nun 3 Makros '** * Passungstabelle7 '** Hauptprogramm = dieses Makro '** * Passungstabelle_Main '** zum Starten der Hauptfunktion '** * Passungstabelle_Setup '** zum Starten der Setupfunktion '** - Parameter können über das Makro Passungstabelle_Setup für verschiedene '** Formate eingestellt werden und werden in einer INI Datei gespeichert '** - Folgende Parameter können beeinflusst werden '** * Lage des Einfügepunkts '** Links oben / Rechts oben / Links unten / Rechts unten '** * Offset des Einfügepunktes '** X- Y-Offset '** positive Werte bewirken eine Verschiebung in das Blatt '** negative Werte bewirken eine Verschiebung aus dem Blatt '** * Texthöhe '** * Textstil '** * Textoptionen (durchgestrichen, untersctrichen, fett, kursiv) '** * Spaltenbreite für alle 4 Spalten '** * Anzahl der Dezimalstellen auf die die Maße gerundet werden '** Grund siehe unten Ver. 3.0 '** * PLUS-Zeichen bei positiven Toleranzen anzeigen oder nicht '** * Verhalten wenn Passungen ohne Passungswert gefunden werden '** - Hinweise für die Parameter '** * ist eine Tabelle vorhanden wird der Einfügepunkt der '** existierenden Tabelle übernommen alle anderen Parameter '** werden von den Einstellungen in der INI-Datei übernommen '** * wennn mehrere Formate definiert sind und das Blattformat '** konnte nicht gefunden werden werden die Einstellungen der '** des 1. Eintrags übernommen '** * Ist nur ein Format definiert wird davon ausgegangen, dass '** für alle Formate die selben Parameter gelten '** * Als Erkennungsmerkmal der Formate dienen die Abmessungen und '** nicht der Formatname '** * Wenn Passungen ohne Passungswert gefunden werden und die '** Option auf "warnen" gestellt ist wird eine Meldung ausgegeben '** und die Maße werden selektiert '** diese Option wird für jedes Format gespeichert '** - Zusätzliche Fehlerabfragen integriert '** * Prüfung ob eine Datei geladen ist '** * Prüfung ob eine Zeichnung geladen ist ------------------ Grüße Heinz [Diese Nachricht wurde von nahe am 12. Jan. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andi Beck Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 2577 Registriert: 02.10.2006 Firma: SW 2023-5.0 + PDM Prof. Windows 10 Pro 64bit, i9-11900 32 GbRAM, Quadro P2200 Home: SW 2023-5.0 Passungstabelle von Heinz Windows 11 Pro 64bit, i7-12700K, 32 GbRAM, GeForce GTX 1050Ti Samsung C34H892, 3440x1440 Pixel
|
erstellt am: 14. Jan. 2008 19:32 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
Hallo Heinz, tolles Macro, Respekt. Ich habe es erfolgreich in SolidWorks 2007 in Betrieb genommen. Von A4 bis A0. Wenn ich in den Einstellungen z.B. in den Feldern X und Y die vorgegebenen Zahlen kpl. lösche, dann hängt sich SolidWorks auf und ich muss von vorne beginnen. Nur wenn ich mindestens eine Zahl im Feld lasse, geht alles in Ordnung. Leider werden bei mir (Schriftgröße 3, Arial) bei den Toleranzen die Kommas bis in die Linien der Zeilen gesetzt. Kann man irgendwie die Zeilenhöhe manipulieren? Mach weiter so. Besten Dank Andi Beck ------------------ Hast du kein Problem? Such dir eins. ( Und löse es ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 14. Jan. 2008 20:06 <-- editieren / zitieren --> Unities abgeben:
|
Jörg W Mitglied Maschinenbautechniker und CAD Admin
Beiträge: 1232 Registriert: 12.07.2001 Win 10 64bit SW2018 SP5 HP z240 16GB Ram Quadro P1000
|
erstellt am: 15. Jan. 2008 07:08 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
|
Lutz Federbusch Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau
Beiträge: 3094 Registriert: 03.12.2001 alle SW seit 97+ AutoCAD2016-2022 ERP ProAlpha + CA-Link Intel Core i7-7820K 32GB Win10x64 Quadro K5000 SpacePilot
|
erstellt am: 15. Jan. 2008 09:58 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 15. Jan. 2008 10:17 <-- editieren / zitieren --> Unities abgeben:
|
Lutz Federbusch Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau
Beiträge: 3094 Registriert: 03.12.2001 alle SW seit 97+ AutoCAD2016-2022 ERP ProAlpha + CA-Link Intel Core i7-7820K 32GB Win10x64 Quadro K5000 SpacePilot
|
erstellt am: 15. Jan. 2008 14:08 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 15. Jan. 2008 14:25 <-- editieren / zitieren --> Unities abgeben:
Hallo Lutz also bei mir funktioniert es leider oder besser Gott sei Dank siehe anbei die Bilder wie gesagt unter SWX 2007 SP 4.0 und SWX 2008 SP 1.1 zu SWX2001 kann ich nichts sagen, da wir erst mit SWX 2005 auf Solidworks gewechselt haben.
------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Lutz Federbusch Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau
Beiträge: 3094 Registriert: 03.12.2001 alle SW seit 97+ AutoCAD2016-2022 ERP ProAlpha + CA-Link Intel Core i7-7820K 32GB Win10x64 Quadro K5000 SpacePilot
|
erstellt am: 15. Jan. 2008 18:51 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 15. Jan. 2008 20:46 <-- editieren / zitieren --> Unities abgeben:
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 17. Jan. 2008 10:10 <-- editieren / zitieren --> Unities abgeben:
|
ziese-meier Mitglied Feinwerkmechanikermeister / Werkzeugbau
Beiträge: 113 Registriert: 24.10.2006 Solid Works 2019 SP 5.0 CAMWorks 2020 PC:HP xw8400 Workstation; Intel Xeon CPU E5345 2,33 GHz; 8 GB Ram; Grafik: NVIDIA Quadro FX 4600; Windows 10
|
erstellt am: 17. Jan. 2008 11:59 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
Hallo, habe mir das Makro auch mal geladen. Ich habe allerdings noch nie mit Makros gearbeitet. Wo speichere ich es ab? Ist es richtig, das dieses Makro automatisch meine Passungen in einer Zeichnung erkennt und dafür eine Tabelle anlegt? Ist in der Tabelle dann nur die Passung z.B. ø90 H7 oder auch gleich die Abmaße mit drin??? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 17. Jan. 2008 16:20 <-- editieren / zitieren --> Unities abgeben:
Hallo du kopierst einfach alle Dateien in ein Verzeichnis. Am besten legst Du Dir ein eigenes mit Makros an. Dann gibt es 3 Marko-Dateien Zum "normalen" starten rufst Du einfach das Makro "Passungstabelle_Main" auf wenn Du das Setup verändern willst dann rufst Du das Makro "Passungstabelle_Setup" auf Im Setup kannst Du unter "Tabellentyp" einstellen, was in der Tabelle angezeigt werden soll. Die letzte Version findest Du unter http://ww3.cad.de/foren/ubb/Forum2/HTML/014368.shtml Bitte lies auch den Kommentarkopf im Makro "Passungstabelle9" vor allem '************************************************************************* '** ACHTUNG: '** damit das Makro läuft muss die "Microsoft Jet 4.0-Datenbank-Engine" '** installiert sein. '** Diese kann unter '** http://support.microsoft.com/default.aspx?scid=kb;DE;239114 '** runtergladen werden '** Wenn die Datei "DAO360.DLL" vorhanden ist, ist es wahrscheinlich '** nicht notwendig den download durchzuführen '************************************************************************* Am besten ist Du durchsuchst das Laufwerk C: ob die Datei gefunden wird. ------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 17. Jan. 2008 16:34 <-- editieren / zitieren --> Unities abgeben:
|
ziese-meier Mitglied Feinwerkmechanikermeister / Werkzeugbau
Beiträge: 113 Registriert: 24.10.2006 Solid Works 2019 SP 5.0 CAMWorks 2020 PC:HP xw8400 Workstation; Intel Xeon CPU E5345 2,33 GHz; 8 GB Ram; Grafik: NVIDIA Quadro FX 4600; Windows 10
|
erstellt am: 18. Jan. 2008 09:32 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
Hallo Heinz, danke für die Antwort!!! die dll ist vorhanden und der Makroordner erstellt. Mit dem Tabellenbearbeiten habe ich aber ein Problem. Sobald ich bei einer geöffneten SW 2008 Zeichnung das Makrosetup öffne, macht sich das Setupfenster auf. Soweit ok? Klicke ich jetzt auf "Tabellentyp" geht das Fenster ohne Kommentar oder Fehlermeldung weg. Was nun? Mache ich das Setup nocheinmal auf, geht gar nichts mehr und ich komme nur noch mit Strg + Alt + Entf. aus SW raus. das kann doch nicht richtig sein, oder??? So wie die Einstellung jetzt ist, wird halt eine Tabelle geöffnet und es werden die Passmaße mit Passung aber leider ohne Abmaße erstellt und angezeigt. Die Anzeige der Abmaße wäre natürlich jetzt noch sehr sehr gut! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Lutz Federbusch Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau
Beiträge: 3094 Registriert: 03.12.2001 alle SW seit 97+ AutoCAD2016-2022 ERP ProAlpha + CA-Link Intel Core i7-7820K 32GB Win10x64 Quadro K5000 SpacePilot
|
erstellt am: 18. Jan. 2008 09:47 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 18. Jan. 2008 12:42 <-- editieren / zitieren --> Unities abgeben:
Hallo Lutz kannst Du bitte mal in dem Makro "Passungstabelle" und dort im Modul "Passungstabelle1" nachsehen, welche Version Du verwendest, bzw. mir nochmals die INI-Datei schicken? Danke ------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 18. Jan. 2008 13:26 <-- editieren / zitieren --> Unities abgeben:
|
SteffenB Mitglied Geprüfter Konstrukteur (IHK) / Key-User
Beiträge: 268 Registriert: 10.08.2005 Intel Xeon 3,6Ghz 32GB RAM NVIDIA Quadro 2000 Windows 7 Pro / 64bit SWX 2015 SP2.1
|
erstellt am: 18. Jan. 2008 14:47 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
Hallo Heinz, erstmal ein großes Lob ! Habe das Makro gestern Abend daheim kurz angetest und alles hat einwandfrei funktioniert. Heute im Geschäft, dacht ich mir, dass wir dies vll. auch nutzen. Leider bekomme ich bei der Auswahl vom Tabellentyp einen Laufzeitfehler und die Abmaße kommen auch nicht. An was könnte das liegen?
Zitat: Original erstellt von nahe: Hallokannst Du bitte mal nachsehen, ob Du im dem Verzeichnis im dem die markos sind auch die Bilder V1.jpg v2.jpg und v3.jpg vorhanden sind?
Bevor du mich das vll. auch fragst - ja die Bilder sind vorhanden Gruß Steffen ------------------ Wer Rechtschreibfehler findet darf sie gerne behalten! :-) www.egoproducts.com [Diese Nachricht wurde von SteffenB am 18. Jan. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 18. Jan. 2008 15:05 <-- editieren / zitieren --> Unities abgeben:
|
Lutz Federbusch Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau
Beiträge: 3094 Registriert: 03.12.2001 alle SW seit 97+ AutoCAD2016-2022 ERP ProAlpha + CA-Link Intel Core i7-7820K 32GB Win10x64 Quadro K5000 SpacePilot
|
erstellt am: 18. Jan. 2008 15:26 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 19. Jan. 2008 10:49 <-- editieren / zitieren --> Unities abgeben:
Hallo Lutz ich hab den Fehler nachvollziehen können. Das liegt daran, dass Du im Setup den Tabellentyp auswählen musst, mit OK bestätigen und dann Sichern. Dann sollte es klappen. Wenn Du in Deiner INI-Datei nachsiehst steht dort bei TABTYPE der Wert 0 Was ein ungültiger Wert ist (es ist nur 1 2 od. 3 gültig) Ich habe das zwar schon überarbeitet möchte aber mit dem Upload noch warten, ob noch irgendwelche Fehler zum Vorschein kommen ------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SteffenB Mitglied Geprüfter Konstrukteur (IHK) / Key-User
Beiträge: 268 Registriert: 10.08.2005 Intel Xeon 3,6Ghz 32GB RAM NVIDIA Quadro 2000 Windows 7 Pro / 64bit SWX 2015 SP2.1
|
erstellt am: 19. Jan. 2008 11:20 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
Zitat: Original erstellt von nahe: Hallo Steffenkannst Du bitte mal bei der Fehlermeldung den Debugger aufrufen und davon ein Bild machen, damit man sieht wo das makro hängt? Danke
Morgen Heinz, am Montag schicke ich es dir gleich, wenn ich im Geschäft bin. Schönes WE ------------------ Wer Rechtschreibfehler findet darf sie gerne behalten! :-) www.egoproducts.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SteffenB Mitglied Geprüfter Konstrukteur (IHK) / Key-User
Beiträge: 268 Registriert: 10.08.2005 Intel Xeon 3,6Ghz 32GB RAM NVIDIA Quadro 2000 Windows 7 Pro / 64bit SWX 2015 SP2.1
|
erstellt am: 21. Jan. 2008 07:36 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 21. Jan. 2008 10:01 <-- editieren / zitieren --> Unities abgeben:
Hallo Steffen leider kann ich das Problem nicht nachvollziehen :-( Daher noch ein paar Fragen welches Makro startest Du? hast du schon eine INI-Datei oder gibt es noch keine? ------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SteffenB Mitglied Geprüfter Konstrukteur (IHK) / Key-User
Beiträge: 268 Registriert: 10.08.2005 Intel Xeon 3,6Ghz 32GB RAM NVIDIA Quadro 2000 Windows 7 Pro / 64bit SWX 2015 SP2.1
|
erstellt am: 21. Jan. 2008 10:14 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 21. Jan. 2008 10:19 <-- editieren / zitieren --> Unities abgeben:
|
SteffenB Mitglied Geprüfter Konstrukteur (IHK) / Key-User
Beiträge: 268 Registriert: 10.08.2005 Intel Xeon 3,6Ghz 32GB RAM NVIDIA Quadro 2000 Windows 7 Pro / 64bit SWX 2015 SP2.1
|
erstellt am: 21. Jan. 2008 10:31 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 21. Jan. 2008 10:52 <-- editieren / zitieren --> Unities abgeben:
Kannst Du bitte mal mit der angehängten INI-Datei einen Versuch machen, damit wir sehen ob es daran liegt, dass einigen Parametern nicht richtig initialisierte Werte zugeordnet wurden. ------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SteffenB Mitglied Geprüfter Konstrukteur (IHK) / Key-User
Beiträge: 268 Registriert: 10.08.2005 Intel Xeon 3,6Ghz 32GB RAM NVIDIA Quadro 2000 Windows 7 Pro / 64bit SWX 2015 SP2.1
|
erstellt am: 21. Jan. 2008 11:02 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 21. Jan. 2008 11:20 <-- editieren / zitieren --> Unities abgeben:
Sch....ade Letzter Versuch bevor ich mit meinem Latein am Ende bin Versuch mal bitte im Makro "Passungstabelle9" im Formular "Tabellentyp" in Private Sub UserForm_Activate() die 3 Zeile mit Image1.Picture .... Image2.Picture .... Image3.Picture .... zu löschen oder "auskommentieren" mit ' am Zeilenanfang Meine einzige Idee ist, dass ev. die Funktion "LoadPicture" nicht zum Standard von VBA gehört. ------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SteffenB Mitglied Geprüfter Konstrukteur (IHK) / Key-User
Beiträge: 268 Registriert: 10.08.2005 Intel Xeon 3,6Ghz 32GB RAM NVIDIA Quadro 2000 Windows 7 Pro / 64bit SWX 2015 SP2.1
|
erstellt am: 21. Jan. 2008 11:43 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 21. Jan. 2008 12:09 <-- editieren / zitieren --> Unities abgeben:
wenn die Bilder im selben Verzeichnis wie die Makros und die INI-Datei liegen kann es daran eigentlich nicht liegen. Im Moment hab ich eigentlich keine Ahnung woran das liegt. ------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SteffenB Mitglied Geprüfter Konstrukteur (IHK) / Key-User
Beiträge: 268 Registriert: 10.08.2005 Intel Xeon 3,6Ghz 32GB RAM NVIDIA Quadro 2000 Windows 7 Pro / 64bit SWX 2015 SP2.1
|
erstellt am: 21. Jan. 2008 12:22 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
|
nahe Ehrenmitglied
Beiträge: 1756 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 21. Jan. 2008 12:52 <-- editieren / zitieren --> Unities abgeben:
nur als Hinweis Du kannst den Tabellentyp auch händisch in der INI-Datei eintragen nach "#TABTYPE" 1 = Maß - Passung - Toleranz - Abmaß 2 = Maß - Passung - Abmaß 3 = Maß - Passung - Toleranz
------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ziese-meier Mitglied Feinwerkmechanikermeister / Werkzeugbau
Beiträge: 113 Registriert: 24.10.2006 Solid Works 2019 SP 5.0 CAMWorks 2020 PC:HP xw8400 Workstation; Intel Xeon CPU E5345 2,33 GHz; 8 GB Ram; Grafik: NVIDIA Quadro FX 4600; Windows 10
|
erstellt am: 22. Jan. 2008 06:23 <-- editieren / zitieren --> Unities abgeben: Nur für nahe
Hallo, wäre es möglich jetzt mal ein aktuelles funktionierendes komplettes Macro zu bekommen? Bin mit den Macros nicht so vertraut... Würde mich sehr freuen wenn das klappen würde! Danke schon mal!!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |