---

Ich hatte letztens Blöcke in (sehr alten) Zeichnungen, bei denen der DXF-Code von SEQEND auf einem anderen Layer lag als das INSERT. Damit war ein Layer vom Bereinigen ausgeschlossen, und erst mit dem Wechseln der Blöcke (Insert) auf Layer 0 und dann wieder zurück hat die Sache wieder gepasst.

Ich kenne die Sache schon von Polylinien, die auch am SEQEND andere Layer hatten; die Ursache war damals eine unsaubere Erstellung mit entmake.

Kennt jemand das Problem mit den Inserts? Ist das auch ein Fehler oder steckt da ev. ein tieferer Sinn dahinter, der sich mir nicht erschließt?

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Ja, Ja, Nein

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Hallo Peter,
das mit dem Sequenzende kann man beheben.
Das Lisp ist zwar schon älter (geht sicher auch einfacher), aber es funktioniert.

Viel Spass damit
Gruß
Andreas

(defun c:seqend_ok (/ filter   satz     n       ent_name
      ent_data att_name  att_data  dummy_list
      ent lay
      )
  (setq filter (list (cons 0 "INSERT")
    (cons 66 1)
    (cons 410 (getvar "ctab"))
      )
  )
  (setq satz (ssget "x" filter))
  (if satz
    (progn
      (setq n (1- (sslength satz)))
      (repeat (sslength satz)
(princ (strcat "\r" (itoa n) " "))
(setq ent_name (ssname satz n))
(setq ent_data (entget ent_name))
(setq lay (cdr (assoc 8 ent_data)))
(setq att_name ent_name)
(setq att_data (entget att_name))
(while (not (equal (cdr (assoc 0 att_data)) "SEQEND"))
  (setq att_name (entnext att_name))
  (setq att_data (entget att_name))
)
(vlax-put-property
  (vlax-ename->vla-object att_name)
  'Layer
  lay
)
(setq n (1- n))
      )
    )
  )
)

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

---

Danke Andreas

sehe ich das Programm richtig, dass es alle Attributblöcke erfasst, dann jeden Block bis zu Seqend durchläuft und dort den Namen des Ausgangslayers anhängt?

Wie ich oben geschrieben habe, funktioniert die händische Reparatur, wenn man den Layers des Inserts auf irgendwas und dann wieder zurück ändert. Wäre da der Ansatz

Code:

---

(command "chprop" ... layer 0)
(command "chprop" ... layer altlayer)

---

nicht schlanker?

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Zitat:

---

Original erstellt von CAD-Huebner:
Ja, Ja, Nein

---

Das letzte Nein musst Du durch ein Jein ersetzen, denn das kann durchaus Sinn gemacht haben.

Früher erforderte es ziemlichen Aufwand, wenn man als Anwendungsprogrammierer größere Datenmengen in einer Zeichnung speichern wollte. Es gab nicht wenige Anwendungsprogramme, die beispielsweise Polylinien mit nur einem Vertex oder leere Textelemente erstellten, um an denen XDATA zu speichern. Für ähnliche Zwecke haben andere Anwendungsprogrammierer Layer erstellt, die man mit dem genannten Trick vor dem Bereinigen schützen konnte.

Tom Berger

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

---

Hallo Peter,
sicher wäre das schlanker aber ich glaube das wäre auch langsamer.
Allerdings hab ich das noch nicht mit der Stoppuhr gecheckt.

Bei Zeichnungen mit einigen tausen Blöcken (hab ich) ist auch Geschwindigkeit interessant.

Gruß
Andreas

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

---

@Tom:
Danke - interessante Überlegungen.

@Andreas:
Richtig - ab einer nennenswerten Elementzahl spürt man die Langsamkeit der Command Befehle. Bei meinen 20-30 Stück dürfte dass kaum vorkommen.

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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