---

Beispiel05-06-28.txt

Morgen

Habe 1 Pline auf der Höheninfo als Blöcke liegen.
Frage: Ist es möglich das man

die Stationierung der Blöcke auf der Pline

und die Höheninfo der Blöcke in eine TXT schreiben kann?

Im Anhang ein Beispiel.

Ps.: Weiss natürlich das hier kein Wunschkonsert ist, aber vielleicht hat wer etwas.

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

[Diese Nachricht wurde von Bernd P am 28. Jun. 2005 editiert.]

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

---

Zitat:

---

Original erstellt von Bernd P:
....Frage: Ist es möglich das man

die Stationierung der Blöcke auf der Pline

und die Höheninfo der Blöcke in eine TXT schreiben kann?

---

Ja, ist möglich.

----scherzende-----

Ich möchte dich hiermit nur aufmuntern zum suchen !
Bilde mir ein das es dieses Thema schon gab, denke es war aber im
RuA-Forum, Lispforum könnte es natürlich auch sein..
Versuch es doch mal mit der Suche, mir ist so als wären hier
schon Stationierungen etc. angsprochen worden.

Ansonsten sind es mind. alle Puzzlestücke:

Werte in Datei schreiben
Blöcke über Polylinie auswählen
Blockattribute auslesen
usw.

[Diese Nachricht wurde von cadffm am 28. Jun. 2005 editiert.]

[Diese Nachricht wurde von cadffm am 28. Jun. 2005 editiert.]

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

---

Hi Bernd,

ersteres kann ich mir nur schwer vorstellen (woher soll der Bezug zwischen PL und Blöcken herkommen ? Die haben ja nix miteinander zu tun...)

Zum zweiten Punkt:
Einfach -eattext drüberlaufen lassen (mit passender Template)

Wenn du dir die Koordinaten auch noch auswerfen lässt, könntest du natürlich auch die "Stationierung" rechnen...

Nur so als Anregung...

------------------
Grüsse

Thomas

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

---

könnte passen

Code:

---

(if (not (setq listnam (findfile "punkteliste.txt")))
    (setq listnam (getfiled "Punktliste anlegen" "punktliste" "txt" 1))
    ) ;_ end of if
  (if listnam
      (repeat (sslength(setq aws(ssget "_X" '((0 . "INSERT")(2 . "KOT_HOEHE_LP")))))
      (setq vlaObj(vlax-ename->vla-object (ssname aws 0))
      lstAtts (vlax-safearray->list
                    (vlax-variant-value (vla-Getattributes vlaObj))
                    )
          lstAtts(mapcar 'vla-get-TextString lstAtts)
          )
        (setq DAT_ID (open listnam "a"))
        (write-line (car lstAtts) DAT_ID)
        (close DAT_ID)
        (setq aws(ssdel(ssname aws 0)aws))
        )
      )

---

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

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

---

Servus

@cadffm
Jup natürlich hab schon gesucht und ein paar Ansätze gefunden. Nur leider kann ich grad mal minifuzzi Lisp anpassen. Bei den grösseren LISP seh ich nicht mehr drüber.

@tunnelbauer
Die Blöcke liegen genau auf der Pline. Um den Bezug herzustellen brauch ich ja LISP 
Die Koordinaten kann ich nicht verwenden da die Pline auch knicke haben kann, wo kein Block liegt und die Reihenfolge bei -eattext verloren geht.

@Cadffm THX für die schnelle Antwort
Liest alle Attributewerte aus ohne Reihenfolge, ohne Stationierung

Mein jetziger "Ansatz" sieht so aus das ich die Höhenpunkte mit Lisp auf die Höhe lege und eine 3DPline drüberzeichne, und diese dann auslese.
Da Arbeitskollegen in der Firma wollen/sollen/müssen es auch verwenden und weil sie nicht immer alles verstehen können/wollen, würde ich das gerne vereinfachen.

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

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

---

Hallo,
ich habe auch nochmal getestet, habe die Höhen aber nicht aus dem Attribut genommen, sondern aus dem Basispunkt des Blockes. Die Ergebnisse müßten aber nochmal geprüft werden.

(defun c:hoehe_stat ( / pl aws n pfad datei)
  (setq pl (car(entsel "\nBitte Polylinie picken:")))
  (princ "Bitte Blöcke auswählen:")
  (if (setq aws (ssget (list(cons 0 "INSERT")(cons 2 "Kot_Hoehe_LP"))))
    (progn
      (if (setq pfad (getfiled "Datei:" "" "txt" 1))
(setq datei (open pfad "w")))
      (setq n 0)
        (repeat (sslength aws)
  (write-line (strcat "Stat. "
      (rtos(JB_pl_stat pl (cdr(assoc 10 (entget(ssname aws n)))))2 4))datei)
  (write-line (strcat "Hoehe. "
      (rtos(last(cdr(assoc 10 (entget(ssname aws n)))))2 4))datei)
 
  (setq n (+ n 1)))
      (close datei)
      )
    (alert "Es wurden keine Blöcke gewählt"))
  (princ))
(defun JB_pl_stat (obj pkt /  )
(vlax-curve-getdistatpoint (vlax-ename->vla-object obj)
  (vlax-curve-getClosestPointTo(vlax-ename->vla-object obj)pkt)))

------------------
viele Grüße

Jörn

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

---

Servus

@joern bosse
funkt perfekt die Höhen und die Stationierung passen zusammen THX

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

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

---

Servus

Ist schon etwas länger her.

Kann man bei dem LISP von joern bosse die Höhe doch aus den Attributen nehmen?

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
<----- Bitte Systeminfo eintragen, warum siehst du hier.

[Diese Nachricht wurde von Bernd P am 06. Feb. 2008 editiert.]

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

---

läßt du die Zeile weg
(write-line (strcat "Hoehe. "
      (rtos(last(cdr(assoc 10 (entget(ssname aws n)))))2 4))datei)
 

------------------
  - 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, ich glaube, Bernd will nicht die Höhe weghaben, sondern sie aus dem Blockattribut nehmen:

(write-line (strcat "Hoehe. "
      (cdr(assoc 1 (entget(entnext (ssname aws n))))))datei)

------------------
Schöne Grüße
Ernst

www.geopaint.at

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