---

Zaehlen.lsp

Hallo,

habe "Zaehlen.lsp" gefunden u. ausprobieren wollen. Funktioniert leider nicht in der PE-Version. Nachdem in der PE die Speichermenge auf 60Teile begrenzt ist wäre die Teilezählung ein brauchbares Werkzeug.
Kann da einer helfen?

------------------
Gerd

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

---

Was funktionert denn nicht. Gibts eine Fehlermeldung?

------------------
meine LISP-Makros sind mit vielen anderen aus diesem Forum auf osd.cad.de Disclaimer
Grüße aus Wien

Walter

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

---

Teile_zaehlen.png

Nicht mit PE versucht:

         

------------------
meine LISP-Makros sind mit vielen anderen aus diesem Forum auf osd.cad.de Disclaimer
Grüße aus Wien

Walter

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

---

Kann es sein, daß bei dir kein Eintrag in der Toolbox erscheint ?
Dann gebe mal in der Eingabezeile dies ein:

dc4-teile-bilanz-dialog

Ältere Tools müssen noch angepaßt werden, um in der Toolbox zu erscheinen.
Wie das geht, siehe hier:
http://osd.cad.de/anleitungen_25.htm

Ich hab es jetzt geändert, kannst hier nochmal neu herunterladen:
http://osd.cad.de/lisp_3d_17.htm

In der PE6 funktioniert es übrigens.

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

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

---

Hallo Matthias,

danke für die Hilfe. Habe in meine Lisp ":toolbox-button t" nachgetragen. Jetzt funktŽs. 

------------------
Gerd

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

---

Zitat:

---

Original erstellt von Walter Geppert:
Nicht mit PE versucht:

---

Hehe..  mittelgrosse Baugruppe.

Performance mäßig schnarcht das Tool aber etwas, oder? Kannst/Magst Du mal messen Walter, mit genau dem Beispiel auf Deinem System? Messe 7 mal, streiche das schlechteste und das beste Ergebnis, von den restlichen 5 nehme den Durchschnitt.

Als Datenbänkler würde mich natürlich mehr der Unique-Contents interessieren als die X-fachen Instancen.

Ich würde dazu tendieren den get_selection nur EINMAL aufzurufen... 

Welcher NICHT-Lisp-Profi hätte Lust ihre/seine Kenntnisse zu erweitern (mit Rückendeckung)?

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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

---

Zitat:

---

Original erstellt von der_Wolfgang:

Welcher NICHT-Lisp-Profi hätte Lust ihre/seine Kenntnisse zu erweitern (mit Rückendeckung)?

---

Ein bissel was hab ich schon dazugelernt seit 2003...
Da gabs noch nicht mal Gewindefeatures und vierstellige Teilezahlen waren das Maximum, von Speicherplatz und 64Bit ganz zu schweigen 

------------------
meine LISP-Makros sind mit vielen anderen aus diesem Forum auf osd.cad.de Disclaimer
Grüße aus Wien

Walter

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

---

Hallo zusammen,

wer könnte das Zaehlen.lsp so verändern das es folgendes tut.

Es sollte Baugruppen und Teile zählen können, aber ohne die
mehrfachverwenden Exemplare.

Besteht eine Baugruppe aus 3 unterschiedlichen Teilen
wobei jedes 2 Exemplare hat, sollte das Ergebnis

1 Baugruppe
3 Teile

und nicht

1 Baugruppe
6 Teile

ausgegeben werden.

Viele Grüße

Steffen

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

---

Hallo,

ohen groß zu probieren und aus einer anderen Lisp geklaut!

Teste mal in Zeil 57 dies aus:

Code:

---

(setf total (length (remove-duplicates (sd-call-cmds (get_selection :focus_type *sd-part-seltype* :allow_wire_part :allow_face_part :select :recursive :in_assembly bgr)):test #'equal :key #'sd-inq-obj-contents-sysid)))

---

Funzt das? Falls ja sollte das bei den BG ähnnlich gehen!
Gruß Michael

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

---

Zitat:

---

Original erstellt von MiBr:
Hallo,

ohen groß zu probieren und aus einer anderen Lisp geklaut!

Teste mal in Zeil 57 dies aus:

Code:

---

(setf total (length (remove-duplicates (sd-call-cmds (get_selection :focus_type *sd-part-seltype* :allow_wire_part :allow_face_part :select :recursive :in_assembly bgr)):test #'equal :key #'sd-inq-obj-contents-sysid)))

---

Funzt das? Falls ja sollte das bei den BG ähnnlich gehen!
Gruß Michael

---

Wird so nicht funktionieren, weil die sel-items natürlich alle unterschiedlich sein müssen.
Da muss man die contents-sys-ids vergleichen, das ist aber erheblich aufwendiger.

------------------
meine LISP-Makros sind mit vielen anderen aus diesem Forum auf osd.cad.de Disclaimer
Grüße aus Wien

Walter

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

---

Hallo, glaube schon dass das funzt. Vergleiche ja nach syskd. Gruß vom Handy Michael

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

---

Vielen Dank, passt

Viele Grüße

Steffen

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

---

...sorry, man sollte schon die ganze Zeile lesen 

------------------
meine LISP-Makros sind mit vielen anderen aus diesem Forum auf osd.cad.de Disclaimer
Grüße aus Wien

Walter

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

---

Zaehlen_20.png

Die Reduzierung auf den Inhalt ist etwas teuer. Deswegen habe ich es schaltbar gemacht. Ausserdem habe ich leete Teile berücksichtigt (leere Teile sind IMHO keine Volumenteile) und bin noch über RF Beziehungen gestoplert.

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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

---

Hallo,

kannst Du die Lisp Bitte mal hinterlegen. Benutze das Tool zwar nicht,
bin aber neugierig wie du die Anzeige 'Exemplar  |  Inhalt' hinbekommen hast.

Gruß Michael

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

---

Zaehlen_20.lsp

Hier erst mal der Ansatz EINmal selektieren und X mal zählen:

Code:

---

(let ((all-obj (sd-call-cmds (get_selection :focus_type (list *sd-assembly-seltype*
                                                              *sd-part-seltype*
                                                              *sd-layout-seltype*)
                                            :allow_wire_part :allow_face_part
                                            :no_highlight
                                            :with_stock_container
                                            :select :recursive :in_assembly bgr)))
  )

(setq ubgr  (count-if #'sd-inq-assembly-p all-obj)  )
(setq total (count-if #'sd-inq-part-p all-obj)      )
(setq dteil (count-if #'sd-inq-wire-part-p all-obj) )
(setq fteil (count-if #'sd-inq-face-part-p all-obj) )
(setq eteil (count-if #'sd-inq-empty-part-p all-obj))
...

---

Wegen der parallelen Ausgabe von Anzahl Instance/Contents wurde es dann noch nicht mehr so geradlinig. Aber immerhin musste ich so nur einmal die Duplicate entsorgen. Siehe Anhang.

@Michael, die Formatierung ist etwas tricky: mal sehen ob du es siehst:

Code:

---

(format-numbers (list-of-2)
  (format nil "~10,' D | ~10,' D" (car list-of-2) (if contents (cadr list-of-2) "-"))
  )

---

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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

---

Zahlen.png

Hallo Wolfgang,

ich habe dein neues Zählprogramm ausprobiert. Die Verbesserung in der Geschwindigkeit kann ich nicht finden. Eher im Gegenteil. Ich habe eine Baugruppe mit den verschiedenen Varianten zählen lassen:
1. Baugruppeneigenschaften - Statisik -> Ergebnis kommt sehr schnell
2. Zaehlen20.lsp -> ca. 10 s bis zum Ergebnis
3. Zaehlen.lsp -> ca. 3 s bis zum Ergebnis
   (ich habe hier bei allen get_selection noch das :with_stock_container hinzugefügt, sonst kommt eine Fehlermeldung)

Was mir auch noch aufgefallen ist, dass die Anzahl der BG nicht übereinstimmt. Bei den beiden lsp werden die Behälter auch als BG mit gezählt.

Zur Geschwindigkeit: Ich konnte bei mir keine "bremsenden" Teile finden. Bei kleinen BG ging es schneller, und der Unterschied wird kleiner. Bei großen BG wird es mühsam, da das neue Tool sehr lange braucht. Aber vom Prinzip immer das gleiche Ergebnis.

Grüße
Stephan

[Diese Nachricht wurde von StephanD am 08. Apr. 2022 editiert.]

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

---

Zitat:

---

Original erstellt von StephanD:
ich habe dein neues Zählprogramm ausprobiert
...
   (ich habe hier bei allen get_selection noch das :with_stock_container hinzugefügt, sonst kommt eine Fehlermeldung)

---

Ja.. das hatte ich ja geschrieben .. da kommt was mit "x Elemente konnten nicht selektiert werden" .. deswegen die Roh/Fertig Bez. ( = Stock Finish)

Zitat:

---

Was mir auch noch aufgefallen ist, dass die Anzahl der BG nicht übereinstimmt. Bei den beiden lsp werden die Behälter auch als BG mit gezählt.

---

Ja das stimmt schon so. Behälter sind nur speziell gekennzeichnete Baugruppen. Deswegen werden diese an verschiedene Stellen gleichbehandelt.
siehe. z.b. ===>> IKIT docu:

Code:

---

Base Types:
*sd-assembly-seltype* Assembly (and Container)
*sd-container-seltype* Container

---

Man kann also beide Varianten als 'richtig' bezeichnen.. je nach Sichtweise. Was hilft wäre im letzen schritt noch ein

Code:

---

(setq ubgr (- ubgr cntteil)) ;; diese deutschen variablen namen . ich stolper immer wieder drüber

---

[edit]ach halt. Das sind es ja keine numbers mehr sondern schon strings. Also ggf. so vorgehen wie bei Berechnung von vteil[/edit]

Leider habe ich die Ausgabe von Zeitmessungen schon rausgeschmissen. Mir ist an andere Stelle aber auch mal aufgefallen das interpretierer LISP code vom Zeitverhalten anders zeigt als compilierter LSP code.

Wenn man keine besonderen Objekte zählen will, kann man ja auch gleich bei [i]Baugruppeneigenschaften - Statisik  bleiben... 

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

[Diese Nachricht wurde von der_Wolfgang am 08. Apr. 2022 editiert.]

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

---

Zitat:

---

Original erstellt von StephanD:
Die Verbesserung in der Geschwindigkeit kann ich nicht finden.

---

Da ich mich aktuell von der professionellen CAD Welt für 'ein paar Tage' verabschiede kann/möchte ich diesbezüglich keine Aussage kräftigen  Perfomance Messungen durchführen. -- Der Hobbyist bleibt, mit jahreszeitlich bedingten Schwankungen, erhalten.

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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