Hallo ihr alle
Ich habe ein Makro im Netz, das es einem Teil ermöglicht, die automatische Zeichnung mit allen Maßen zu erstellen.
Ich habe einige Änderungen vorgenommen (Vorlagenpfade, Anpassung einiger Funktionen, ...), aber ich habe irgendwo einen Wolf und kann den Fehler nicht finden.
Wenn mir jemand helfen kann, wäre das großartig :-).
PS: Wir haben nur die Standard-Lizenz, daher haben wir keinen Zugriff auf einige Tools. Daher die Idee von Makro ;-).
Vielen Dank im Voraus, einen schönen Tag noch.
Sébastien
Auto.swp Zeichnung (57 KB)
Was ist der Wolf?
Wenn nicht, ist es schwieriger zu sagen, wo es hängen bleibt, wenn man den Code ausführt.
Hast du es Schritt für Schritt gestartet, um es zu debuggen?
Für die Schritt-für-Schritt-Prüfung dann im Makroeditor f8 für fortgeschrittene Zeile für Zeile, bis es hängen bleibt oder Fehler auftreten.
Edit: Und auch Originalcode, um den Bug als Nächstes zu verstehen.
3 „Gefällt mir“
Nach einem kurzen Versuch funktioniert es super, wenn du deine Ansichten gut benennen kannst.
Statt *Front, versuche zum Beispiel mit *Face, wenn deine Vorlage eine französisch benannte Ansicht wie ich hat.
Set swViewFront = swDrawing.CreateDrawViewFromModelView3(partPath, "*Face", 0, 0, 0)

1 „Gefällt mir“
Das war's dann :-).
Andererseits habe ich das Makro fortgesetzt und es gibt einen Fehler beim Neupositionieren der Ansichten.
Idealerweise hättest du die projizierten Ansichten mit der Basisansicht ausgerichtet.

Ich hatte keine angezeigte Ansicht.
Und ja, ich habe es mit F8 versucht, mein Problem zu finden.