|
Rund um Autocad : Texthöhe extrahieren
Brischke am 13.10.2003 um 13:40 Uhr (0)
... von mir aus auch das Code: (defun c:txtkoo ( / as file trenn) (setq trenn ";";tab= as (ssget ((-4 . " and") (8 . "HÖHE,HOEHE") (0 . "TEXT") (-4 . "and ") ) ) as (if as (bau_elemli as)) ) (if as (setq file (open "c:pktliste.txt" "w"))) (mapcar (lambda (E / z tmp) (mapcar (lambda (K) (if (not z) (setq z T) ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Daten in eine ASCII - Datei speichern
JosefG am 02.09.2003 um 22:25 Uhr (0)
Hallo alle zusammen. Ich möchte aus einem Lageplan Stationen und Geländehöhen anklicken und diese Daten (Texte) in eine ASCII-Datei (z.B. Punktliste.txt) speichern. z.B.: (Station) (Geländehöhe) 0+000,00 12.50 0+050,50 12.90 0+150,85 13.50 usw. Diese "Punktliste.txt" Datei brauche ich zum Einlesen der Daten in einen Längsschnitt. Wer kann mir helfen durch Tipps oder evt. Lisp-Programme? Danke für Eure Hilfe. Josef
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Daten in eine ASCII - Datei speichern
Brischke am 02.09.2003 um 23:30 Uhr (0)
Hallo Josef, so vielleicht? Code: (defun c:kpitd ( / f txt1 txt2 antw) (setq f (open (strcat (getvar "DWGPREFIX")"punktliste.txt") "w")) (while (or (not antw)(= antw "J")) (princ "
Stationstext wählen:") (setq txt1 (entsel) txt1 (if txt1 (cdr(assoc 1(entget(car txt1)))))) (if txt1 (progn (princ "
zugehörige Geländehöhe wählen:") (setq txt2 (entsel) txt2 (if txt2 (cdr(assoc 1(entget(car txt2)))))) ) (princ "
!!!Keinen Stationstext gewählt!!!") ) (if (and ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Daten in eine ASCII - Datei speichern
JosefG am 04.09.2003 um 22:00 Uhr (0)
Hallo Holger Vielen DANK für Dein Lisp-Programm. Habe es heute getestet. Ein kleines Problem taucht aber noch auf. Wenn ich es in einer Zeichnung das erste Mal starte, ist es in Ordnung. Beim zweiten Mal in der gleichen Zeichnung ist keine Reaktion da. Der Befehl läßt sich nicht ausführen! Was mache ich falsch? Gestartet habe ich das Programm mit einem Icon: ^C^C(load"Textli") kpitd ! DANKE für Deine Hilfe. Josef
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Daten in eine ASCII - Datei speichern
Brischke am 04.09.2003 um 23:13 Uhr (0)
Hallo Josef, ich habe den Code oben korrigiert. Das liegt daran, dass die eine Variable antw nicht lokal deklariert ist. Jetzte sollte es dann funktionieren, auch beim 2ten, 3ten .. Starten. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Ich bin vom 07.-10.10. auf dem Anwendertreffen anzutreffen.
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Daten in eine ASCII - Datei speichern
Brischke am 10.09.2003 um 08:50 Uhr (0)
Hallo Josef, ich habe es wiederum im Code des Ursprungsbeitrages aktualisiert. Was meinst du allerdings mit frei einfügbar? Meinst du einen Dateinamen wählen zu können. dann kann man diese Zeile (setq f (open (strcat (getvar "DWGPREFIX")"punktliste.txt") "w")) auch tauschen gegen (setq f (open (getfiled "Punktlistendatei" (getvar "DWGPREFIX") "txt" 1) "w")) Meinst du aber, Daten an diese Datei anzuhängen dann mach in der Zeile: (setq f (open (strcat (getvar "DWGPREFIX")"punktliste.txt") "w")) aus dem "w" e ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Daten in eine ASCII - Datei speichern
Brischke am 11.09.2003 um 10:48 Uhr (0)
Hallo Josef, ja klar kann man das, anbei der diesbzgl geänderte Code: Code: (defun c:kpitd ( / f txt1 txt2 antw txt1e txt2e) (setq f (open (strcat (getvar "DWGPREFIX")"punktliste.txt") "w")) (while (or (not antw)(= antw "J")) (princ "
Stationstext wählen:") (setq txt1 (entsel) txt1 (if txt1 (cdr(assoc 1(entget(setq txt1e(car txt1))))))) (if txt1 (progn (princ "
zugehörige Geländehöhe wählen:") (setq txt2 (entsel) txt2 (if txt2 (cdr(assoc 1(entget(setq txt2e(car txt2)))) ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Daten in eine ASCII - Datei speichern
JosefG am 13.10.2003 um 06:58 Uhr (0)
Guten Morgen Holger! Eine kleine Nachlese zum Programm habe ich noch. Das Lisp-Programm "läuft" hervorragend. Aber was ist, wenn ich mich verwählt habe, z.B. statt Stationstext - Geländehöhe angeklickt habe! Kann ich dies ändern? Ich weiß zwar nicht wie viele Texte du auf diese Art exportieren möchtest, deshalb wäre es unter Umständen sinnvoll einen Weg zu suchen, der alle in einem Rutsch exportiert, aber das kannst du wohl besser einschätzen. Bei Interesse an einer solchen Lösung kannst Du Dich ja bei mi ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Daten in eine ASCII - Datei speichern
Brischke am 13.10.2003 um 10:05 Uhr (0)
Hallo Josef, dann stelle mal eine Bsp-Zeichnung rein, damit ich mir die Unterscheidungsmerkmale der Texte, welcher was darstellt, heraussuchen kann. Dann ist auch das alles machbar. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- Projektschulung NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural D ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Automatische Koordinatenausgabe
Noivet am 21.09.2007 um 10:32 Uhr (0)
Hallo,wie muß ich das Lisp änden um die Texte untereinander geschrieben zu bekommen? Also in der ersten Zeile die x-Koordinate und in der zweiten Zeile die y-Koordinate?Grüße Noivet
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : doppelclicck-aktion
Brischke am 14.10.2003 um 12:18 Uhr (0)
Hallo, therotisch könnte das möglich sein, schau dazu einfach mal bei den Reacroren in der VLisp-Hilfe. Ausprobiert habe ich es selber allerdings noch nicht. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- Projektschulung NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : doppelclicck-aktion
Karsten.G am 14.10.2003 um 13:15 Uhr (0)
Ahh, ja. Da hängts also. Ich hab nur 2000. Gibts da eine Lisp oder so, dass das bei 2000 auch funzt ??? ------------------ Gruß Karsten ------------------ Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ??? Schluss damit !!! In einem schönen Buch herrscht Ordnung und sie sind stets griffbereit ! Fragen Sie uns: http://www.buchbinderei-gibietz.de
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Koordinaten und Texte in Datei
Brischke am 01.10.2003 um 15:17 Uhr (0)
Hallo daiz, ich habe ein ähnliches Problem bereits gelöst gehabt, allerdings mussten die Punkte um einen Z-Wert verschoben werden. Näheres hier: http://www.cadlon.de/Freedwnload/vpnz.pdf Da kann man was machen, bei Interesse, einfach bei mir melden. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! ...mit erweitertem Leistunsspektrum...
|
| In das Form Rund um Autocad wechseln |
