---

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

---

..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

---

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

---

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

---

Hallo CADmium,

ist das gleiche Ergebnis!

Es muß doch irgendwie möglich sein dieses kleine Programm zum laufen zu bringen?

Werner

[Diese Nachricht wurde von Geistl am 18. Mrz. 2007 editiert.]

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

---

Evt. kann man die Routine erst von der Funktion S::Startup aufrufen
Siehe dazu hier diesen Beitrag http://ww3.cad.de/foren/ubb/Forum145/HTML/002013.shtml#000005
und auch die Hinweise von TOM beachten (um nicht evt. vorhandene Startup Funktionen versehentlich zu deaktivieren)

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

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

---

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

---

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

---

Danke für den Hinweis!
meine Fragen sind geklärt.

Nochmals vielen dank an alle die sich an diesem Thema beteiligt haben.

Werner Geistl 

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