---

textZwert.jpg

Hallo.

Ich muß eine Punktwolke erzeugen und benötige dazu Punkte mit xyz-Werten. Als Ausgangspunkt habe ich Text Elemente, die an der richtigen x-y-Position sitzen jedoch keinen z-wert haben.
Der Z-wert beschreibt das Textsymbol ansich.

Kann man nun den Text auslesen und in entsprechender z Höhe einen Punkt setzen?

thanks.

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

---

Hallo marcelheller,

das ist mit LISP machbar.

Auswahlsatz der Texte erstellen, den Textwert auslesen un dann einen Punkt mit den aus Textwert und Textkoordinaten erstellen.

Woran hängts bei dir?

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

(if(setq as(ssget "_X" '((0 . "TEXT"))))
(progn
(repeat (sslength as)
(setq wert (atof(cdr (assoc 1 (entget(ssname as 0))))))
(command "_Point" (append(reverse(cdr (reverse(cdr(assoc 10 (entget(ssname as 0)))))))(list wert)))
(setq as (ssdel(ssname as 0)as))
)
)
)
so das geht !

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

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

---

Vielen Dank Cadwiesel,

Bin jedesmal erstaunt wie Ihr sowas aus den Ärmeln schüttelt..

Regards! Marcel

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

---

Ja - ich auch lol

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

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

---

Hallo,

ich habe gerade mal den Code ausprobiert. Die erzeugten Punkte haben bei mir aber leider immer die Höhe Null (und eben nicht die Höhe, die im Text steht).
Hat jemand eine Idee, woran das liegen könnte?
Würde mich sehr freuen.

------------------
Daiz

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

---

Wenn alles komplett auf 0 liegt (die Punkte) dann hast du evtl. Texte deren Textwert ca. so lauten: 0,256
die 0 wird als Zahl erkannt und wird benutzt (voila=Höhe 0)

Warum ? hast du in Acad schonmal 0,256 angegeben ? Ja hast du , als Koordinateneingabe x,y 

Ist aber nur geraten da du ja nicht weiter auf deine Objekte/ Textwerte eingegangen bist..

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

---

Danke für die Antwort.

Bei den Texten handelt es sich um soetwas: "49.52" (ohne Anführungszeichen).

Wenn ich den Code durchlaufen lasse und dann die Variable "wert" abfrage, wird mir auch eine Höhe angegeben.

------------------
Daiz

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

---

da dem ordentlichen Durchlauf auch der Textwert nicht im Wege steht wäre
es evtl besser wenn mal eine Beispiel-DWG postest ! (gezippt kleiner 1mb)

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

---

Bsp.txt

Ok, anbei eine DWG-Datei (*.txt umbenennen in *.dwg) als Beispiel.

------------------
Daiz

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

---

Bei mir werden zwei Punkte an der richtigen Stelle, aber mit Höhe Null generiert.

Folgendes meldes acad während des Durchlaufs:

Code:

---

Befehl: _appload textzuhöhe.lsp erfolgreich geladen.

Befehl: <Selection set: 673>58.13_Point
Aktuelle Punktmodi:  PDMODE=0  PDSIZE=0.0000
Einen Punkt angeben:

Befehl: <Selection set: 673>57.22_Point
Aktuelle Punktmodi:  PDMODE=0  PDSIZE=0.0000
Einen Punkt angeben:

Befehl:

---

------------------
Daiz

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

---

Vielleicht liegts am Komma - Punkt bzw. Beistrich?

@marcelheller
Schau Dir mal ACADIN bzw. ACADIN3D (meine HP/CAD/Download) an - vielleicht kannst ja was damit anfangen.

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

Meine Homepage

[Diese Nachricht wurde von Geos am 12. Feb. 2007 editiert.]

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

---

Ich habe das mal geändert Command durch entmake ersetzt.
Weiß zwar nicht was du noch alles dazugebaut hast, aber mit deiner Zeichnung ging es einwandfrei.
versuchs mal

Code:

---

(if (setq as (ssget "_X" '((0 . "TEXT"))))
  (progn
    (repeat (sslength as)
      (setq wert (atof (cdr (assoc 1 (entget (ssname as 0))))))
      (entmake
        (list
          (cons 0 "POINT")
          (cons 8 (getvar "CLAYER"))
          (cons 62 1)
          (cons
            10
            (append
              (reverse
                (cdr (reverse (cdr (assoc 10 (entget (ssname as 0))))))
                ) ;_ end of reverse
              (list wert)
              ) ;_ end of append
            ) ;_ end of cons
          ) ;_ end of list
        ) ;_ end of entmake
      (setq as (ssdel (ssname as 0) as))
      ) ;_ end of repeat
    ) ;_ end of progn
  ) ;_ end of if

---

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

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

---

Zitat:

---

Ich habe das mal geändert Command durch entmake ersetzt.

---

Super, vielen Dank! Damit geht's.

Zitat:

---

Weiß zwar nicht was du noch alles dazugebaut hast, aber mit deiner Zeichnung ging es einwandfrei.

---

Nix hab' ich dazugebaut. Aber unter meinem Acad Map 2006 lief es einfach nicht. Es wurden immer (egal bei welcher Zeichnung) Punkte mit Höhe Null erzeugt.

------------------
Daiz

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

---

Naja, das steht da:

Code:

---

Befehl: (assoc 10 (entget (car (entsel))))

Objekt wählen: (10 2.56658e+006 5.77028e+006 0.0)

---

------------------
Daiz

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

---

@Rabbit der Haken liegt ganz sicher nicht da, wo du rumstocherst. Es kann nur die unterschiedliche commanddeffinition in Map sein.

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

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