---

Wie kann ich (am besten über LISP-Ausdruck) in Mechanical 6 feststellen, ob ein bestimmter Block in der Zeichnung plaziert ist?
Es soll geprüft werden, ist der Block z.B. "Test" in dieser Zeichnung plaziert.

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

---

Hallo Adi

vielleicht hilft Dir dieses kleine Programm. Ich hoffe der Editor hängt keine Sonderzeichen drann.

Grüße
Heinz

(defun C:chkblk( / name as)
  (if (setq name (getstring "\nBlockname: "))
    (progn
      (if (tblsearch "BLOCK" name)
(progn
  (if (setq as (ssget "X" (list '(0 . "INSERT") (cons 2 name))))
    (princ (strcat "\nBlock " name " ist in dieser Zeichnung " (itoa (sslength as)) " mal eingefügt\n"))
    (princ (strcat "\nBlock " name " ist in dieser Zeichnung definiert, aber nicht eingefügt\n")) 
  ) 
)
(princ (strcat "\nBlock " name " ist in dieser Zeichnung nicht definiert\n"))
      )
    ) 
  )
  'DANKE
) 

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

---

WArum läßt du dir den nicht über das DesignCenter die Blöcke anzeigen die in der Zeichnung vorhanden sind.
Vielleicht nicht so komfortabel wie mit einem Lisp-Programm, aber doch auch möglich.
Oder lieg ich da falsch?

Sparky

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

---

Hallo Sparky

Das Designcenter zeigt Dir aber nur die Blöcke an, die definiert sind, und nicht ob die Blöcke auch in die Zeichnung eingefügt wurden.
Das Problem von Adi ist allerdings, dass er ja feststellen will, ob ein bestimmter Block auch in die Zeichnung eingefügt wurde.

Grüße
Heinz

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

---

Hallo Nahe

Ahh, ich verstehe.
Wie wäre es den dann mit dem Befehl Umbennen. Den mein ich letztes gesehen zu haben. Da werden doch alle Blöcke usw die in einer Zeichnung eingefügt sind, aufgelistet.
Hilfsmittel -> Format -> Umbenennen
Allerdings glaub das auch hier alle Blöcke angezeigt werden. Also auch die, die mal eingefügt worden sind und dann wieder gelöscht worden sind.
Oder was meinst du

Sparky

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

---

Hallo Sparky

Der Befehl Umbenenn zeigt auch, wie das Designcenter, alle Blockdefinitionen an. Also unabhängig davon, ob ein Block eingefügt wurde oder nicht.

Grüße
Heinz

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

---

Hi!

Quick & Dirty ohne Lisp

Bereinig > im Dialogfenster Option "Elemente anzeige die nicht bereinigt werden können" auswählen > in der Struktur "Blöcke" anklicken. Dort stehen jetzt alle, die als Block eingefügt oder innerhalb eines anderen Blockes verschachtelt sind also nicht bereinigt werden können. Manko: ein Block innerhalb es anderen Block wird angezeigt, auch wenn er nicht in der Zeichnung ist.

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

---

Hallo Adi,
das sind ja alles gute Ideen. Die schnellste Variante ist allerdings der Weg über die Schnellauswahl (aus dem Eigenschaftsfenster heraus öffnen). Einfach in der Maske nach deinem Blocknamen suchen und im Eigenschaftsfenster wird die Anzahl angezeigt.

Wenn Du die Expresstools installiert hast, kannst Du auch über den Befehl _BCOUNT Dir deine Blöcke durchzählen lassen.

Gruss

------------------
dr-nikolai

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