---

wer kann mir Hinweise geben:
Ich suche eine Möglichkeit in eine LSP eine Zeile einzufügen, das der ausgewählte Umring einer Fläche mit den Koordinatenwerten in eine liste.txt geschrieben wird.
Überhaupt würde mich interessieren wie ich eine bestimmte Auswahl in eine Liste ausgeben kann ohne alle vorhergehenden Befehle und abläufe mit dabei zu haben. Es müsste eben nur automatisch geschehen.

------------------
Gruß vom Bauvermesser;

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

---

Poste doch (demnächst) mal im Lispforum wenn du an dem "WIE" Interesse hast.

Was fehlt dir denn zu deinem Glück überhaupt, du hast dich sehr schwammig ausgedrückt
und ich möchte jetzt nicht recherchieren wie dein Kenntnisstand ist. Kommst du jetzt schon
alleine an die Koordinaten oder hängt es bereits dort ? Ist evtl. nur das Erstellen der externen Datei das Problem ?

Und mit..

Zitat:

---

Überhaupt würde mich interessieren wie ich eine bestimmte Auswahl in eine Liste ausgeben kann ohne alle vorhergehenden Befehle und abläufe mit dabei zu haben. Es müsste eben nur automatisch geschehen.

---

Kann ich garnichts anfangen, was für eine Auswahl überhaupt ?
Redest du von Entitylisten oder von Auswahlsätzen und und und.
Falls du nur das Ergebnis von "Liste" zu bestimmten Objekten meinst, dann schau dir
evtl. mal LOGFILEON und LOGFILEOFF an.

Hätte sicher treffender antworten können wenn ich dich besser kennen würde,
aber so... will dir gerne weiterhelfen nur müßtest du mal konkreter werden.

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

---

erst mal Danke für die schnelle Antwort
werde mich erst mal mit
'LOGFILEON und LOGFILEOFF '
beschäftigen und melde mich dann mit einer besseren Beschreibung meines Anliegens wieder , leider liegen zwischen meinem Internetrechner und meinem ACAD-Rechner 20 km

------------------
Gruß vom Bauvermesser;

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

---

sowas?

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

---

Thomas danke für die antwort;
die lsp bringe ich leider nicht zum laufen ,habe ich einen Fehler eingebaut ??
;;  was für LW-Polylines
(defun c:LI ()
(if(and(setq OBJ(car(entsel"\nLW-Polylinie wählen: ")))
      (setq OBJ(entget OBJ))
      (=(cdr(assoc 0 OBJ))"LWPOLYLINE")
  ) 
(vl-remove-if-not '(lambda(X)(if(=(car X)10)(cdr X)))OBJ)
)
------------------------------------------------------
FEHLERANZEIGE - Falsch formatierte Liste in Eingabe

------------------
Gruß vom Bauvermesser;

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

---

es fehlt ne Klammer .. und so ist vielleicht noch besser

(defun c:LI ()
  (if(and(setq OBJ(car(entsel"\nLW-Polylinie wählen: ")))
        (setq OBJ(entget OBJ))
        (=(cdr(assoc 0 OBJ))"LWPOLYLINE")
    ) 
    (mapcar 'cdr(vl-remove-if-not '(lambda(X)(=(car X)10)) OBJ))
  )
)
------------------
      - 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 Thomas,
Danke für die Antwort,
ist nur zum Teil anwendbar da zu viel Nacharbeit bei Weiterverwendung des Textes notwendig ist;
hatte einfach als Anfänger gedacht das es möglich ist die Ausgabe des Befehls 'liste' (nach einer Umringmarkierung oder Flächenregion), in eine TXT Datei umzuleiten, dann hätte ich zu den Umringspunkten noch ein paar Koordinatendaten als Nachweis zur ermittelten Flächen welche ich mit einer LSp berechne,

------------------
Gruß vom Bauvermesser;

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

---

zum umleiten von "Liste" guck dir mal die sysvar LOGFILEMODE und die ähnlichanfangenden an..
ansonsten :
(defun c:LI (/ OBJ FNAME F)
  (if(and(setq OBJ(car(entsel"\nLW-Polylinie wählen: ")))
        (setq OBJ(entget OBJ))
        (=(cdr(assoc 0 OBJ))"LWPOLYLINE")
        (setq FNAME "C:\\KOORDS.TXT")
        (setq F(open FNAME "w"))
    )
  (progn
    (foreach P(mapcar 'cdr(vl-remove-if-not '(lambda(X)(=(car X)10)) OBJ))
      (princ "\n" F)
      (princ P F)
    )
    (close F)
  )
  )
)

ungetestet, da hier gleich so reingeschrieben.

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