---

Mahlzeit!

Ich bekomms mal wieder nicht hin (... die Lisp Grundlagen fehlen halt immer noch). Folgendes Problem möchte ich lösen:
- Abfragen der Auflösung aller Teile (rekursiv)einer Baugruppe
- die kleinste Auflösung herausfinden
- alle Teile der Baugruppe auf die kleinste Auflösung setzen

Folgendes hab ich schon:

Code:

---

;; Funktion zum wählen aller Teile rekursiv in Baugruppe     
    (select_parts ()
(setf Teile  (sd-call-cmds (get_selection :focus_type *sd-part-seltype* :select :recursive :in_assembly Importdaten)))
);end select_parts       

---

Dann hab ich mir gedacht mit dolist durch die Teile zu gehen und mit sd-inq-part-geo-resolution die Auflösung auszulesen. Die Auflösungen in eine Liste schreiben (Wie geht das?). Diese Liste dann nach der kleinsten Auflösung durchsuchen (?). Dann mit set_part_resoluton die Auflösung setzen...

... leider bring ich das nicht selbst zusammen.

Hat hier jemand einen Tipp für mich?

Gruss

Stephan

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

---

Helfen kann ich dir nicht, nur auf das genau.lsp hinweisen: http://osd.cad.de/anleitungen.htm#08
Vielleicht sind da ein paar Anregungen für dich drin ?

------------------
Matthias                   OneSpace Modeling Hilfeseite , FAQ

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

---

Zitat:

---

Original erstellt von highway45:
...nur auf das genau.lsp hinweisen

---

Das sollte sich mit kleinen Anpassungen realisieren lassen.
Andererseits finde ich es keine gute Idee, ohne Not ganze Baugruppen zu verschlimmbessern, indem man die Genauigkeit herunterdreht, schon gar nicht vollautomatisch! Wir kriegen auch manchmal die grausamsten Teile  als Import, aber lassen das Rundherum nach Möglichkeit auf 10E-6

------------------
meine LISP-Makros sind auf osd.cad.de
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

Hallo Matthias, Hallo Walter!

erstmal Danke für die schnelle Antwort!

Zitat:

---

Original erstellt von Walter Geppert:
Andererseits finde ich es keine gute Idee, ohne Not ganze Baugruppen zu verschlimmbessern, indem man die Genauigkeit herunterdreht, schon gar nicht vollautomatisch! Wir kriegen auch manchmal die grausamsten Teile     als Import, aber lassen das Rundherum nach Möglichkeit auf 10E-6
[/i]

---

... da bin ich ganz Deiner Meinung! In dem speziellen Fall sollen dann aber alle Teile der Baugruppe vereint werden. Somit gibt das ungenaueste Teil sowieso die Auflösung vor.
Ich habe Probleme beim vereinigen mit der Meldung bei verschiedenen Auflösungen, deshalb dachte ich ich schraub erst mal alle auf das mieseste runter....

Gruss

Stephan

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

---

Hallo Stephan,

prinzipiell bin ich gegen das Runterschrauben der Auflösung. Denn, wo fängst du an, wo hörst du auf? Heute willst du eine BG vereinen und knüppelst alles auf 1E-3 runter. Morgen willst du eben diese BG mit iener weiteren vereinen die bereits 1E-2 hat. Also knüppelst du die 1E-3 nun auch noch auf 1E-2 runter 

Wir handhaben das bei uns so dass wir uns das Programm 3D-Evolution von Goretechnologie zugelegt haben. Mit diesem Programm reparieren wir nicht nur defekte Teile oder konvertieren nicht nur fast alle Formate in fast alle Formate......wir haben sogar die Möglichkeit und bringen schlecht auflösende Teile aus dem Web oder aus Fremd-Programmen in unseren 1E-6-Standard.
D.h. dass unser Ziel ist KEIN EINZIGES Teil mehr unter 1E-6 in unserer Datenbank zu haben. Mittlerweile haben wir dies auch erreicht   
Papst

------------------
Der Papst empfiehlt:  Hilfeseite und FAQ zum OSM

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

---

Hallo Stephan,

ich habe das jetzt mal *trocken* runtergeschrieben. Es wird vermutlich nicht auf anhieb funktionieren (aber Du sollst ja auch noch selber nen Lerneffekt haben  )

Code:

---

(defun select_parts ()
(let ((Teile  (sd-call-cmds (get_selection :focus_type *sd-part-seltype* :select :recursive :in_assembly Importdaten)))
      (min-res 1000)
      res
      )
  ;; kleinste Auflösung suchen
  (dolist (ein-Teil Teile)
      (setq res (sd-inq-part-geo-resolution ein-Teil))
      (setq min-res (min min-res res))
      )
  ;; kleinste Auflösung setzen
  (sd-call-cmds
    (dolist (ein-Teil Teile)
      (when (> (sd-inq-part-geo-resolution ein-Teil) min-res) ;; gröber?
        (set_part_resoluton ein-Teil min-res)) ;; -> feiner!
      )
    )
  )
);end select_parts

---

Es wird also keine lange Liste mit allen Teile-Auflösungen aufgebaut, sondern immer nur geguckt, was kleiner ist.

min-res wird mit irgendetwas sehr großem initialisert. (man koennte auch mit NIL anfangen, muesste aber dann in der 1. Schleife dann erst wieder pruefen, ob min-res eine Zahl ist)

In der 2. Schlaufe werden dann die Teile verändert (falls notwendig).

folgende Anregungen:
a) in der 2. Schleife prüfen, ob das Teil evtl. ReadOnly ist
b) in der 2. Schleife, das sd-call-cmd bei jedem set_part_resolution anwenden und die :failure Moeglichkeit von sd-call-cmds ausnutzen, ggf. ein Protokoll schreiben ( display "Problem mit Teil xyz")
c) in der 2. Schleife einen Zähler inkrementieren, wenn ein Teil verändert wird. Dies wäre ein 'gescheiter' Rückgabewert für die Funktion. Alternative die sel-items der geänderten Teile aufsammlen (push ein-Teil geaenderte-Teile) und dann diese Liste als Rückgabewert nehmen.

Ich hoffe etwas auf die Sprünge geholfen zu haben.

------------------
Seamonkey Firefox Thunderbird  Seamonkey auf deutsch

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

---

Zitat:

---

Original erstellt von StephanWörz:
...ich schraub erst mal alle auf das mieseste runter....

---

Das findest du ja mit genau.lsp, dann einfach dieses Teil anklicken <rechte Maustaste> Teileigenschaften-Geo_Auflösung-kopieren_nach <Auswahl> alle Teile in BGR

------------------
meine LISP-Makros sind auf osd.cad.de
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

SD_Teileaufloesung_suchen.zip

@Stephan

Das hilft dir wahrscheinlich weiter ...
(hier werden alle Teile aufgelistet, welche kleine "1E-006" sind)

Ueber das runterschrauben der Aufloesung bin ich genau der selben Meinung - Wuerde es nicht machen 

Gruss
RainerH.

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