| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: DWGLog zusatz Lisp (258 mal gelesen)
|
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 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. Jun. 2003 14:00 <-- editieren / zitieren --> Unities abgeben:
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 |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 23. Jun. 2003 14:10 <-- editieren / zitieren --> Unities abgeben: Nur für cadwomen
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 |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 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. Jun. 2003 14:17 <-- editieren / zitieren --> Unities abgeben:
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 |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 23. Jun. 2003 14:19 <-- editieren / zitieren --> Unities abgeben: Nur für cadwomen
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 |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 23. Jun. 2003 14:26 <-- editieren / zitieren --> Unities abgeben: Nur für cadwomen
|
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 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. Jun. 2003 21:43 <-- editieren / zitieren --> Unities abgeben:
|
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 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: 25. Jun. 2003 15:08 <-- editieren / zitieren --> Unities abgeben:
|