---

Hallo,

ich suche Baugruppen deren Name ein Zeichen vor dem Ende ".stl" enthält. Das funktioniert mit dem get_selection-Befehl unten auch meistens, aber nicht immer.

Durch die Fehlerbehandlung von sdcalls läuft das Macro zwar weiter, aber die Baugruppen fehlen dann.

Kann ich an dem get_selection Befehl noch etwas ändern damit es bei allen Baugruppen funktioniert oder muss ich rausfinden warum es bei den Baugruppen nicht funktioniert ?

Oder hilft es alles nicht und ich muss die Suche komplett anders schreiben ?

(setf BG-lst (sd-call-cmds (get_selection :focus_type *sd-assembly-seltype*
                                :check_function
                                #'(lambda (si)
                                    (let ()
                                      (if (string= ".stl" (subseq (SD-INQ-OBJ-BASENAME  si) (- (length (SD-INQ-OBJ-BASENAME  si)) 5 ) (- (length (SD-INQ-OBJ-BASENAME  si)) 1 )))
                                          : ok
                                          :filter
                                        );;if
                                      );;let
                                    );;lambda
                                  :select :recursive :in_assembly BGL)
          :failure (display "Stuecklistenbaugruppen dieser Hauptbaugruppe werden nicht exportiert !!")
  )
)

Tschuess
Martin

------------------
OSDM - Die freie Wissensdatenbank
OneSpaceManager Forum

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

---

Ist das nicht offensichtlich? Ich sehe spontan mindestens zwei Fehler - drei, wenn Du noch eine Version vor v15 benutzen solltest.

Die ersten beiden Fehler sind, dass Du zweimal Dich darauf verlaesst, dass die Strings eine Mindestlaenge haben.

Claus

------------------
CoCreate OneSpace Modeling FAQ: http://www.clausbrod.de/OneSpaceModeling/

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

---

Hallo Claus,

vielen Dank für den Hinweis. Dadurch konnte ich den Abbruch von get_selection beseitigen.
Mir fehlt wohl noch Programmiererfahrung um solche "offensichtlichen" Fehler zu erkennen. 

(setf BG-lst (sd-call-cmds (get_selection :focus_type *sd-assembly-seltype*
                                :check_function
                                  #'(lambda (si)
                                        (let ()
                                          (setf BN (format NIL "xxxxx~A" (SD-INQ-OBJ-BASENAME  si)))
                                          (if  (string= ".stl" (subseq BN (- (length BN) 5 ) (- (length BN) 1 )))
                                                : ok
                                                :filter
                                          );;if
                                        );;let
                                      );;lambda
                                :select :recursive :in_assembly BGL)
      :failure (display "Stuecklistenbaugruppen dieser Hauptbaugruppe werden nicht exportiert !!")
    )
)

Tschuess
Martin

------------------
OSDM - Die freie Wissensdatenbank
OneSpaceManager Forum

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

---

Eventuell koenntest Du fast den gesamten Code auch durch einen einzigen Aufruf von sd-string-match-pattern-p ersetzen. Beispiel:

Code:

---

  (sd-string-match-pattern-p "*.stl" name)

---

Details zu dieser Funktion gibt es in der IKIT-Dokumentation.

Claus

------------------
CoCreate OneSpace Modeling FAQ: http://www.clausbrod.de/OneSpaceModeling/

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