---

lineDict.txt

Hallo!
Ich bin hierzu nicht richtig fündig geworden, kann man auf einfache Art die Dict in GC3 von Zobj löschen, vllt was fertig geschnitztes ?!
(siehe Anhang)

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

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

---

... du musst einen leeren -3er anhängen.

Code:

---

(setq X "NAME DER APP")
(cons -3 (list (cons X nil)))

---

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Danke Holger!
Meinst du so in der Form - hab noch ein Problem die Polylinie neu zu entmaken... ist das ungefähr so machbar?

Code:

---

(if (setq i -1 ss (ssget '((0 . "INSERT,LINE,LWPOLYLINE")))) ; wähle alle Blöcke
    (while
      (setq ent (ssname ss (setq i (1+ i))))
      (if (setq xdata (assoc -3 (entget ent '("*"))))
(progn
  (setq ent2 (append (entget ent '("*")) (list (cons -3 (list (cons "X" nil))))))
  (entmake ent2)
  )
)
      )
    )

---

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

[Diese Nachricht wurde von cadplayer am 05. Sep. 2014 editiert.]

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

---

.. ich habe mich wohl blöd ausgedrückt. Wenn du den -3er entfernen möchtest, dann musst du den nicht anhängen sondern mit (entmod(subst .. )) austauschen und als neuen Wert gibst du die Zeile des vorherigen Posts an. Du musst das Objekt nicht neu erzeugen und das alte löschen.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hier mal was fertiges in deinem code

Code:

---

(defun DelXdata (ent app / entlst tmplst)
  (setq entlst (entget ent app))
  (foreach memb (cdr (assoc -3 entlst))
    (setq tmplst (cons -3 (list (cons (car memb) nil)))
  entlst (subst tmplst (assoc -3 entlst) entlst)
  entlst (entmod entlst)
  )
    )
  )

(if (setq i -1 ss (ssget '((0 . "INSERT,LINE,LWPOLYLINE")))) ; wähle alle Blöcke
    (while
      (setq ent (ssname ss (setq i (1+ i))))
      (if (setq xdata (assoc -3 (entget ent '("*"))))
(DelXdata ent '("*"))
)
      )
    )

---

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

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

---

Doppelt gepostet!

Danke cadwiesel - funktioniert bestens.

[Diese Nachricht wurde von cadplayer am 05. Sep. 2014 editiert.]

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

---

Find ich ja ganz gut mit den xdatas, aber warum lassen die sich so umständlich hantieren.
Bspw. sprenge ich eine Poly mit xdatas auf enthalten die Linien dennoch die xdatas der Poly.
Hat Autodesk da einfach mal eine Property im Eigenschaftfenster ausgelassen?

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

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

---

Zitat:

---

Original erstellt von cadplayer:
... Hat Autodesk da einfach mal eine Property im Eigenschaftfenster ausgelassen?

---

Wozu sind XDatas da?
Diese dienen lediglich den Entwicklern, nicht-grafische Informationen an irgendwelchen Objekten zu speichern, die für das Funktionieren der eigenen Programme wichtig sind. In aller Regel sind diese für den Anwender vollkommen uninteressant.
Grundsätzlich sollte aber jede Applikation auch ein Speichern als AutoCAD zur Verfügung stellen und die Anwender vor dem Zeichnungsaustausch diese Funktion auch nutzen. Wenn das nicht geschieht, hat man eben am Ende eine Zeichnung mit 2 Linien, die aber 18MB auf der Platte benötigt.
Für und Wider liegen da sehr nah beieinander.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Ja genau, das meinte ich eben, warum die xdatas nicht automatisch gelöscht werden, wenn das UrspungsObjekt gelöscht wurde.
Super Danke Euch beiden für die schnelle Hilfe!
Und schon mal schönes WE!

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

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

---

Zitat:

---

Original erstellt von cadplayer:
... warum die xdatas nicht automatisch gelöscht werden, wenn das UrspungsObjekt gelöscht wurde. ...

---

Weil auch diese Information für die Applikation von Bedeutung sein kann.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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