---

Hallo,

es gibt ja auf Lisp 3D 17 die Lisp-Datei (Exemplaranzeige.lsp) zum zählen und anzeigen der Exemplare innerhalb einer definierten Baugruppe.

Es werden alle Exemplare angezeigt. Ich benötige aber eine Funktion die mir nur die Exemplare, die nicht in einem Behälter sind, anzeigt und zählt.

Gibt es dazu etwas passendes oder hat jemand einen Programmierhinweis?

Vielen Dank.

Grüße
Stephan

[Diese Nachricht wurde von StephanD am 28. Mrz. 2018 editiert.]

[Diese Nachricht wurde von StephanD am 28. Mrz. 2018 editiert.]

[Diese Nachricht wurde von StephanD am 28. Mrz. 2018 editiert.]

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

---

Hallo Stephan,

Zitat:

---

Original erstellt von StephanD:Ich benötige aber eine Funktion die mir nur die Exemplare, die nicht in einem Behälter sind, anzeigt und zählt.

Gibt es dazu etwas passendes

---

Das es da etwas passendes gaebe bezweifle ich, das ist schon eine spezielle Anforderung.

Du koenntest bei den aufgesammelten Exemplaren mit zwei IKIT funktionen pruefen ob das Exemplar in einem Behaelter ist:

Code:

---

(sd-inq-container-p (sd-inq-parent-obj a-item))

---

Das geht halbwegs..
aber bei /ass->container->ass->subass->part wirds schon kniffliger.

erste Idee:
selektiere alle BAUGRUPPEN (dabei container rausfiltern) innerhalb der Quellbaugruppe. Durch die Liste dieser Baugruppen rennst Du dann x-mal mit dem Ansatz von Exemplaranzeige.lsp.

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

Zitat:

---

es gibt ja auf http://osd.cad.de/lisp_3d_17.htm die Lisp-Datei..

---

vorab: die URL ist dir etwas misglueckt:
falsch ist:
{URL=http://INTERNETADRESSEHIER}http://osd.cad.de/lisp_3d_17.htm{/URL}
richtig waere:
{URL=http://osd.cad.de/lisp_3d_17.htm}Lisp 3D 17{/URL}

natuerlich mit eckigen Klammern, statt der geschweiften

------------------
● 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 Wolfgang,

danke für den Ansatz. In diese Richtung habe ich auch schon mal gedacht, aber da ich nicht so fit beim Programmieren bin, wollte ich zuerst mal fragen. Das scheint mir kompliziert zu werden.

Ich werde mal versuchen das umzusetzen.

Grüße
Stephan

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

---

Mit dieser Funktion kannst du für jedes Objekt prüfen, ob es sich in einem Behälter befindet:

Code:

---

(behaelterobjekt-pruefen (object)
(let (returnwert pfad)
(progn
(setf returnwert nil)
(setf pfad object)
(loop
(when (equal (sd-inq-parent-obj pfad) nil)
(return) ;; Ausstieg wenn im Root oder der Kontext-BG angelangt
)
(if (sd-inq-container-p pfad)
(progn
(setf returnwert t)
(return) ;; Ausstieg wenn ein Behaelter im Pfad gefunden
)
(setf pfad (sd-inq-parent-obj pfad))
)
)
returnwert
)
)
)

---

Das Ganze dann in Verbindung mit remove-if

Code:

---

(setf exlist (remove-if #'(lambda (x) (behaelterobjekt-pruefen x)) exlist))

---

liefert dir das gewünschte Ergebnis.

------------------
Viele Grüße
Felix

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

---

Hallo Felix,

dein Ansatz ist super. Die ersten Versuche sind schon erfolgreich. Jetzt muss ich noch das ganze hübsch und bedienerfreundlich machen und prüfen.

Grüße
Stephan

[Diese Nachricht wurde von StephanD am 29. Mrz. 2018 editiert.]

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

---

exemplaranzeige_Anzahl.lsp.txt

Hallo,

hier nun meine Lösung für mein angefragtes Problem.
Damit ist es möglich die Anzahl bestimmter Teile in definierten Baugruppen zu ermitteln. Es wird die Anzahl innerhalb und außerhalb von Behältern angezeigt.
Auf Wunsch können die gefundenen Teile eingeblendet werden.

Das Grundgerüst für dieses Makro habe ich aus http://osd.cad.de/downloads/exemplaranzeige.lsp bzw. http://osd.cad.de/lisp_3d_17.htm

Viel Spaß beim Testen und Verwenden.

Stephan

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