---

Hallo Makrofreunde,
ich habe angefangen ein Makro zu schreiben, daß mich z.B. beim Extrudieren auch fragt, aus welchem Material das zu extrudierende Teil sein soll und dementsprechend gleich die Materialdichte und die Farbe anpaßt.

Leider weiß ich nicht genau, wo die Zuordnung der neuen Parameter erfolgen muß und vor allem wie.
Die einzelnen Programmteile sehen zZ. so aus:

(sd-defdialog 'quick_extrude
  : dialog-title "Extrudieren"
  : variables
    '((QE_PART
          : value-type : part-incl-new
          : title "Teil"
          : initial-value "/T1"
          : prompt-text "Identify part to be modified")
     
      (QE_MAT
            : title "Material"
            : initial-value "Stahl"
            : range ("Stahl" "Edelstahl" "Aluminium" "Messing" "Kupfer" "Blei" "Plexiglas" "Glas"))
     
      (QE_WP
          : value-type : wp-with-profile
          : title "AE"
          : prompt-text "Identify workplane to extrude")
      (DISTANCE
          : value-type :length
          : prompt-text "Specify distance to extrude"))
  : ok-action
      '(sd-call-cmds
        (extrude : part qe_part
                  : wp  qe_wp
                  : distance distance))
      ;------------------------------------------------------------------------------------------------------------------------------------------------------
      ; Diesen Teil möchte ich einfügen
      ; ich weiß nur nicht wo und wie genau !
     
     
     
        (case QE_MAT
(Stahl (set_part_inst_color  : parts :current :color :clr) ; Teileeigenschaften Farbe loeschen
                          (set_part_base_color  : parts :current :color :rgb 0.6,0.6,0.6) ; Grundeigenschaften Farbe
                          (set_part_inst_density  : parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen
                          (set_part_base_density  : parts :current :dens 0.0078)) ; Grundeigenschaften Dichte aendern
(Edelstahl (set_part_inst_color  : parts :current :color :clr) ; Teileeigenschaften Farbe loeschen
                          (set_part_base_color  : parts :current :color :rgb 0.991,0.873,0.394) ; Grundeigenschaften Farbe
                          (set_part_inst_density  : parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen
                          (set_part_base_density  : parts :current :dens 0.00845)) ; Grundeigenschaften Dichte aendern     
(Aluminium (set_part_inst_color  : parts :current :color :clr) ; Teileeigenschaften Farbe loeschen
                          (set_part_base_color  : parts :current :color :rgb 0.991,0.873,0.394) ; Grundeigenschaften Farbe
                          (set_part_inst_density  : parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen
                          (set_part_base_density  : parts :current :dens 0.00845)) ; Grundeigenschaften Dichte aendern   
(Messing ;(set_part_inst_color  : parts :current :color :clr) ; Teileeigenschaften Farbe loeschen
                          (set_part_base_color  : parts :current :color :rgb 0.991,0.873,0.394) ; Grundeigenschaften Farbe
                          ;(set_part_inst_density  : parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen
                          (set_part_base_density  : parts :current :dens 0.00845)) ; Grundeigenschaften Dichte aendern
(Kupfer (set_part_inst_color  : parts :current :color :clr) ; Teileeigenschaften Farbe loeschen
                          (set_part_base_color  : parts :current :color :rgb 0.991,0.873,0.394) ; Grundeigenschaften Farbe
                          (set_part_inst_density  : parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen
                          (set_part_base_density  : parts :current :dens 0.00845)) ; Grundeigenschaften Dichte aendern
(Blei (set_part_inst_color  : parts :current :color :clr) ; Teileeigenschaften Farbe loeschen
                          (set_part_base_color  : parts :current :color :rgb 0.991,0.873,0.394) ; Grundeigenschaften Farbe
                          (set_part_inst_density  : parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen
                          (set_part_base_density  : parts :current :dens 0.00845)) ; Grundeigenschaften Dichte aendern
(Plexiglas (set_part_inst_color  : parts :current :color :clr) ; Teileeigenschaften Farbe loeschen
                          (set_part_base_color  : parts :current :color :rgb 0.991,0.873,0.394) ; Grundeigenschaften Farbe
                          (set_part_inst_density  : parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen
                          (set_part_base_density  : parts :current :dens 0.00845)) ; Grundeigenschaften Dichte aendern
(Glas (set_part_inst_color  : parts :current :color :clr) ; Teileeigenschaften Farbe loeschen
                          (set_part_base_color  : parts :current :color :rgb 0.991,0.873,0.394) ; Grundeigenschaften Farbe
                          (set_part_inst_density  : parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen
                          (set_part_base_density  : parts :current :dens 0.00845)))) ; Grundeigenschaften Dichte aendern             
                         
;----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------               
               
                  )

Hat jemand einen Tipp, wie das funktionieren kann?

Vielen Danki im Voraus,

Michael.

p.s.: die Leerzeichen zwischen : und P sind teilweise wohl zu viel, aber wegen der Smilies...

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

---

extr_mat_lsp.txt

Hallo Michael,

anbei ein ueberarbeitetes Beispiel. Ich habe folgende Dinge gefixt:

1. Den Default-Wert fuer das zu extrudierende Teil intelligenter gemacht. D.h. jetzt wird entweder das aktive Teil genommen, oder wenn das nicht da ist, wird ein neuer Teilename generiert.

2. Den Range Value Type auf keyword umgestellt, denn CASE arbeitet nicht auf Strings.

3. In der ok-action exemplarisch fuer Stahl und Edelstahl Deine Zusaetze angefuegt.

Damit sollte es Dir gelingen, das "Makro" zu vollenden.

Viele Gruesse,
Markus

P.S.: In der SolidDesigner Programmierung sprechen wir ueblicherweise nicht von "Makros"! Das ist ein Relikt aus der ME10 Zeit, wo man in der Tat die ME10 Makrosprache benutzte, um ME10 zu erweitern. In SD schreibt man aber wirklich LISP Programme und ueblicherweise keine Makros! LISP ist eine vollwertige Programmiersprache.

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