---

Hallo zusammen,

folgende Problematik. Ich habe eine Zeichnung erhalten, die ca. 7.500 geschlossene Polylinien (Rechtecke) enthält. Neben jedem Rechteck befindet sich ein MTEXT (ebenfalls ca. 7.500). Deren Inhalte würde ich gerne dem entsprechenden Polygon zuweisen. Jedes Ploygon-MTEXT-Pärchen ist nicht mehr als 10 Einheiten voneinander entfernt.

Zusätzlich sollen die Koordinaten eines Eckpunkts oder auch des geom. Mittels jedes Polygons extrahiert werden. Als Ergebnis benötige ich eine Tabelle mit eindeutiger Zuweisung des MTEXTs zu den entsprechenden Koordinaten.

Ich habe soeben ein paar erste Gehversuche mit ChatGPT gemacht, aber das hat alles nicht funktioniert.

Bin für Hilfe dankbar.

Ich benutze die AEC-Collection.

VG
kinglouis

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

---

Hy,

kann evtl. ganz anderst, einfach gehen....kann man den Plan posten ?
sind die Polygone alle gleich , was steht in dem Mtext und warum ?

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

Zeichnung1.dwg

Hi,

ich hoffe, dass ich die Datei korrekt gepostet habe? Ja, alle Polylinine sind gleich.

Am Ende benötige ich eigentlich nur eine Tabelle mit den MTEXT-Inhalten und den zugehörigen Koordinaten des entsprechenden Polygons.

[Diese Nachricht wurde von kinglouis am 20. Nov. 2024 editiert.]

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

---

Mh

ne Tabelle mit dem Mtext Inhalt ist kein Thema Datenextraktion und gut , geht 5min Arbeit, aber da die Polys keinen Bezug zum Text so haben , muss mal schauen was man da machen könnte.

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

ok, danke für deinen Support.

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

---

Datenextrakt des Textes, dabei Text und Geometrie exportieren
Danach in der Tabelle mit Formeln die Koordinaten ändern.
Der Bezug zum Rechteck scheint mir abhängig zu sein von:
1. Ausrichtung des Textes rechts oder links
2. vorletzte Nummer des Textes 0 oder 1

habe das aber nur stichprobenartig geprüft und habe mir nicht alle 7500 angeschaut 

------------------

Gruß Thomas
CADdog the dog formerly known as TR

AutoCAD spricht mit einem, aber viele hören nicht zu.

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

---

Das hat mich auf eine Idee gebracht. Ich habe alle gleich ausgerichteten Texte (Mitte links, bzw. Mitte rechts) ausgewählt und auf den geom. Mittelpunkt der Polygone geschoben. Da (fast) alle Texte identisch zu den Polygonen verschoben waren, sind nun die geometrischen Daten des Textfeldes gleich der des zugehörigen Polygons...der Rest dann über Datenextraktion war ein Kinderspiel.

Danke für den Denkanstoß!

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

---

Da ich LISP-Liebhaber bin  

Das hier macht einen MTEXT an Koordinate 0,0 mit den Koordinaten vom Polygonmittelpunkt und dem Text der daneben steht.
Wenn du Lust hast ... einfach in eine Textdatei, irgendeinname.lsp und in die Zeichnung ziehen.
Ist jetzt keine fertige Funktion, einfach etwas code der helfen könnte.
Den MTEXT-Inhalt kannst du ja z.B. in Word kopieren und mit suchen/ersetzen bearbeiten und eine Tabelle draus machen, usw. usw.
In der Zeichnung ist allerdings ein Text mehr als Polygone.

Code:

---

(defun k_satz->entlist (satz)
;;; Elementliste aus Auswahlsatz erstellen
  (if (= (type satz) 'PICKSET)
    (vl-remove-if-not
      '(lambda (dummy) (= (type dummy) 'ENAME))
      (mapcar 'cadr (ssnamex satz))
    )
  )
)

(defun k_geomcen (obj_list)
;;; geometrischen Mittelpunkt(e) von Objekt oder Objektliste zurückgeben
  (defun k_geomcen_midp (obj_name)
    (vla-getboundingbox
      obj_name
      'minp
      'maxp
    )
    (k_midp (vlax-safearray->list minp) (vlax-safearray->list maxp))
  )

  (if (listp obj_list)
    (mapcar 'k_geomcen_midp obj_list)
    (k_geomcen_midp obj_list)
  )
)
(setq ergebnis_list nil)
(setq ent_list (k_satz->entlist (ssget)))

(mapcar 'set '(pl_list text_list) (mapcar '(lambda (name)
                                                   (vl-remove-if-not '(lambda (ent) (= (cdr (assoc 0 (entget ent))) name)) ent_list)
                                  )
        '( "LWPOLYLINE" "MTEXT")
              )
)

(setq text_list (mapcar '(lambda (text) (list (cdr (assoc 10 (entget text))) (cdr (assoc 1 (entget text))))) text_list))

(foreach pl pl_list
  (setq p (k_geomcen (vlax-ename->vla-object pl)))
  (setq text (car (vl-sort text_list '(lambda (t1 t2) (< (distance p (car t1)) (distance p (car t2)))))))
  (setq ergebnis_list (cons (list p (cadr text)) ergebnis_list))
  (setq text_list (vl-remove text text_list))
)

(vla-addmtext
  (vla-get-block
    (vla-get-activelayout
      (vla-get-activedocument (vlax-get-acad-object))
    )
  )
  (vlax-3D-point '(0 0))
  0.0
  (substr (apply 'strcat (mapcar '(lambda (zeile) (strcat "\\P" (vl-princ-to-string (car zeile)) " - " (cadr zeile))) ergebnis_list)) 3)
)

---

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

[Diese Nachricht wurde von Andreas Kraus am 20. Nov. 2024 editiert.]

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

---

Zitat:

---

Original erstellt von kinglouis:
Da (fast) alle Texte

---

Richtig, leider nur fast alle (weder Ausrichtung, noch vorletztes Zeichen = 0 kann verwendet werden, aber fast)

Beachte auch die Fehler bei WR 07.18.06 u WR 06.19.11 (doppelte PL)

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

---

also erstmal den Befehl

Aufräumrn anwenden 

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

Euch allen vielen Dank. Ohne eure Ideen wäre ich nicht auf meine Vorgehensweise gekommen.
Ich habe die paar Fehler auch entdeckt und die einzelnen nicht identisch verschobenen Texte von Hand an die richtige Stelle geschoben. Das waren keine 5 Minuten.

Dennoch werde ich die Lisp von Andreas ausprobieren. ChatGPT ist auch immer über LISP gegangen, hat aber immer wieder Fehler produziert.

Danke nochmal - tolles Forum!

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

---

Zitat:

---

Original erstellt von kinglouis:
ChatGPT ist auch immer über LISP gegangen, hat aber immer wieder Fehler produziert.

---

Das geht mir und vermutlich allen anderen Programmierern ja ganz genau so. ChatGPT wird also immer menschenähnler :-)

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