---

Hallo zusammen; in letzter Zeit habe ich immer mehr mit 3d gezeichnet. Nun benötige ich noch Stücklisten von allen 3D-Volumenkörper in der Zeichnung... auch von zusammengesetzten Volumenkörper. Hier möchten wir die Ausgabe der kleinsten  kubischen Umhüllung.
Wer hat eine Idee? Im Form habe ich bei Stücklisten leider nichts passendes gefunden oder suche ich falsch.

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

---

Das Problem ist das eine "einfache" Abfrage nicht die minimale Ausdehnung wiedergibt
sondern die Koordinaten (im WKS) welche das Objekt 100%ig umschließen.

1. Kann die Angabe also größer sein (ist nicht die kleinst-mögliche 3D-Kontur und viel "schlimmer"
2. sind es ja Punktangaben im WKS, das Objekt kann also gedreht viel viel kleiner sein wie abgefragt.

Es ist also nicht ganz so trivial und nur durch eine annähernde Berechnung möglich "so gut wie möglich"
zu bestimmen.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Vielleicht kannst du hiermit etwas anfangen

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

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

---

Vorgabeu.Ziel.jpg test3d.dwg test3d.dwg.txt

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

Tagchen

Würde gerne dieses Thema nochmals aufgreifen.
Da dies doch schon ein paar Jährchen zurück liegt .. 12 um genau zu sein  , erhoffe ich mir,
dass es zwischenzeitlich evtl. möglich ist eine Stückliste der 3d-Volumenkörper auszugeben.

Wenn ich etwas Zeichne, würde ich gerne nicht alles auseinander nehmen und nachzählen.
Folglich wäre eine Liste enorm hilfreich, wie im Bild illustriert.

Ich konnte einiges finden im Netz, bin aber nie wirklich auf einen grünen Zweig gekommen.

Freue mich über jede Idee.

Gruss Emu

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

---

Zitat:

---

Original erstellt von Emu1989:
ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Tagchen

Würde gerne dieses Thema nochmals aufgreifen.
Da dies doch schon ein paar Jährchen zurück liegt .. 12 um genau zu sein   , erhoffe ich mir,
dass es zwischenzeitlich evtl. möglich ist eine Stückliste der 3d-Volumenkörper auszugeben.

---

IMO hast Du da falsche Vorstellungen darüber, was ein CAD System kann. Es wird solche Listen über nicht weiter durch Software verwaltete Volumenkörper eher nie geben (eine wirklich kluge KI könnte das in Zukunft vielleicht doch, aber die wird niemand für ein Basis-CADsystem entwickeln), denn es werden an den Volumenkörpern keine Daten verwaltet, nach denen man sie sinnvoll kategorisieren könnte. Den "Sinn" der geometrischen Elemente liefern erst Branchenapplikationen, für die das eben kein 3D-Volumenkörper ist, sondern z.B. ein Stück Holz.

Die einzige Möglichkeit dazu wäre die nachträgliche Anbindung von Daten durch den Anwender, also Dich. Du müsstest die nötigen Daten z.B. als XDATA an jedes Element anhängen, und nach diesen Daten kann dann problemlos eine geordnete Stückliste erstellt werden. Branchenspezifische Applikationen, die beliebige geometrische Objekte, also auch 3D-Volumenkörper erzeugen, hängen diese Daten dann auch gleich bei der Erzeugung an die Objekte.

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

---

Hy

ist nicht einfach so, aber deine Tabele past auch nicht zum Bild 

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

Inf_AVC-ToolsUberblick_2021.pdf

Schau dir mal die AVC-Tools aus dem Adesk-Appstore an. Unter vielen anderen für den Möbelbauer interessanten Funktionen gibts auch eine Stückliste.
In der Anlage ein Info-Blatt zu einigen der Tools aus meinem Unterricht.

Gruß

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

---

Exakt was ich gesucht habe, super Tools.
Vielen Dank dafür. 

Wünsche einen schönen Tag

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

---

Hier noch die Lisp für Leute die dieselbe Funktion benötigen wie ich.
Solidkörper und Blöcke dürfen allerdings keine Rotationen enthalten, sprich müssen parallel zu den Achsen verlaufen.
Mit Lay von avc ist das sehr gut realisierbar.

(defun c:SolidBlocks ( / msp blks objects pt i obj MIP MAP x y z data blk_lst DataTable row col)
(or *adoc* (setq *adoc* (vla-get-activedocument (vlax-get-acad-object))))
(setq msp    (vla-get-modelspace *adoc*))
(if (and
      (setq objects (ssget '((0 . "INSERT,3DSOLID"))))
      (setq pt (getpoint "\nSelect Table Location : "))
    )
  (progn
(repeat (setq i (sslength objects))
(setq obj (vlax-ename->vla-object (ssname objects (setq i (1- i)))))
;; From Dimensions lisp ;;
(vla-GetBoundingBox obj 'minpoint 'maxpoint)
(setq MIP (vlax-safearray->list minpoint))
(setq MAP (vlax-safearray->list maxpoint))
(setq x (- (car MAP) (car MIP)))
(setq y (- (cadr MAP) (cadr MIP)))
(setq z (- (caddr MAP) (caddr MIP)))
  ;; From Dimensions lisp ;;
  (setq data (list
  (cond
    ( (eq "AcDbBlockReference" (setq objname (vla-get-objectname obj)))
(vlax-get obj (if (vlax-property-available-p obj 'effectivename
) 'effectivename 'name
    )
  )
    )
    ( (eq "AcDb3dSolid" objname) "3D Solid"))
    (rtos x 2 0) (rtos y 2 0) (rtos z 2 0)))
(setq blk_lst
  (if (not (setq f (assoc data blk_lst)))
  (cons (list data 1) blk_lst)
  (subst (list data (1+ (cadr f))) f  blk_lst)))  
  )
    (setq blk_lst (vl-sort blk_lst '(lambda (j k )(< (caar j)(caar k)))))
(setq DataTable (vla-addtable msp (vlax-3d-point pt) 2 6 8.5 230))
(vla-put-regeneratetablesuppressed DataTable :vlax-true)
    (if (= actitlerow (vla-getrowtype DataTable 0)) (vla-DeleteRows DataTable 0 1))
(mapcar '(lambda (y)
  (vla-settext DataTable 0 (car y) (cadr y))
  (vla-setcelltextheight DataTable 0 (car y) 3.00)
                      )
'((0 "")(1 "Object/Block name")(2 "Count")(3 "Length X")(4 "Width X")(5 "High Z"))
)
      (vla-SetColumnWidth DataTable 0 15.0)
      (setq col 0)
      (repeat 5
          (vla-SetColumnWidth DataTable (Setq col (1+ col)) 42.00)
)
      (vla-SetRowHeight DataTable 0 8.5)
   
      (vla-InsertRowsAndInherit DataTable 1 0 (length blk_lst))
      (setq row 1)
      (foreach itm blk_lst
(setq objData (Car itm))
(mapcar '(lambda (d n)
  (vla-settext DataTable row n d))
(append (list (itoa row)(car objData)(itoa (cadr itm)) )(cdr objData))
'(0 1 2 3 4 5))
(setq row (1+ row))
)
      (vla-put-regeneratetablesuppressed DataTable :vlax-false)
      )
    )
(princ)     
    )

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