Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Blöcke zählen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Blöcke zählen (1078 mal gelesen)
KORTI
Mitglied
Technischer Angestellter


Sehen Sie sich das Profil von KORTI an!   Senden Sie eine Private Message an KORTI  Schreiben Sie einen Gästebucheintrag für KORTI

Beiträge: 22
Registriert: 07.03.2003

erstellt am: 12. Nov. 2003 12:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Besteht die Möglichkeit verschiedene Blöcke in einer DWG als eine Art vereinfachte Stückliste auszugeben.
z.B.

Stuhl x 30 Stück
Leuchte y 20 Stück
usw....

Habe im Forum gesucht, aber nichts gefunden

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

BerndE
Mitglied
Hochbautechniker


Sehen Sie sich das Profil von BerndE an!   Senden Sie eine Private Message an BerndE  Schreiben Sie einen Gästebucheintrag für BerndE

Beiträge: 557
Registriert: 05.07.2003

Revit 2013
ACA 2012 deutsch
BuildingOne 5.4.5
Win7
WindowsNetz

erstellt am: 12. Nov. 2003 13:04    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für KORTI 10 Unities + Antwort hilfreich

wäre eine schöne aufgabe für ein VBA-makro (meinetwegen auch lisp)

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

Bernd

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

Blacke Eagle
Mitglied
Elektro Zeichner


Sehen Sie sich das Profil von Blacke Eagle an!   Senden Sie eine Private Message an Blacke Eagle  Schreiben Sie einen Gästebucheintrag für Blacke Eagle

Beiträge: 81
Registriert: 30.10.2003

Pentium 2,6 GHz
512 MB DDR Ram
AutoCAD 2004
Windows 2000
DSL

erstellt am: 12. Nov. 2003 13:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für KORTI 10 Unities + Antwort hilfreich

das wäre echt nicht schlecht.
Vor allen dingen wenn man wie ich als Elektrozeichner ne Massenzählung machen will.
Leider kann ich auch nicht helfen.

------------------
Nichtstun ist besser als mit Mühe nichts schaffen.

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

cadwomen
Ehrenmitglied V.I.P. h.c.
Mädchen für fast alles


Sehen Sie sich das Profil von cadwomen an!   Senden Sie eine Private Message an cadwomen  Schreiben Sie einen Gästebucheintrag für cadwomen

Beiträge: 2966
Registriert: 26.08.2002

ACAD R11 - 2022
(Plant3D)
AVIS
ACAD LT 2013- 2021
ZWCAD 2015 Versuch "nun ja"
[s]History P3D 2012/(13) SP und Hotfix([/s]<P>
Windows 10 / 64 Bit
Xeon CPU 3.5GHz
16GB Ram
NVIDIA Quadro P2000
3x Dell TV100 88P Monitore

erstellt am: 12. Nov. 2003 13:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für KORTI 10 Unities + Antwort hilfreich

expresstools cound.
bildschirrmcopy und ab ins wordpad

cw
nicht elegant aber ...

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

fuchsi
Mitglied
Programmierer c#.net Datawarehouse


Sehen Sie sich das Profil von fuchsi an!   Senden Sie eine Private Message an fuchsi  Schreiben Sie einen Gästebucheintrag für fuchsi

Beiträge: 1201
Registriert: 14.10.2003

AutoCad Version 2012 deu/enu
<P>Windows 7 64bit

erstellt am: 12. Nov. 2003 13:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für KORTI 10 Unities + Antwort hilfreich

habs mal schnell in lisp ausprogrammiert
zählt die gleichnamigen blöcke zusammen, schreibts in eine datei und öffnet diese mit notepad

(defun c:blocklist ( / liste ss i1 n1)

  (setq ss (ssget "X" (list (cons 0 "INSERT"))) i1 0)
  (repeat (sslength ss)
    (setq blname (cdr (assoc 2 (entget (ssname ss i1)))) i1 (1+ i1))
    (if (assoc blname liste)
      (setq liste (subst (cons blname (1+ (cdr (assoc blname liste)))) (assoc blname liste) liste))
      (setq liste (cons (cons blname 1) liste))
    )
  )
  (setq x (open "c:\\temp\\count.txt" "w"))
  (foreach n1 liste
    (princ (strcat "\nBlock : " (car n1)  " Anzahl : " (itoa (cdr n1))) x)
  )
  (close x)
  (startapp "notepad" "c:\\temp\\count.txt")
  (princ)
)

------------------
***********************************************
AutoCad 2000i, 2002, 2004 deutsch und englisch
Windows 2000, NT, XP

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

Schachinger
Ehrenmitglied V.I.P. h.c.
Konstrukteur



Sehen Sie sich das Profil von Schachinger an!   Senden Sie eine Private Message an Schachinger  Schreiben Sie einen Gästebucheintrag für Schachinger

Beiträge: 2040
Registriert: 08.04.2002

AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D

erstellt am: 12. Nov. 2003 13:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für KORTI 10 Unities + Antwort hilfreich

hab sowas auch schon mal gesucht! THANKS!

verschachtelte blöcke wird man wohl nicht mitnehmen können? wär ne fleißaufgabe 

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 12. Nov. 2003 13:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für KORTI 10 Unities + Antwort hilfreich

Hallo,

@Schachinger, hast aber nicht intensiv gesucht. ;-)

Zu finden auf meiner Seite (http://www.defun.de) unter Hilfe->Download->ProgNr 32.

War mal die Antwort auf folgenden Beitrag (Mai diesen Jahres) http://www.industrie24.com/bbs/read.php?f=4&i=7364&t=7362

Ist auch mal interessant Zeilen von Fuchsi und mir zu vergleichen.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
NEU: AutoLISP- Projektschulung
NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren
AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop

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

Blacke Eagle
Mitglied
Elektro Zeichner


Sehen Sie sich das Profil von Blacke Eagle an!   Senden Sie eine Private Message an Blacke Eagle  Schreiben Sie einen Gästebucheintrag für Blacke Eagle

Beiträge: 81
Registriert: 30.10.2003

Pentium 2,6 GHz
512 MB DDR Ram
AutoCAD 2004
Windows 2000
DSL

erstellt am: 12. Nov. 2003 14:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für KORTI 10 Unities + Antwort hilfreich

habe das Programm installier, aber wo schreibt er das hin, wie viele Blöcke drin sind??

------------------
Nichtstun ist besser als mit Mühe nichts schaffen.

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 12. Nov. 2003 14:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für KORTI 10 Unities + Antwort hilfreich

meinst du mich?
egal.

bei mir wird es auf c:\block_count.txt
bei fuchsi auf c:\temp\count.txt
gespeichert.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
NEU: AutoLISP- Projektschulung
NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren
AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop

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

Ralle
Mitglied



Sehen Sie sich das Profil von Ralle an!   Senden Sie eine Private Message an Ralle  Schreiben Sie einen Gästebucheintrag für Ralle

Beiträge: 266
Registriert: 12.03.2003

Windows 10 Enterprise
64-Bit, 32GB
MEP2018

erstellt am: 12. Nov. 2003 14:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für KORTI 10 Unities + Antwort hilfreich


Countblocks.zip

 
Hmm..

countblocks von CADwiesel.

Mache so immer meine Massenauszüge.


Gruß

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

Blacke Eagle
Mitglied
Elektro Zeichner


Sehen Sie sich das Profil von Blacke Eagle an!   Senden Sie eine Private Message an Blacke Eagle  Schreiben Sie einen Gästebucheintrag für Blacke Eagle

Beiträge: 81
Registriert: 30.10.2003

Pentium 2,6 GHz
512 MB DDR Ram
AutoCAD 2004
Windows 2000
DSL

erstellt am: 12. Nov. 2003 14:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für KORTI 10 Unities + Antwort hilfreich

danke,
habs grad gesehen als ich mir den lisp angeschaut habe.
nicht schlecht.

------------------
Nichtstun ist besser als mit Mühe nichts schaffen.

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

Ralle
Mitglied



Sehen Sie sich das Profil von Ralle an!   Senden Sie eine Private Message an Ralle  Schreiben Sie einen Gästebucheintrag für Ralle

Beiträge: 266
Registriert: 12.03.2003

Windows 10 Enterprise
64-Bit, 32GB
MEP2018

erstellt am: 12. Nov. 2003 14:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für KORTI 10 Unities + Antwort hilfreich

Servus, hab was vergessen

Noch besser als Countblocks ist allerdings (Nur unter ACAD 2004!!!)
unter Extras die Attributsextraktion (auch für verschachtelte Blöcke)
Countblocks zählt nur die Böcke raus und berücksichtigt nicht die
Attribute.

Mit der Attributsextraktion kann man Blöcke für die Ausgabe auswählen,
genauso kann man Attribute wählen/abwählen.

Das ganze kann unter anderem in Excel ausgegeben werden.

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

KORTI
Mitglied
Technischer Angestellter


Sehen Sie sich das Profil von KORTI an!   Senden Sie eine Private Message an KORTI  Schreiben Sie einen Gästebucheintrag für KORTI

Beiträge: 22
Registriert: 07.03.2003

erstellt am: 12. Nov. 2003 16:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Könnten die Programme auch per Button aufgerufen (gestartet werden)

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 12. Nov. 2003 17:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für KORTI 10 Unities + Antwort hilfreich

Hallo,

klar kann man das.
Du machst dir eine neue Schaltfläche, oder ein neues Menü, und da trägst du das dann ein.
Kannst auch noch mal hier nachlesen: http://ww3.cad.de/foren/ubb/Forum54/HTML/001854.shtml

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
NEU: AutoLISP- Projektschulung
NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren
AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop

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

Kintaro
Mitglied
Elektro


Sehen Sie sich das Profil von Kintaro an!   Senden Sie eine Private Message an Kintaro  Schreiben Sie einen Gästebucheintrag für Kintaro

Beiträge: 51
Registriert: 21.02.2006

Mircrostation V8I; Autocad LT 2014; ACA2014

erstellt am: 26. Nov. 2007 12:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für KORTI 10 Unities + Antwort hilfreich

Hallo Funktioniert diese Extration auch unter LT2006? Hab den Extender drauf. Leider bringen die gesagten Programme nicht das erwünschte Ergebnis. Komme nie auf die tatsächliche Anzahl der Blöcke (wahrscheinlich verschachtelte Blöcke) und unterschiedliche Attribute.
mit Schnellauswahl werden zwar alle gezählt aber das ist bei vielen blöcken sehr mühsam.

mfg Alex

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz