| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Lisp-Programm automatisch starten (1476 mal gelesen)
|
Geistl Ehrenmitglied MB-Techniker, Entwicklung & Konstruktion, Maschinenbau, Handling, Montage, Komplettlösungen
Beiträge: 1692 Registriert: 17.06.2001
|
erstellt am: 17. Mrz. 2007 08:59 <-- editieren / zitieren --> Unities abgeben:
Hallo Forum, habe seit langem mal wieder eine kleine Lisp-Routine geschrieben und möchte diese beim Aufruf von Mechanical2004 automatisch starten. In der "acad.lsp" habe ich deshalb folgende Eintrag vorgenommen: (load "E:\\Lisp_Programme\\Mysettings.lsp") (mysettngs) Das ganze wird auch beim Start ausgeführt jedoch erhalte ich dann die Fehlermeldung Befehl: *Abbruch* Wenn ich nun in der Befehlszeile: (mysettings) eingebe erhalte ich die Meldung: AutoCAD Menü-Dienstprogramme geladen. AutoCAD Menü-Dienstprogramme geladen. und danach funktioniert die Routine ohne Probleme. Wenn ich das Programm ganz normal lade geht sie auch ohne Fehlermeldung. Kann das Problem daran liegen daß ich in diesem Programm eine Eingabe "Bitte Kunde auswählen" eingebaut habe? Kann mir jemand sagen was das Problem ist? Werner Geistl Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 17. Mrz. 2007 09:54 <-- editieren / zitieren --> Unities abgeben: Nur für Geistl
..ohne den Quelltext zu kennen, kann man schlecht was sagen! Die Meldung "Abbruch" deutet aber darauf hin, das wohl irgentein command aufgerufen wurde und mit " " oder so gefüttert wurde. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geistl Ehrenmitglied MB-Techniker, Entwicklung & Konstruktion, Maschinenbau, Handling, Montage, Komplettlösungen
Beiträge: 1692 Registriert: 17.06.2001
|
erstellt am: 17. Mrz. 2007 10:37 <-- editieren / zitieren --> Unities abgeben:
das ist mein laienhaft auf die schnelle gebautes Programm! (defun mysettigs ( / eingabe) ; Alten Pfad ausgeben ; (gencfgget "gen@Paths@DWGTITLE") ; (gencfgget "gen@Paths@DWGPATH") ; Neuen Pfad setzen (terpri) (terpri) (terpri) (terpri) (terpri) (terpri) (terpri) (terpri) (princ "Bitte Kunden auswählen:\n") (princ "---------------------------- \n") (princ "Kunde1:----1 \n") (princ "Kunde2:--------2 \n") (princ "Kunde3:------3 \n") (textscr) (textscr) (terpri) (setq eingabe (getstring T "Kunde ? "))
(if (= eingabe "1") (progn (terpri) (terpri) (gencfgset "gen@Paths@DWGTITLE" (strcat "E:\\DWG_Title\\Kunde1")) (gencfgset "gen@Paths@DWGPATH" (strcat "E:\\DWG_Title\\Kunde1")) ); Ende progn );Ende if
(if (= eingabe "2") (progn (terpri) (terpri) (gencfgset "gen@Paths@DWGTITLE" (strcat "E:\\DWG_Title\\Kunde2")) (gencfgset "gen@Paths@DWGPATH" (strcat "E:\\DWG_Title\\Kunde2")) ); Ende progn );Ende if
(if (= eingabe "3") (progn (terpri) (terpri) (gencfgset "gen@Paths@DWGTITLE" (strcat "E:\\DWG_Title\\Kunde3")) (gencfgset "gen@Paths@DWGPATH" (strcat "E:\\DWG_Title\\Kunde3")) ); Ende progn );Ende if
(princ) ) Hilft das weiter?
[Diese Nachricht wurde von Geistl am 17. Mrz. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 17. Mrz. 2007 11:52 <-- editieren / zitieren --> Unities abgeben: Nur für Geistl
ne, aber probiers mal mit (defun mysettigs ( / KUNDE) (initget "1 2 3") (or(setq KUNDE(getkword "\nBitte Kunden auswählen: [1/2/3] <1>:")) (setq KUNDE "1") ) (and(gencfgset "gen@Paths@DWGTITLE" (strcat "E:\\DWG_Title\\Kunde" KUNDE)) (gencfgset "gen@Paths@DWGPATH" (strcat "E:\\DWG_Title\\Kunde" KUNDE)) ) ) ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geistl Ehrenmitglied MB-Techniker, Entwicklung & Konstruktion, Maschinenbau, Handling, Montage, Komplettlösungen
Beiträge: 1692 Registriert: 17.06.2001
|
erstellt am: 17. Mrz. 2007 12:30 <-- editieren / zitieren --> Unities abgeben:
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 17. Mrz. 2007 12:53 <-- editieren / zitieren --> Unities abgeben: Nur für Geistl
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 18. Mrz. 2007 09:05 <-- editieren / zitieren --> Unities abgeben: Nur für Geistl
ach so .. starte das mal nicht in der acad.lsp, sondern in der acaddoc.lsp andererseits, warum packst du nicht alle Schriftfelder in ein Verzeichnis? Beim Schriftfeldeinfügen hast du dann ja im Einfügedialog ne Droplist zum Schriftfeld auswählen?! ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geistl Ehrenmitglied MB-Techniker, Entwicklung & Konstruktion, Maschinenbau, Handling, Montage, Komplettlösungen
Beiträge: 1692 Registriert: 17.06.2001
|
erstellt am: 18. Mrz. 2007 10:08 <-- editieren / zitieren --> Unities abgeben:
Hallo alle zusammen, ich habs so gelöst, daß beim Start eine Meldung kommt wie der Befehl heist und durch Eingabe dieses Befehls wird das Programm gestartet. Da wir bei uns in der Firma teilweise auch noch Kunden bedienen die mit Genius14 arbeiten stellt sich die Frage ob es da auch eine Acad.lsp gibt bzw. wenn es sie nicht gibt ob man diese erstellen kann und wo diese plaziert werden muß? Werner [Diese Nachricht wurde von Geistl am 18. Mrz. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 18. Mrz. 2007 10:14 <-- editieren / zitieren --> Unities abgeben: Nur für Geistl
Zitat: Original erstellt von Geistl:
Da wir bei uns in der Firma teilweise auch noch Kunden bedienen die mit Genius14 arbeiten stellt sich die Frage ob es da auch eine Acad.lsp gibt bzw. wenn es sie nicht gibt ob man diese erstekllen kann und wo diese plaziert werden muß?Werner
Zu diesem Thema lies bitte den FAQ-Beitrag
------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geistl Ehrenmitglied MB-Techniker, Entwicklung & Konstruktion, Maschinenbau, Handling, Montage, Komplettlösungen
Beiträge: 1692 Registriert: 17.06.2001
|
erstellt am: 18. Mrz. 2007 10:26 <-- editieren / zitieren --> Unities abgeben:
|