---

Hallo,
hab in der Hilfe von AutoCad 2006 schon nachgeschaut und
nicht gefunden.
Wie kann ich mir auflisten lassen welche Layer in einem
bestimmten Block (z.B. Fenster) verwendet werden?
bzw. gibt es eine Anzeige (Strukturbaum) welche Layer wo
verwendet werden?
Bin für jeden Tipp dankbar.
Gruß
Ralph
PS: Momentan behelfe ich mir in dem ich in einem Block die Geometrie
selektiere und dann auf Liste gehe. Da werden mir aber alle Angaben
von der Geometrie angezeigt. Mir langt eigentlich nur die Layer.

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

---

ListLayer.VLX.txt

Hab für sowas mal was programmiert. Anhang als vlx speichern und mit _appload in die Zeichnung laden .. Viel Spaß beim Testen.

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

layerliste.gif

wollte auch testen...

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

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

---

Tja Pech, eine Frage der Rechte.. Sorry .. aber da steht dann was von Mail  

------------------
    - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

...war mir schon klar..aber oben in deinem beitrag steht es deutlich..testen.

dann hättest lieber schreiben sollen..schickt ein mail..ich habe da was..

mail bekommst du...
nichts für ungut.

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

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

---

Danke für deine Hilfe

Gruß
Ralph

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

---

Also mit der kleinen Lisp-Zeile

Code:

---

(cdr (assoc 8 (entget (car (nentselp)))))

---

bekommst Du den Layer des Blockelementes, das Du anpickst. Vielleicht hilft das ja auch schon. In einen kleinen Befehl verpackt dann vielleicht so:

Code:

---

(defun c:z-layer ( / dummy)
  (if (setq dummy (nentselp))
  (cdr (assoc 8 (entget (car dummy))))
  )
)

---

Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Bei installierten ExpressTools:

kann man (wenn man es nicht soo häufig benötigt) den Befehl BLOCK?
nutzen... An die nicht-Lisp´ler: vor dem Layernamen steht eine "8" in der
betreffenden Klammer, zB so: (8 . "Meinlayername")

man kann auch den Befehl "XLIST" nutzen und es würde dann auch noch im www
etwas ähnliches geben was sich (glaube ich) Bubble oder Bubbles nennt..

Ansonsten: REFEDIT und Teile anklicken, oder 1x _explode und dann testen + "zurück"

Etwas perfektes (Block anklicken und alle (auch verschachtelte) Layer werden als Liste
ausgegeben ist nur über ein xtra Tool zu erhalten (sicher sowas was Thomas da gebastelt hat)

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

---

Zitat:

---

Original erstellt von CADmium:
Hab für sowas mal was programmiert. Anhang als vlx speichern und mit _appload in die Zeichnung laden .. Viel Spaß beim Testen.

---

habs getestet :  sehr schön

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

---

blockinfo.jpg Blockinfo.dvb.txt

Hallo,

gibt ja viele Lösungsansätze.
Hier noch der in VBA zu Ergänzung.
Suche gerade nach verborgenen Layern in Blöcken.
Damit gehts.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

Hallo Stelli1,
super Programm - das kann man gebrauchen - 10Us. Das hast du doch nicht extra auf diesem Beitrag hin gemacht, sondern schon aus einer Schublade gezogen - oder?

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

Udo Hübner

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

---

Hallo Udo,

für hier ein wenig reduziert. Ist so in meiner Toolsammlung.
Brauch ich wenn man Layer oder Blöcke nicht löschen kann.

Muss es sonst noch was können ??

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

Tja, hab ich auch schon überlegt.

- Evt. auf Knopfdruck alle Layer anzeigen, die ausschließlich von Blockdefinitionen genutzt werden, aber von keinen anderen Objekte genutzt werden (damit man diese Blöcke überarbeiten kann).
- Die Anzahl der Blockrefenzen des jedweiligen Blockes angeben.
- Auf Knopfdruck eine Objekt-Auswahl aller eingefügten BL.Referenzen vom markiertem Blocknamen im Treeview machen.
- Wahlweise Blockdefinitionen ohne Blockreferenzen wegblenden (ähnlich wie in BEREINIG)
- Die Anzahl der Blockrefenzen des jeweiligen Blockes angeben.
- *? Blöcke wahlweise unterdrücken
- ein Beenden Button 
- eine Sortierung nach Blocknamen
- farbl. Hervorheben von Blöcken, die als SUB Blöcke genutzt werden.
...
Das soll jetzt keine Wunschliste sein, sondern nur Vorschläge und Anregungen diese gute Stück VBA Code weiter auszubauen.

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

Udo Hübner

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

---

blockinfo2.jpg

Hallo Layerfinder,

so die letzte Version des Tools findet ihr hier

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

das scheint ja wirklich eine klasse  Sache zu sein !

Leider bin ich wohl nicht fit genug das Tool einzubinden:
Hab' (nicht wie in FAQ beschrieben) die dvb gesaugt, mittels appload geladen, mit ALT-F8 ausgewählt und gestartet:
Laufzeitfehler 445 / Objekt unterstützt diese Aktion nicht
>Debuggen
frm_BlockInfo.Show 1 ist markiert.

was mach' ich falsch  ?

Gruß
Heiko

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

---

Hallo Heiko,

hab's mir auch noch mal geladen um zu schauen ob auch die richtige Version im Download steht. War OK.

Woran kann es liegen ???

In deinem Profil steht was von ADT. Kann ich nicht testen. Auf Acad und Map läuft es.

Da ja der komplette Quellcode offengelegt ist, sollte man der Sache auf die Spur kommen.

Probiers mal mit einer Testzeichnung mit einem Block
"..>Debuggen
frm_BlockInfo.Show 1 ist markiert.
..."
Wähle mal "debuggen" und arbeite dann mit F8 und dann leider jede Zeile (deswegen nur ein Block) mit F8 weiter. Dann wirst du sehen wo das Ding aussteigt.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

Hallo Stelli,

KLASSE TOOL!

10Us4U

------------------
Gruß
Iris 

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

---

Hallo Stelli,

hab's jetzt mal ausgetestet:
...bei WAHL geht's glatt bei ALLE streikts...

der Ausstiegspunkt ist:
If Entity.EntityType = 5 Then
in der
Function FillBlockInfo(ParentNode As Node, Block As AcadBlock, Ebene As Integer) As Boolean

kannst Du damit was anfangen ?

Das Ergenis bei WAHL alleine reicht aber schon für  Lobgesang  und Us satt ! Super !

Gruß
Heiko

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

---

Hallo Heiko,

da gibt es zwei Zeilen in der Art.
Tausche diese doch mal aus

If Entity.EntityType = 5 Then
gegen
If Entity.ObjectName = "AcDbAttributeDefinition" then

und

If Entity.EntityType = 7 Then
gegen
If Entity.ObjectName = "AcDbBlockTableRecord" then

dann sollte es gehen.

Stelli
          

------------------
Warum lisp'eln wenn's auch anders geht.

[Diese Nachricht wurde von Stelli1 am 21. Nov. 2005 editiert.]

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

---

da gibt es nix mehr hinzuzufügen - das ist klasse !

Danke und Gruß
Heiko

[Diese Nachricht wurde von heiko_hems am 21. Nov. 2005 editiert.]

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

---

Vielleicht kann ja mal einer das Tool tables von meiner Seite ausprobieren, wie das unter 2006 funktioniert?

das Tool hat u.A. auch die Blöck und darin verwendeten Layer aufgelistet.

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

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

---

Hallo,

hab gesehen das auf das Tool rege zugegriffen wurde.

Gebt doch mal unter den Kommentaren auf der Seite(ganz unten zu finden) an mit welcher Version ihr arbeitet.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

[Diese Nachricht wurde von Stelli1 am 22. Nov. 2005 editiert.]

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

---

Hallo Stelli1
habs nur kurz getest - prima, allerdings werden nur die Blockreferenzen im jeweils aktuellen Layout gezählt, da finde ich eine versteckte Blockreferenz auf dem 17. Layout immer noch nicht.

Soll ab jetzt jeder selbst am Code Verbesserungen anbringen oder willst du das auch weiterhin übernehmen?

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

Udo Hübner

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

---

Hallo Udo,

 

Ich habs noch mal bei mir probiert (zugegeben nur mit 3 Layouts) und da wird die Anzahl aus Modellbereich + aller Layouts "gerechnet".

Na,ja, das "Rechnen" ist mehr ein "Zählen" und das macht AutoCAD.
Mit der Methode Sset.Select acSelektionSetAll wird meines Erachtens aus der ganzen Zeichnung selektiert.
Was allerdings nicht berücksichtigt ist, die Anzahl der Verwendung als Sub-Block. Hast du eine andere Idee ?

Wer machts ?
Grundsätzlich sollte das nur eine Grundversion sein. Habe natürlich  auch Interesse daran zu Wissen was man so braucht. Ich würde schon noch einige Sachen in einen allgemeinen Stand einbringen. Aber auch unter dem Aspekt das das Ganze "for Free" bleibt. Davon kann man jedoch nicht alleine Leben, deshalb alles mit Maß.

Es gibt z.B. eine Idee noch eine Vorschau einzubauen, oder von hier direkt Blöcke einzufügen, oder Blockdefinitionen zu "reparieren" (Farbe und Layer) und und und ...(du hattest auch schon gute Ideen)

Aus der Grundlage kann natürlich jeder machen, oder machen lassen  was er will.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

blockinfo3.jpg

Hallo Layerfinder,

so die letzte Version 3 mit einigen Anregungen ist fertig.
Ihr findet sie hier
Bitte gebt doch mal an mit welchen Version es läuft.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

Hallo Stelli,
leider geht die bei autocad.cad.de gepostete Version im Moment gar nicht. Es erscheint unter AutoCad die Fehlermeldung "Projekt konnte nicht aus Datei geladen werden".
Siehe auch dieser Artikel: http://ww3.cad.de/foren/ubb/Forum54/HTML/012840.shtml#000005

Vielleicht könnstet du netterweise das Problem beheben.

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

Udo Hübner

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

---

@CADwiesel
tables.vlx funktioniert auch in AutoCAD 2006!
Beendet aber mit:
Unbekannter Befehl "STARTAPP". Drücken Sie F1-Taste für Hilfe.
nil
Die TXT-Datei wird aber noch geöffnet.

------------------
mfg
FeR
"gefundene Rechtschreibfehler dürfen behalten werden."

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

---

<edit>
aktuelle Version ist immer am Ende
</edit>

[Diese Nachricht wurde von Proxy am 29. Jan. 2006 editiert.]

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

---

Hallo Stelli !

Geniales Tool ! Läuft bei mir auch unter ADT2005. Jetzt kann ich endlich sehen und dokumentieren, was ich schon immer vermutet habe : die vollkommen kraus verbogenen und unendlich verschachtelten Blöcke mit Unter- und Unter -und völlig überflüssigen Unterblöcken meiner PIT-Applikation ......

Danke und weiter so, Gruß KBM

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

---

sql.gif

Version 4.1
- Sucht auch nach Linienarten
- Untersuchung der Layouts und Modelbereich
- Umbenennen von Layouts, Layern und Blöcken (auch unbenannten)

hier der Artikel
hier der Download

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

FehlerbeimKompilieren.png

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Ich weiß, der Beitrag ist schon uralt, aber ich finde das Tool nach wie vor genial und konnte bislang nichts vergleichbares finden.

Meine Frage:
Wie kriege ich das unter ACAD 2014 zum Laufen?

Ich bekomme immer eine Fehlermeldung "Fehler beim Kompilieren". Im Moment behelfe ich mir mit einer alten AutoCAD 2012 Version - da läuft's noch.

Viele Grüße

------------------
Geht ein Indianer zum Friseur, kommt raus - ist sein Pony weg!

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

---

Zitat:

---

Original erstellt von cadalacad:
Meine Frage:
Wie kriege ich das unter ACAD 2014 zum Laufen?

Ich bekomme immer eine Fehlermeldung "Fehler beim Kompilieren".

---

Versuch doch einfach erstmal das, was in der Meldung steht 

>> klick << Folgelinks beachten!

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

VBA-Fehler2.png

Hallo runkelrübe,

danke für den Link.
Das Problem ist leider, dass ich mich in VBA-Programmierung null auskenne.
Habe, wie in einem der weiter verlinkten Beiträge vorgeschlagen, alle "Declare" mit "Declare PtrSafe" ersetzt und siehe da, nun wurde man sogar in der Befehlszeile aufgefordert Objekte zu wählen.
Der Spaß war dann jedoch bei der nächsten Aktion vorbei - es erschien die nächste Fehlermeldung (siehe Screenshot)  .

Die andere Variante, über eine VM zu gehen in welcher ein altes ACAD installiert wird und dort mit dem Tool zu arbeiten ist sicherlich grundsätzlich ein Workaround aber doch auch sehr umständlich bzw. Lizenzrechtlich halt auch nicht unbedingt sauber.

Ich hatte daher gehofft, irgendein anderer versierter VBA-User, oder noch besser der Ersteller des genialen Tools hätten die Anpassung schon gemacht  ...

Grüße!

------------------
Geht ein Indianer zum Friseur, kommt raus - ist sein Pony weg!

[Diese Nachricht wurde von cadalacad am 05. Mai. 2015 editiert.]

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

---

ist doch toll mit der neuen Meldung, jetzt korrigiere DIESE - und so weiter.
aber zurück zum Text:

" oder noch besser der Ersteller des genialen Tools hätten die Anpassung schon gemacht"

abgesehen davon das dieses Tool nur eine Machbarkeitsstudie der Programmierung für JEGLICHE Objekte und Eigenschaften darstellt, nicht nur zum Suchen, auch zum ändern und weiteres..
ist dein letzter Satz der Volltreffer bei deiner Anfrage.

Warum schreibst du ihm nicht einfach? Die Kontaktdaten hast du, stehen auch noch in seinem CAD.de-Profil und da er auch auf CAD.de noch aktiv ist, könntest du ihn sogar per PM kontaktieren.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Zitat:

---

Original erstellt von cadalacad:

Der Spaß war dann jedoch bei der nächsten Aktion vorbei - es erschien die nächste Fehlermeldung (siehe Screenshot)   .

---

Wie schon in einigen Threads hier erwähnt wird die ProgressBar von VBA7 nicht mehr unterstützt, man müßte also diese nachprogrammiern (gibt es aber auch schon => Suchfunktion) oder ersetzen.

Aber wie schon von cadffm erwähnt, frag doch einfach mal bei Stelli nach.

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