---

Hallo Leute,

da ich jetzt bald beim verzweifeln bin, muss ich einfach mal fragen.

Da AutoCAD 2005 nur 50 Plotstile unterstützt, programmiere ich gerade ein Programm der den Pfad der Plotstile, je nach Projekt ändert. Das Programm ist eigentlich fertig und lass es grad von unseren Usern testen.

Ich wechsle den Plotstil Pfad mit der VBA Funktion: ThisDrawing.Application.Preferences.Files.PrinterStyleSheetPath = "Projekt Plotstilpfad". Wenn ich unter Optionen nachsehe dann stimmt die Einstellung auch.

Jetzt kommt das Problem:

Wenn ich jetzt auf Plotten gehen, dann sehe ich genau die Plotstile von meinem Projekt... also würde das ja noch gut aussehen... nur wenn ich dann auf voransicht oder plotten gehe dann kommt es mit der falschen einstellungen raus.

Hab jetzt schon ewig herum probiert und bin drauf gekommen, dass das problem entsteht wenn beim AutoCAD start der Projekt Plotstil Ordner nicht definiert ist. Jetzt zeigt das Plotfenster mir zwar meine Projektstile an, findet dies jedoch nicht mehr wenn es dann wirklich ums plotten geht.

Damit ich jetzt noch einen drauf setze!!! gehe ich jetzt auf optionen und verlasse diese ohne eine änderung zu machen mit Ok... dann geht es

---------------------

also da versteht man langsam, dass ich beim verzweifeln bin. ich sitze vor einem fertigen programm und jetzt scheitert es an so einer kommischen autocad funktion...

.....................

ich hoffe es kann mir jemand helfen

------------------
Michael Mair

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Michael,

das Problem kenne ich:
Ich habe es wie folgt gelöst:
Der Pfad verweist auf das Verzeichnis, in dem alle CTB's enthalten sind.
Beim Start wird der Pfad (so wie du es auch gemacht hast) auf des Verzeichnis verbogen, indem nur ein paar oder besser noch gar keine CTB's vorhanden sind.
Jetzt läuft acad schnell, die negativen Auswirkungen sind behoben.

Nun habe ich 3 Reactoren am laufen:
Command-Start (Plott): der biegt den Pfad auf das richtige Verzeichnis
Command-End (Plott): der biegt den Pfad wieder auf den falschen Pfad, damit AutoCAD ordentlich läuft

AutoCAD-beenden: hier wird der Pfad wieder auf den richtigen umgebogen.

Dieses Konstrukt (was besseres ist mir nicht eingefallen) ist notwendig, da AutoCAD anscheinend die Änderungen am Pfad beimn Plotten nicht umsetzt. Es wird immer der am Start von AutoCAD gesetzte Pfad genommen.
Durch diese Reaktoren-Geschichte wird sicher gestellt, dass beim verlassen von Acad immer der richtige Pfad gesetzt ist.

Kompliziert, aber es funktioniert.

Bei Fragen ...

Grüße Holger
PS: Ich habe das allerdings in LISP gemacht.

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hy holger,

danke für deine Hilfe! bin auf diese lösung schon gekommen, findes es nur voll super, weil ich habe erfahren das, dass problem schon im autocad 2004 aufgetretten ist... naja, kann man nix machen bin nur etwas genervt... weil ich die letzten 1 1/2 tage nur an diesem problem gearbeitet...

von der Theorie her, wollte ich natürlich die plotstile im Projekt leigen habe, weil ich ja die plotstile mit archivieren muss... ich habe jetzt aber einen Hauptordner erstellt, und die jeweiligen projekte haben einen unterordner... funktioniert ja mal recht gut...

ein problem entsteht dadurch natürlich, wenn jetzt eine benutzer in die optionen geht und diese mit ok bestätigt dann stellt er den pfad auf das projekt ein und das problem fängt von anfang an...

aber jetzt definiere ich einfach vor den aufrufen der optionen den hauptordner:

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
   
    If UCase(CommandName) = "OPTIONS" Then
        Dim objPreferences As AcadPreferences
        Set objPreferences = AcadApplication.Preferences
                               
        objPreferences.Files.PrinterStyleSheetPath = "Standardpfad für alle Plotstile"
    End If
End Sub

und stetze in beim ende der optionen wieder auf den projektepfad zurück:

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
    If UCase(CommandName) = "OPTIONS" Then
        Dim objPreferences As AcadPreferences
        Set objPreferences = AcadApplication.Preferences
                               
        objPreferences.Files.PrinterStyleSheetPath = "Projektunterordner für Plotstile"
    End If
End Sub

-----------------------------

irre kompliziert, aber so funktioniert es wenigstens...

ich habe sonst noch so funktionen gesehen, die einfach die optionen öffnen und auch gleich wieder bestätigen... aber lasst es lieber mit dem befehle "sendkeys" ... habe heute schon bei die 20x mein autocad abgschossen

-----------------------------

so wie ich das verstanden haben, sollte diese problematik aber im autocad 2006 behoben sein *freu*... hab es aber nit getestet

_____________________________

Danke Holger für deine Hilfe

------------------
Michael Mair

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP