---

Hallo Lispler

Wer.lsp soll eine Routine sein , die die von DWG-Log (Expresstools 1-9 Befehl) erzeugte *.Dwh mittels des Nodpads aufruft.
(startapp "notepad.exe" "D:/Programme/CAD/Menue/menue.dwh") ist der Aufruf, nur kann man DWG-Log nicht
einstellen . Nun müsste der Pfad und *.dwh "dynamisch" erstellt werden. DWG-log legt die *.dwh immer
ins Arbeitsverzeichniss ( Variable Savename) ist dafür geeignet nun muss der String auf der letzten
Stelle das *g durch *h ersetz werden und in den Aufruf gesetz werden.
Krieg zwar die Abfrage hin, aber dann ist Schluß mit lustig.

Könnte mir das jemand lispeln  ???

mfg cw

(defun C:Wer(/  Pfad    Name  oeffne  savename  )

(setq Pfad (getvar "DWGPREFIX"
)
)

(setq Name (getvar "DWGNAME"
                  )
        )
(princ "\n")
(princ "\n")
(princ Pfad)
(princ "\n")
(princ "\n")
(princ Name)
(princ "\n")
(princ "\n")
(setq oeffne (getvar "Savename"
                    )
      )
(princ "\n")
(princ "\n")
(princ oeffne)
)

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

---

ganz einfach wäre eine Lösung, wenn Du dir den Dateinamen in eine ascii datei schreiben lässt, un dann den Inhalt der ascii datei dem Befehl open, oder startapp übergibst:
Bsp: ab in datei =>
(setq NAME (strcat (getvar "DWGPREFIX") (getvar "DWGNAME"))
      f (open "c:\\name.txt" "w")
      )
(write-line NAME f)
(close f)

(setq f (open "c:\\name.txt" "r"))
(setq NAME (read-line f))
(close f)
(startapp "notepad.exe" "" NAME)

Evtl vorhandene Ähnlichkeiten mit anderen Quellcode's sind rein Zufällig...Bla, bla ;-)

------------------
Gruß
CADwiesel

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

---

Hallo CADwiesel,

bist du des wahnsinns :-)) mit der Antwortgeschwindigkeit
bringst du meinen Rechner und mich in Schwierigkeiten- sind net
so schnell.

Danke, wird gleich getestet, aber wo wird *.g gegen *h
getauscht ?? Bick ich nicht

cw

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

---

Hallo cadwomen,

wenn es nur darum geht das g von *.dwg gegen ein h zu tauschen, dann nimm die folgenden Zeilen.

Code:

---

(setq NAME (strcat (getvar "DWGPREFIX") (getvar "DWGNAME"))
      NAMEH (strcat (substr NAME 1 (1- (strlen NAME))) "h")
      )

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
4 Neue Tool's im FreeDownload(gesamt 33)!?

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

---

Räusper....
Danke Holger ich werde dir was überweisen , blöd, blöd..

------------------
Gruß
CADwiesel

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

---

Danke an euch beide - mix man beides funks wunderbar.
Schreib das ganz noch zusammen mit *.bmp und dann
könnens alle kriegen.

CU cw

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

---

Zip an cadwiesel zum bereitstellen gesendet

CU cw

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