| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Profile (926 mal gelesen)
|
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3042 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 19. Sep. 2002 14:47 <-- editieren / zitieren --> Unities abgeben:
Hallo, Gibt es eine Möglichkeit Profil aktuell zu setzen ohne die Dialogbox ?? mit _optienen gehts nicht, auch Fille- und CMD- Dia schalten die Box nicht ab!! Ich möchte über einen Werkzeugkasten verschiedene Profile aktivieren- verschiedene User / Teams der Schalter /p hat auch keinen Wert, da ja sonst jedesmall das Programm neu gestartet werden muß MFG cadwomen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 19. Sep. 2002 15:31 <-- editieren / zitieren --> Unities abgeben: Nur für cadwomen
|
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3042 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 20. Sep. 2002 12:56 <-- editieren / zitieren --> Unities abgeben:
|
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3334 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 20. Sep. 2002 13:27 <-- editieren / zitieren --> Unities abgeben: Nur für cadwomen
|
GWS Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2406 Registriert: 23.07.2001
|
erstellt am: 20. Sep. 2002 13:30 <-- editieren / zitieren --> Unities abgeben: Nur für cadwomen
Hallo cadwomwen, mapcar hat Dir eine lisp-Funktion geschrieben, kein Programm. Aufgerufen wird die Funktion aus der Komandozeile so : (set-profile "Dein Profilname") Du kannst jetzt ein oder mehrere Programme daraus machen : (defun c:cadwomen ( / ) (set-profile "Profil 1")(princ)) ; der Befehl cadwomen ruft Profil 1 auf (defun c:cadmen ( / ) (set-profile "Profil 2")(princ)) ; der Befehl cadmen ruft Profil 2 auf und so weiter... Viele Grüße Günter
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3042 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 23. Sep. 2002 10:32 <-- editieren / zitieren --> Unities abgeben:
Danke für die Erkärung - hab´s dann über nen Werkzeugkasten geregelt und spar mir Die n Dateien für die lisp aufrufe. (Load "H:/CAD/Vorlagen/Menues/Profile-umschalten/Profilwahl.lsp")(set-profile "acad2000-profiltest")
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Holzwurm Wien Mitglied
Beiträge: 56 Registriert: 15.09.2002 System: AutoCad 2005 AMD Athlon 2600 XP 1 Gb Arbeitsspeicher 128 mb Grafikkarte
|
erstellt am: 24. Sep. 2002 11:37 <-- editieren / zitieren --> Unities abgeben: Nur für cadwomen
Habe diese Lisp Funktion verwendet funktioniert ganz toll jetzt habe ich eine Frage kann diese Lisp so erweitern das sie automatisch die geöffnet Zeichnung schließt und anschließend eine bestimmte Vorlagendatei öffnet ------------------ Schöne Grüße Holzwurm Wien Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
GWS Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2406 Registriert: 23.07.2001
|
erstellt am: 24. Sep. 2002 12:16 <-- editieren / zitieren --> Unities abgeben: Nur für cadwomen
Hallo Holzwurm ! Also, evtl. bin ich zu doof, aber ich glaube, Lisp Programme sind immer nur innerhalb einer Zeichnung aktiv. Ein Programm zu schreiben, das eine Zeichnung zu macht und eine andere neu auf, geht nur, wenn Acad im "Kompatibilitätsmodus für einzelne Zeichnungen" betrieben wird. D.h. nur eine Zeichnung kann gleichzeitig geladen und bearbeitet werden. Und dann kanst Du gleich den Standard Befehl Neu verwenden. Ansonsten hast Du mehr Chancen mit einen Script. Mir erschließt sich auch noch nicht ganz der Sinn des Anliegens. Ein solcher Befehl müßte die Frage umgehen, ob Änderungen gespeichert werden, oder nicht und das ist immer saugefährlich !
Viele Grüße Günter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Holzwurm Wien Mitglied
Beiträge: 56 Registriert: 15.09.2002 System: AutoCad 2005 AMD Athlon 2600 XP 1 Gb Arbeitsspeicher 128 mb Grafikkarte
|
erstellt am: 24. Sep. 2002 13:06 <-- editieren / zitieren --> Unities abgeben: Nur für cadwomen
Das ist schon korrekt aber ich mache es wie es von Cadwomen beschrieben wird und möchte halt das dann auch meine Vorlagenzeichnung geladen wird und das mit den Änderungen ist mir eigentlich nicht so wichtig. Der Grund warum ich das möchte ist folgender wir haben ein kleines Zusatzprogramm für Autocad es nennt sich omega und dient der Umwandlung von DWG zeichnungen in CNC Dateien für die Holzbearbeitung damit dieses Tool funktioniert wird Autocad über eine eigene Verknüpfung gestartet leider funktioniert bei dieser Verknüpfung der Schalter p nicht und somit wäre es ganz nett wenn ich das Problem über ein Symbol lösen könnte mit dem ich sowohl das Profil umschalten kann als auch die Vorlagenzeichnung ------------------ Schöne Grüße Holzwurm Wien Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
StephanJP Mitglied CAD-Admin
Beiträge: 834 Registriert: 09.11.2000
|
erstellt am: 24. Sep. 2002 14:11 <-- editieren / zitieren --> Unities abgeben: Nur für cadwomen
Hallo Holzwurm, es geht schon über ein Script. Erst stellst du im Lisp das Benutzerprofil um, öffnest eine Dummy-scr-Datei (z.B.(setq script-dat "c:\windows\omega.scr")), da schreibste dann die Befehle rein: filedia 0 _new omega.dwt filedia 1 oder so ähnlich (musst Du für Dich ausprobieren). Dann die Datei schliessen und das Script aus der Routine aufrufen: (command "_script" script-dat) Viel Erfolg ------------------ gruß stephan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3042 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 24. Sep. 2002 16:09 <-- editieren / zitieren --> Unities abgeben:
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3420 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 24. Sep. 2002 16:37 <-- editieren / zitieren --> Unities abgeben: Nur für cadwomen
Hi Hab das im Button ^C^C_Filedia;0;_script;c:/Pfad der *.SCR;^C^C_Filedia;1; und das in der Datei _Filedia 0 open D:/Pfad der *.DWG od DWT _Filedia 1
PS.: Alles was im Button steht wird nur in der Zeichnung wo es gedrückt wurde aktiviert. Blöderweise nur wenn sie Aktiv ist. Das Heist Das die Zeichnung (wenn man den CLOSE Befehl noch zum Button hinzufügt) erst geschlossen wird wenn man sie Aktiv setzt. Die Ander möglichkeit über denn "Kompatibilitätsmodus für einzelne Zeichnungen" über script zu deaktivieren. Funkt so das im Button ^C^C_sdi;1;^C^C_Filedia;0;_script;c:/Pfad der *.SCR;Y;^C^C_Filedia;1; und das in der Datei _Filedia 0 open D:/Pfad der *.DWG od DWT _Filedia 1 SDI 0 Das Einzige die Änderungen werden verworfen. Ausser man Baut sich ein "qsave" Befehl ein ------------------ mfG Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Holzwurm Wien Mitglied
Beiträge: 56 Registriert: 15.09.2002 System: AutoCad 2005 AMD Athlon 2600 XP 1 Gb Arbeitsspeicher 128 mb Grafikkarte
|
erstellt am: 24. Sep. 2002 22:18 <-- editieren / zitieren --> Unities abgeben: Nur für cadwomen
|
Holzwurm Wien Mitglied
Beiträge: 56 Registriert: 15.09.2002 System: AutoCad 2005 AMD Athlon 2600 XP 1 Gb Arbeitsspeicher 128 mb Grafikkarte
|
erstellt am: 24. Sep. 2002 22:24 <-- editieren / zitieren --> Unities abgeben: Nur für cadwomen
Soweit bin ich nun nach längeren probieren gekommen: Meine lisp Datei: (defun set-profile(profileName / profiles strNames) (vl-load-com) (setq profiles (vla-get-profiles (vla-get-preferences (vlax-get-acad-object) ) ) ) (vlax-invoke-method profiles 'getAllProfileNames 'strNames) (setq strNames(vlax-safearray->list strNames)) (if(member(strcase profileName)(mapcar'strcase strNames)) (vla-put-activeProfile profiles profileName) ) ) Meine scr Datei: _filedia 0 sdi 1 _new ja "c:/acad-menü/acad.dwt" filedia 1 sdi 0 Meine Button: (Load "c:/Acad-Menü/Profilwahl.lsp")(set-profile "omega")_filedia;0;_script;c:/acad-menü/omega.scr;_filedia;1; Funktioniert einwandfrei aber leider erscheinen die Buttons der Werkzeugkästen nach dem ausführen des Button erst wieder wenn man mit der Maus darüberfährt weiß wer Rat
------------------ Schöne Grüße Holzwurm Wien Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |