---

Hallo,

ich habe eine wahrscheinlich ganz einfache Frage zum Programm Konvlay von CADwiesel. Da ich nur rudimentär Wissen der Lispprogramierung beherrsche und nicht noch mehr Zeit mit nachlesen/ ausprobieren verplempern will, nun auf diesem Weg.

Ich möchte immer die selbe csv Datei aufrufen. Es soll kein Fenster aufpoppen und nach dem Pfad fragen, sondern ich möchte den Pfad in der Lisp definieren.

Habe nun versucht das Programm dementsprechend zu ergänzen, leider ohne Erfolg.

Weiß jemand wie das realisierbar ist?
Wäre für jeden Tipp dankbar.

Grüße

Kai

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

---

Hallo Kai,

zeige einfach was Du probiert hast, dann kann jemand Deine Versuche zurecht rücken.

Gruß
Theodor

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

---

Konvlay.lsp

Hallo Theodor,

du bist ja flott.

Also ich habe die ganze Datei mal angehangen, aber im Grunde habe ich versucht in der
Dateiauwahl den Pfad bereits anzugeben (C:\ACADCFG\lisp\layerkonvertierungsliste.cnv).

;;;***************************** DATEIAUSWAHL **********************************
(defun CW_HOLDAT ()
  (if (/= (setq CW_DATNAM (getfiled "LAYER-KONVERSIONSLISTEN" "" "CNV" 8));(setq CW_DATNAM (C:\ACADCFG\lisp\layerkonvertierungsliste.cnv"))
        NIL
        ) ;_ end of =
    (Progn
      (load CW_DATNAM)
      (CW_NAMTAB)
      ) ;_ end of Progn
    (Princ "\nDie Liste konnte nicht gefunden werden! Abbruch!")
    ) ;if
  ) ;_ end of defun

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

---

(if (setq CW_DATNAM (findfile "C:\\ACADCFG\\lisp\\layerkonvertierungsliste.cnv"))
(Progn
  (load CW_DATNAM)
  (CW_NAMTAB)
  )
  (Princ "\nDie Liste konnte nicht gefunden werden! Abbruch!")
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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,

leider klappts nicht. Habe ich das richtig ergänzt?

;;;***************************** DATEIAUSWAHL **********************************
(defun CW_HOLDAT ()
  (if (setq CW_DATNAM (findfile "C:\\ACADCFG\\lisp\\layerkonvertierungsliste.cnv"))
(Progn
  (load CW_DATNAM)
  (CW_NAMTAB)
  )
  (Princ "\nDie Liste konnte nicht gefunden werden! Abbruch!")
)
-----------------------------------------------------------------
Als Fehlermeldung kommt:

Befehl: (load "C:/ACADCFG/LISP/konvlay.lsp")
Starten mit 'Konvlay'nil
Befehl: konvlay
; Fehler: no function definition: CW_NAMTAB

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

---

Hallo Kai,

hast Du diese Beiträge:
http://ww3.cad.de/cgi-bin/ubb/postings.cgi?action=replyn&forum=Rund+um+AutoCAD&number=54&topic=007746.cgi&TopicSubject=Layer+%FCber+Datei+erzeugen

schon durchgeschaut?

Gruß
Theodor

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

---

Konvlay-neu.LSP

in dieser Version fehlt eine Funktion.
Ich habe dir mal eine funktionsfähige Version angehängt.

Du musst in der Unterfunktion CW_HOLDAT
den Klammerausdruck:

Code:

---

(setq CW_DATNAM (getfiled "LAYER-KONVERSIONSLISTEN" "" "CNV" 8))

---

durch den dahinterstehenden

Code:

---

(setq CW_DATNAM (findfile "layerkonvertierungsliste.cnv"))

---

ersetzen.
dann wird immer die Gleiche Datei gesucht.
Aber die wird auch nur gefunden, wenn der Ablagepfad der Datei in einem Supportsuchpfad aufgenommen ist.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo,

@ Theo: Ja die Beiträge habe ich alle bereits gecheckt.
@ Cadwiesel: Danke für die Datei, aber es poppt immer noch das Auswahlfenster auf, obwohl der Supportpfad im ACAD angegeben ist.
Kann ich denn an der Stelle
(setq CW_DATNAM (findfile "layerkonvertierungsliste.cnv"))
nicht einfach den vollständigen Pfad angeben und fertig?
Gibts da nochn Trick?

Gruß
Kai

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

---

natürlich kannst du an der Stelle

Code:

---

(findfile "layerkonvertierungsliste.cnv")

---

auch einen gesamten Pfad angeben. Achte auf die Schreibweise:

Code:

---

(findfile "C:\\Temp\\layerkonvertierungsliste.cnv")

---

oder

Code:

---

(findfile "C:/Temp/layerkonvertierungsliste.cnv")

---

wenn allerdings die Datei nicht per findfile gefunden wird, auch bei der bisherigen Art, poppt kein Auswahldialog auf, der dich danach fragt. Stell Sicher das du auch die richtige Lisp Datei in dein Acad geladen hast und nicht die alte.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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