---

Hallo Leute,

ich möchte gerne in Blöcke Punkte einbauen, und diese mit div. XData versehen damit ich sie später nach diesen Attributen aus der Zeichnung lesen kann und somit ihre Koordinaten verwenden kann.

Ich bin schon so weit, die Punkte zu erstellen. Ich habe ihnen auch einen eindeutigen Text zugewiesen. Gruppencode 1000.
Diese Punkte kann ich auch finden, aber nur wenn sie nicht in einem Block stecken.

Ich kann via entget vom Block die Daten ansehen, aber wie komme ich an die Block-Unterelemente ran.

Also noch mal im Klartext:

ich habe in einem Block diverse Punkte platziert.
Diese haben eindeutige XData-Inhalte in der Gruppe 1000. (z.B. Anw1Punkt1, Anw1Punkt1 ...)
Ich möchte den Block in Beliebige zeichnungen einfügen.
Ich möchte dann per LISP die Koordinaten dieser Punkte verarbeiten können.
WIE???

Code:

---

(defun C:SETPOINTS (/ P1 P2 AuswStz ElRefA ElRefE ExData)

  ;Anwendung registrieren
  (regapp "ANW1")

  ;Koordianaten für Punkte erfragen
  (setq P1
    (getpoint "\nBitte Platzierung für ersten Punkt: ")
  )
  (setq P2
    (getcorner P1 "\nBitte Platzierung für zweiten Punkt: ")
  )

  ;Punkt 1 zeichnen
  (command
    "_point"
    P1
  )

  ;Den eben gezeichneten Punkt auswählen
  ;entlast gibt letztes gezeichnetes Element zurück
  (setq AuswStz
    (entlast)
  )

  ;Elementname aus Auswahlsatz ermitteln
  ;entget gibt elementnamen zurück
  (setq ElRefA
    (entget AuswStz)
  )

  ;Extended Data erzeugen
  (setq ExData
    '(
      (-3
        ("ANW1"
          (1000 . "Anw1Point1")
        )
      )
    )
  )

  ;Jetzt neue Liste aus alter und neuen Daten erstellen
  (setq ElRefE
    (append ElRefA ExData)
  )

  ;Jetzt Datenbank modifizieren
  (entmod ElRefE)

  ;Punkt 2 zeichnen
  (command
    "_point"
    P2
  )

  ;Jetzt den eben gezeichneten Punkt auswählen
  ;entlast gibt letztes gezeichnetes Element zurück
  (setq AuswStz
    (entlast)
  )

  ;Elementname aus Auswahlsatz ermitteln
  ;entget gibt elementnamen zurück
  (setq ElRefA
    (entget AuswStz)
  )

  ;Extended Data erzeugen
  (setq ExData
    '(
      (-3
        ("ANW1"
          (1000 . "Anw1Point2")
        )
      )
    )
  )

  ;Jetzt neue Liste aus alter und neuen Daten erstellen
  (setq ElRefE
    (append ElRefA ExData)
  )

  ;Jetzt Datenbank modifizieren
  (entmod ElRefE)

  ;Meldung
  (princ "\nReferenzpunkte fürs Plotten wurden erstellt")
)

---

------------------
Ganz ruhig, Brauner!

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

---

hi,
mit der Suchfunktion wird man hier im Forum schell fündig 
hier zum Thema Elemente im Block
hier um XData's auszulesen...
mfg Heiko

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

---

Danke,

die große Kunst beim Suchen ist, die richtigen Suchbegriffe zu Kennen, bzw. Anzuwenden.

Aber danke fürs suchen ;o)

------------------
Ganz ruhig, Brauner!

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