วีดีโอ

Ich habe den Fehler in meinem Code gefunden und werde nächste Woche im Stream diesen auch zeigen und beheben. Wer nicht so lange warten möchte, kann den bereinigten Code schon jetzt auf meiner Webseite nachschlagen.

Super Video.

Irgendwie ist mein Kommentar verschwunden... Super Video. Leider ist der Chatverlauf auch nicht mehr da.

Ja VBA ist schlimm. Da gibt es praktisch nichts. Das Userform kann keine Tasten empfangen. Das kann nur ein Button. Also immer Fokus auf den Button. Timer gibt es auch nicht. Muss man selbst aus der User32.dll laden. Dann stürzt VBA und SW ab, wenn ein Fehler ist, oder SW wird mit Nachrichten zugebombt. Der Timer geht nicht im Userform. Aber von außen kann man keine Sub oder Funktion von der Userform aufrufen. Man braucht wieder ein was, was die Daten versteckt rübergibt. Ja VBA ... Wir nehmen den Dateinahmen zum markieren. Und ich arbeite gerne mit Konstanten. Zum Beispiel das "-b" als Kostante. Ist zwar mehr Schreibarbeit, aber wenn zB das B zu einem A werden soll, ändert man nur die Kosntante und wenn man sich vertippt passt VBA auf. Sucht man nach "-b" und hat sich vertan merkt es der Kompiler nicht. Ich wandle auch gleich das Komma in einen Punkt um.

Das mit den Fehlern finden ist echt so ne Sache… vielleicht hast du da noch mehr Tipps für die Fehlersuche. Freu mich schon auf nächste Woche.

Noch ein kleiner Nachtrag: Deine Hilfe zu unserem Problem hatte mir damals wirklich sehr geholfen. Zur Erklärung: Wenn man eine Oberfläche graviert, wird die ursprüngliche Fläche in lauter kleine Flächen zerteilt. Da die Oberfläche (Farbe oder Erscheinungsbild) wieder herzustellen ist sehr aufwändig. Noch dazu kann es sein, das man bei einer Datei "alle Erscheinungsbilder" entfernen muss. Dann hätte man die Arbeit wieder vor sich... Da macht dann so ein Makro richtig Spaß. @Bernd: Schön zu sehen, dass ich nicht der einzige bin der zwischen der On- und Offline-Hilfe hin und herspringt. Deine Art der Suche versuche ich auch immer wieder zu kopieren.

Ich hätte einen Tipp. Den Faktor, mit dem man runden möchte, würde ich als Const ind den Code schreiben. In dem Beispiel stand 6x Round drin. Wenn man den Wert ändern möchte, muss man 6x ran. Eine Konstante und dann überall eintragen. Da kann man dann auch schneller was ändern. Überhaupt setzte ich überall Konstanten ein, wo man vielleicht irgendwann was anpassen müsste. Die stehen dann oben im Code und man muss nicht danach suchen. Ansonsten sind die Probleme sicher jeden bekannt, der mit Fließkommazahlen arbeitet. Niemals Fließkommazahlen direkt miteinander vergleichen, sondern immer mit einer Ungenauigkeit rechnen.

Wieder super erklärt, danke.

Wie immer, top erklärt

Sehr gut erklärt. Danke

Glückwunsch! Ausgezeichnete Klasse.

Mal wieder richtig gut erklärt. Besonders gefällt mir, dass es in deinen Videos nicht nur um die einzelnen Methoden geht, sondern auch immer wieder um den möglichen gesamten Aufbau von Makros. Ich finde auch hier wieder: Nach deiner Vorstellung im Video davor denkt man sich, OK das wird jetzt eine ganze Ecke schwerer als bisher. Am Ende diesem Videos erkennt man: Bis auf ein paar Befehle müsste ich es ja eigentlich schon können (wenn die Videos davor gesehen wurden). Fazit für mich: Auch wenn ich wahrscheinlich nie das vorgestellte Makro 1:1 brauchen werden, stecken hier im Video mal wieder zig Stellen, an die ich mich in Zukunft bei ähnlichen Problemen erinnern werde und jetzt weiß wo ich nachsehen kann.

Wie immer mit nützlichen Nebeninformationen zum Hauptthema, vielen Dank

Servus Wieder eine Frage. Ich experimentiere mit der Funktion "ImportDiagnosisMethod" Ich bin aber im ModelDoc2. Das IPartDoc konnte ich nicht aufrufen. Es funktioniert. Aber auch defekte Teile bekommen als Rückgabewert 1. Ich habe noch nie -1 bekommen. Mein Ziel, ich habe mehrere importiere Teile auf. Automatisiert will ich diese Teile in verschiedene Verzeichnisse verschieben und so eine Vorauswahl treffen. Aber angeblich ist alles sauber und nichts defekt. Was läuft schief? Wie ruft man IPartDoc auf?

Eine Frage. Was ist das für eine API Hife? Meine sieht anders aus und ich komme mit dieser nicht so richtig klar.

Zu 22:45: "End" ist ein wichtiges Schlüsselwort. Und man kann es in dieser Situation auch benutzen. "End" setzt das Makro komplett zurück. Das ist besonders interssant wenn man mit statischen oder globalen Variablen arbeitet. Hier mal ein Code zum Test: Option Explicit Dim iAussen As Integer Sub main() Static iStatisch As Integer Dim iInnen As Integer MsgBox "Beginn Statisch innen: " & iStatisch & vbCr & "Dim innen: " & iInnen & vbCr & "Außen: " & iAussen iStatisch = iStatisch + 1 iAussen = iAussen + 1 iInnen = iInnen + 1 MsgBox "Ende Statisch innen: " & iStatisch & vbCr & "Dim innen: " & iInnen & vbCr & "Außen: " & iAussen 'End End Sub Jetzt ist das "End" abgeschaltet. Das Makro einfach mal mehrfach starten und beobachten. Dann das Hochkomma entfernen und nochmal probieren. Ich komme aus dem C/C++ Sektor. Das die Variablen erhalten bleiben war mir neu. So setzte ich mehrere statische Booleans um zu verhindern, dass ein Code nur einmal bearbeitet wird. Nur die Variablen blieben. Ein "End" an jedem geplanten Ausstieg und das Makro startet wieder jungfräulig.

1:10 Es hat einen Grund warum das Objekt SolidWorks vor der Hauotroutine steht. Steht diese vor dem Sub Main ist diese Global, also im ganzen Projekt gültig. Jetzt ist die Variable nur im Haupt Sub gültig, von außen nicht zugreifbar. Aber die Einstellungen sind gut. Schon die automatische Synatxprüfunghat genervt. Das andere Häckchen ist wirklich Option explicit. Man muss unbedingt Variablen deklarieren. Ich habe einenFehler und den bekomme ich nicht weg. Ich kann diesen nicht mal abfangen. Laufzeitfehler 35010. Ich lade API Funktionen aus der User32.dll. Und da kann es zum Fehler kommen.

Hallo, ich hätte da auch eine Frage. Ich würde gerne von einer externen Anwendung, die ich selbst geschrieben habe, etwas per Drag & Drop auf einer Zeichnung in SolidWorks einfügen. Das kann ein Text (als Note) oder ein Symbol (als SketchBlock) sein. Ich habe bislang keine Möglichkeit gefunden, wie ich das bewerkstelligen könnte. Ideal wäre es wenn der Text oder das Symbol an der Stelle in der Zeichnung eingefügt wird, wo der Benutzer das einfügen beendet. So könnte der Benutzer das Element an der von ihm gewünschten Stelle platzieren.

Hey vielen Dank für die Videos! Ich hätte eine Frage zu Baugruppen: Gibt es eine Möglichkeit ein vorhandenes Teil in eine Baugruppe zu laden und dies mit einer Transformationsmatrix zu positionieren?

Dankeschön!

Eigentlich ist die Lösung total logisch, man muss nur drauf kommen. Und sie lässt sich schön auf andere Bereiche übertragen.

Dieses Video bring einem gleich wieder auf neue Ideen und für mich viele zusätzliche Informationen über die Arbeitsweise von SWX. Vielen Dank

Guten Abend, ich schaue momentan ihre VBA Serie,bin aber noch nicht durch mit allen Videos. Ich würde gerne aus einer Zeichnung das Teil oder die Baugruppe öffnen lassen per VBA. Wurde das in irgendwelchem Video bereits gezeigt, Wie ich das Dokument einer Zeichnung ansprechen kann. Teil und Zeichnung haben nicht immer denselben Namen oder anders gefeagt: mit welchem Befehl lässt sich dies bewerkstelligen? Google Suche sowie API Hilfe haben nichts gebracht, da ich wahrscheinlich nach den falschen Stichworten suche.

Ein super Nachschlagewerk. Die Methode, wie sich an die Lösung herangearbeitet wird, gehört inzwischen zu meiner Standardmethode.

Dieses Video muss einfach sein um einen Einstieg zu bekommen. Meine Erfahrung: Man kuckt sich ein paar Videos an, aber wenn man dann selber loslegt, kommt man wieder zum 1. Video um ein paar Zusammenhänge zu verstehen. Auch die Hilfe ist gut erklärt. Lässt sich auch auf andere Programme, die mit VBA arbeiten übertragen.

Es gibt in der Werkzeugsammlung schon mal eine Reihe an Steuerelementen zum Basteln einer Form. Ich möchte gerne eine Feld für Datum einbauen und möglichst mit einer Kalender-Funktion. Es ist aber leider erstaunlich schwer zu lösen, was eigentlich eine Standard-Funktion sein sollte. Wissen Sie wie man ein Kalender in Werkzeugsammlung einbaut (sowas wie DateTimePicker)?

R3vo kann ich nur zustimmen. Wieder super erklärt. Danke, mach weiter so.

Super verständlich erklärt. Bin schon gespannt auf das nächste Projekt.

Sehr strukturiert und gut erklärt!

Sehr gut erklärt. Vielen Dank! ;)

Vielen Dank!

gut

Vielen Dank für deine Arbeit.

Wieder ein gutes Video. Die cbx_dxf_save_unfold_Change sub hätte man etwas vereinfachen können: cbx_dxf_bendlines.enabled = cbx_dxf_save_unfold.value

Hallo Herr Hornemann, ich habe mir mit dem Makrorekorder ein Textfeld mit dem Maßstab der angeklickten Zeichnungsansicht erstellt. Der Rekorder gibt die Mausposition zurück, die man gerade angeklickt hat. Das läßt sich aber natürlich nicht wirklich sinnvoll nutzen, da man die gewählte Zeichnungsansicht ja nicht immer auf dem selben Blattformat hat und auch nicht immer an der selben Position. Ich habe nun versucht, Ihre Vorgehensweise mit der VBA - Hilfe, bzw. API - Hilfe, nachzuahmen, habe aber leider keinen Erfolg damit gehabt. Ich habe also nach Mouse und Position gesucht, etc. aber leider keine Lösung gefunden, die aufzeigt, wo sich die Maus beim klicken gerade befindet. Mit dieser Information könnte ich das Textfeld dann natürlich an die Stelle setzen lassen, auf die der Nutzer klickt. Aktuell habe ich mir so beholfen, daß ich die Position auf 0, 0, 0 gesetzt habe, so daß das Textfeld immer auf dem Blattursprung liegt. Leider muß man sich das Textfeld dann immer auf die gewünschte Position ziehen... So sieht mein aufgeräumter Code aus: Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Sub main() Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Dim myNote As Object Dim myAnnotation As Object Dim myTextFormat As Object Set myNote = Part.InsertNote("M $PRPSMODEL:""SW-Ansichtsmaßstab(View Scale)"" $COMP:""""") If Not myNote Is Nothing Then myNote.LockPosition = True myNote.Angle = 0 boolstatus = myNote.SetBalloon(0, 0) Set myAnnotation = myNote.GetAnnotation() If Not myAnnotation Is Nothing Then longstatus = myAnnotation.SetLeader3(swLeaderStyle_e.swNO_LEADER, 0, True, False, False, False) boolstatus = myAnnotation.SetPosition(0, 0, 0) boolstatus = myAnnotation.SetTextFormat(0, True, myTextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw End Sub

Super, super, mittlerweile bin ich süchtig.

Servus Bernd, was mir besonders gut an Deinen Videos gefällt, ist, daß Du immer wieder auf die API - Hilfe und VBA - Hilfe eingehst. Damit tue ich mich momentan noch ein wenig schwer aber der Nebel lichtet sich etwas von Video zu Video. Wieder mal top und weiter gehts mit der Folge 5...., Gruß, Thomas

4 Jahre im Netz und ich habe die Videoreihe erst vor einer Woche entdeckt... Super, super, super. Ein kleiner Hinweis von mir. Um zu sehen, was im Programm wann passiert, schaltet das Lokalfenster über den Menüpunkt Ansicht zu und führt das Programm anschließend schrittweise aus. Das kann man mit der F8 - Taste machen. BESTEN Dank an Dich Bernd. Wenn Du einmal in den Raum Rosenheim kommen solltest, dann melde Dich. Ich spendiere Dir eine Bergwanderung mit Einkehr!

Top. Vielen Dank für die Mühe. Ich freue mich schon auf den Rest. Sehr gut erklärt!!

Wieder ein sehr gut erklärtes Video. Hat Spaß gemacht zuzuschauen. Weiter so!

Danke für das Video, leider funktioniert das 2. in der Reihe derzeit nicht bei TH-cam. Ich versuche derzeit mich etwas in die SW Api einzuarbeiten um ein paar kleine, einfache Makros zu schreiben und ehrlichgesagt hab ich mich nicht mehr raus gesehen wo ich anfangen soll. Super Erklärung auch für Leute ohne große Erfahrung mit VBA (wie ich). Hoffe es kommen noch Beispiele eines "Save As" Makro da ich hier gerade hänge =) Edit: Du erklärst recht schön wie das mit Intellisense funktioniert, habe ich direkt ausgetestet und im ersten Moment funktionierte das auch ganz gut. Nach einem Neustart von SW funktioniert es jetzt jedoch nur noch teilweise ich habe "Set swModel = swApp.ActiveDoc" definiert und bisher hat er mir bei "swModel." auch Vorschläge gebracht, das funktioniert nun komischerweise nicht mehr. "swApp." funktioniert noch

Alternativ zu Option compare wäres es noch möglich den eingegeben nen Wert in Groß/kleinbuchstaben zu konvertieren eg. UCase(string). Mit Abstand die besten Videos zu SWX und VBA!

Super, wie bei Sendung mit der Maus. Freue mich schon die restlichen Videos zu schauen =)

Das Video hat mir sehr gut gefallen, vielen Dank! So langsam wird es richtig interressant :)

Wieder einmal ein sehr anschauliches Video. Danke dafür. Besteht die Möglichkeit einmal zu zeigen wie man das mit einer Schleife auf einen Ordner mit Unterordner machen kann?

Vielen Dank, das sieht wirklich nicht kompliziert aus. Ich hatte bei meinen macros noch den Dateinamen ergänzt mit Datum / Uhrzeit (Zeit Variable aus Windows) , weil bei erneutem Speichern die schon vorhandenen Dateien kommentarlos überschrieben wurden, und somit verloren gingen.

Vielen Dank! Sobald ich aus dem Urlaub zurück komme werde das Macro ausprobieren. Schöne Grüße aus Dänemark!

Hallo Herr Hornemann, danke für das informative Video. In Solid kann man ja Zeichnungen direkt als PDF abspeichern. Dabei öffnet sich ein Fenster zur Auswahl der Blätter. solch eine Funktionalität (Fenster in Teil bzw. BG) wäre auch interessant als Makro für verschiede Ansichten.

Danke dir! Schöne dass du wieder weiter machst!

gut