Hi,
Du könntest ein Programm schreiben, welches das ADC anschmeißt, und dann zu den gewünschten Layouts springt. Dieses Pgm könnte im Vorfeld ja schon mal die DWT in eine DWG umbenennen (zu unsicher) oder aber ins Temp-Verzeichnis als DWG kopieren und hier raus die Layouts zeigen...
Ich hab' meinen Usern 'n Werkzeugkasten gebaut, mit dessen Hilfe sie über 4 Knöpfe an die (bei uns) wichtigsten Ressourcen kommen. Das ist bedeutend einfacher, als im ADC rumzunavigieren.
Hier 'n Auszug aus dem Pgm fürs ADC...
...
pgm-code
...
(if (= (getvar "adcstate") 0)
(command "adcenter")
) ;_ end of if
(cond
((= KEY 1)
(setq TARGET (strcat splitted "bloecke\\_layouts.dwg\\layouts"))
)
((= KEY 2) (setq TARGET (strcat splitted "bloecke\\")))
((= KEY 3)
(setq TARGET (strcat splitted "mass_stile\\bemstil.dwg\\bemstile"))
)
((= KEY 4) (setq TARGET best-dir))
(t (setq TARGET "c:\\"))
) ;_ end of cond
(command "_.adcnavigate" TARGET)
(princ "\nOk, erledigt. Weiter im DesignCenter.")
...
pgm-code
...
Da könnte man dann vorher etwas in der Art zum kopieren der DWT einbauen:
...
setq TEMP-NAME (vl-filename-mktemp "auskunft.dwg") ;_ erstellt 'n Namen für 'ne Temporädatei...
FIND-PATH (findfile "zvo.ini") ;_ da kommt der Anfangspfad für Prototyp-Ordner her...
) ;_ end of setq
(if FIND-PATH
(progn
(setq FIND-CHK (findfile (setq FIND-PATH
(strcat (vl-filename-directory FIND-PATH)
"\\Prototyp\\Auskunft.dwt"
) ;_ end of strcat
) ;_ end of setq
) ;_ end of findfile
) ;_ such dir die Auskunft.dwt...
(if FIND-CHK
(progn
(setq INS (vl-file-copy FIND-PATH TEMP-NAME)) ;_ Kopiere Auskunt.dwt zu Temp-Datei
) ;_ end of progn
) ;_ end of if
) ;_ end of progn
) ;_ end of if
...
Den Kram müßtest Du Dir dann nur 'n bischen auf Dein Umfeld umbauen. Wenn Du 'n bischen Lisp kannst ist das aber kein Prob.
Ciao,
Marc
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de (alle Foren)
| 
