---

Hallo Forum,

ich moechte mir ein Macro schreiben, mit dem ich mir mehrere Kanten auswaehlen kann. Anschliessend sollen alle ausgewaehlten Kanten, selektiert werden. Z.B ich habe 2 kanten, mit der laenge 120mm und 80mm ausgewaehlt. Im Bauteil sind nun aber 10 Kanten mit der laenge 120mm, und 8 Kanten mit der Laenge 80mm.
Wie kann ich nun mit get_selection die :check_funktion aufbauen,
um an meine Kanten zu kommen?

Kann mir da jemand helfen?

Gruss Michael
 

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

---

Hallo Michael,

Habe die Frage nicht ganz verstanden. Was ist denn das Kriterium, das "deine" Kanten erfuellen sollen? Die Kantenlaenge scheint es ja nicht zu sein. Was soll denn in der check_function getestet werden?
Oder ist das check-Kriterium "Kantenlaenge = 120mm oder 80mm" und das Ziel "Suche alle solchen Kanten"?

Gruss Dorothea

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

---

@Gatzer

So ganz verstehe ich deine Frage nicht !
Willst du haben, dass ausschliesslich nur Kanten gewaehlt werden koennen -> diese ginge mit *sd-edge-3d-seltype*

Hilfe zu "get_selection" findest du hier:
C:\Programme\CoCreate\OSD_Modeling_2005\help\osdm\Common\documentation\integration_kit\reference\get_selection.html

Hilfe zu ":check-function" findest du hier:
C:\Programme\CoCreate\OSD_Modeling_2005\help\osdm\Common\documentation\integration_kit\reference\dg_manual.html

HTH

Gruss
RainerH.

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

---

Da war doch was ? http://ww3.cad.de/foren/ubb/Forum29/HTML/001553.shtml http://ww3.cad.de/foren/ubb/Forum29/HTML/001516.shtml

Gruß
Matthias

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

---

HK_Selektiere_Kanten_mehrfach.txt kanten.GIF

Hallo Dorothea,

um besser zu verstehen was ich moechte habe ich mal ein Bild,und das Macro angehangen.
Ich selektiere im Macro die beiden beschrifteten Kanten, messe dann die
Kantenlaenge, und schreibe sie in eine Liste. Bis hier klappt alles.
Aber nun möchte, das alle Kanten mit der Laenge 120mm und 80mm im Bauteil selektiert werden.

Ich hoffe das beschreibt mein problem besser.

Gruss Michael

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

---

Hallo Michael,

du kannst die Selektion mit einer Check-function ablaufen lassen.

(sd-call-cmds
      (get_selection
          :focus_type *sd-anno-geo-seltype*
          :check_function #'private::check-item-length   :select
  :by_sheet_docu_geo (oli::sd-am-inq-curr-sheet)
  )
      :success  (progn (setf bubu *SD-ACTION-RESULT*))
      :failure (progn
  (sd-display-error (sd-inq-error-obj :message))
  nil)
      )

Die Funktion in diesem Fall liegt weder im Dialog noch im selben
Lisp-Paket.

Grüßle

------------------
Klaus Lörincz
0174 3439 428
Sindelfingen
Germany

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

---

@Gatzer

ich wuerde es eventuell so loesen:

...
(get_selection
:focus_type *sd-edge-3d-seltype*
:check_function #'(lambda (einzelkante)
(progn
(setf kantenlaenge_einzelkante nil)
(setf kantenlaenge_einzelkante
(sd-call-cmds
(measure_dist :edge_length einzelkante)
)
)
;;(display kantenlaenge_einzelkante)
(if (or (= kantenlaenge_einzelkante 120)
(= kantenlaenge_einzelkante 80)
)
:ok
:filter
)
)
)
:select :in_part bauteil
)
...

HTH

Gruss
RainerH.

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

---

Hallo,

So wie Rainers Code waere auch mein Vorschlag. Vielleicht solltest du noch den Vergleich etwas "weicher" machen und statt = die Funktion sd-num-equal-p einsetzen. Dann bekommst du auch die Ungenauigkeiten im Resolution-Bereich mit abgefedert.

Der entscheidende Punkt ist glaube ich, die ungewollten Kanten in der check-function mit dem keyword :filter rauszufiltern. Wenn man naemlich dieses keyword statt :error verwendet, dann werden diese Elemente rausgenommen ohne das der Selektor einen Fehler produziert.

Gruss Dorothea

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

---

@Dorothea, RainerH, Klaus
danke fuer Eure Hilfe.

Klaus, bei Deiner Loesung bekomme ich folgende Fehlermeldung,
wenn ich das (in-package rivate) setze.
LISP-Fehler.
The function PRIVATE-CHECK-ITEM-LENGTH is undefined.

Setze ich es nicht, kommt die Fehlermeldung
LISP-Fehler
There is no package with the name PRIVATE

Kannst Du mir da nochmal einen Tip geben.

Gruß
Michael

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