---

Hallo,

jetzt gebe ich auf und Frage nach Hilfe.
Ich möchte im Sheet Metal Material über mehrere Teile zuweisen können. Es ist nervig wenn man 100 Teile hat und Material immer nur einzeln zuweisen kann.
Aber ein eigentlich eines Tool bringt mich an den Rand der Verzweiflung.

Ich bekomme das Material und die Dicke nicht über Variablen zugewiesen, vielleicht gibt es da einen TRick.

Code:

---

(in-package :sheet-advisor)
(use-package :OLI)

(export 'Befehl_ueber_Baugr_Sheet)

(sd-defdialog 'Befehl_ueber_Baugr_Sheet
:dialog-title "Befehl über Baugruppe Sheet"
:module "SHEETADVISOR"

:after-initialization
'(progn
(when (not (sd-module-active-p "SHEETADVISOR"))
(progn
(sd-display-error (sd-multi-lang-string
"Please activate sheet metal module first"
:german "Bitte zuerst Sheet Metal aktivieren"))
(cancel)
)
)
)
:variables
'(
(Teile_Befehl
:value-type :part
:multiple-items t
:modifies nil
:title "Teile auswählen"
:prompt-text "Alle Teile deren Blech geändert werden soll auswählen"
:initial-value nil ;keine automatische auswahl
)

(sel_Dicke
:title "Dicke wählen"
:range (
(0.50 :label "0.50")
(0.63 :label "0.63")
(0.75 :label "0.75")
(0.80 :label "0.80")
(1.00 :label "1.00")
(1.25 :label "1.25")
(1.50 :label "1.50")
(2.00 :label "2.00")
(2.50 :label "2.50")
(3.00 :label "3.00")
(4.00 :label "4.00")
(4.50 :label "4.50")
(5.00 :label "5.00")
(6.00 :label "6.00")
(8.00 :label "8.00")
(10.00 :label "10.00")
(12.00 :label "12.00")
(15.00 :label "15.00")
(20.00 :label "20.00")
)
:prompt-text "Bitte wählen Sie die Materialstärke aus"
:after-input (progn
(setq Dicke 5.00)
(display Dicke))
)

(sel_Material
:title "Material wählen"
:range (
(:VA1_4016 :label "VA1.4016")
(:VA1_4301 :label "VA1.4301")
(:VA1_4404 :label "VA1.4404")
(:Aluminium :label "Aluminium")
(:Stahl :label "Stahl")
(:S355 :label "S355")
(:DX54 :label "DX54")
(:S700MC :label "S700MC")
)
:prompt-text "Bitte wählen Sie das Material aus"
:after-input (progn
(cond
((equal sel_Material :VA1_4016) (setq Mat_Text "VA1.4016"))
((equal sel_Material :VA1_4301) (setq Mat_Text "VA1.4301"))
((equal sel_Material :VA1_4404) (setq Mat_Text "VA1.4404"))
((equal sel_Material :Aluminium) (setq Mat_Text "Aluminium"))
((equal sel_Material :Stahl) (setq Mat_Text "Stahl"))
((equal sel_Material :S355) (setq Mat_Text "S355"))
((equal sel_Material :DX54) (setq Mat_Text "DX54"))
((equal sel_Material :S700MC) (setq Mat_Text "S700MC"))
)
; (display Mat_text)
; (display "Aluminium")
; (display (sd-string= Mat_text "Aluminium"))
)
)

("-")

("Was soll getan werden?")

(BLECH_ZUWE :value-type :grouped-boolean
:title "Blech zuweisen"
:size :half ; oder :third
:initial-value t
)

(IRGENDWAS :value-type :grouped-boolean
:title "noch offen"
:size :half ; oder :third
:initial-value nil
)
);ende variables

:mutual-exclusion '(BLECH_ZUWE IRGENDWAS)

:cancel-action '()
:ok-action '(mach_es2)

:local-functions
'(
(mach_es2 ()

(dolist (ITEM Teile_Befehl)
(sd-call-cmds(sha_attach_material :sheet_part ITEM :material :material_plist '(:MATERIAL sel_Material :THICK 5.0) ))
)

); ende mach_es

);local
) ;Dialog

---

------------------
Gruß Peter

[Diese Nachricht wurde von Greskamp am 22. Dez. 2016 editiert.]

[Diese Nachricht wurde von Greskamp am 22. Dez. 2016 editiert.]

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

---

Vielleicht sind nur Materialien aus der SheetMetal-Technologiedatenbank zulässig und du weist einen String als Material zu, wo eine ID erforderlich ist.

------------------
Patrick

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

---

Also wenn ich z.B. aus dieser Zeile

Code:

---

(sd-call-cmds(sha_attach_material :sheet_part ITEM :material :material_plist '(:MATERIAL sel_Material :THICK 5.0) ))

---

Code:

---

(sd-call-cmds(sha_attach_material :sheet_part ITEM :material :material_plist '(:MATERIAL "Aluminium" :THICK 5.0) ))

---

mache, dann geht da schon.

------------------
Gruß Peter

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

---

Hallo Patrck,

wie gesagt, wenn ich den Befehl mit "Aluminium" durchlaufen lasse klappt ja alles.
Das Problem ist das die Variable nicht erkannt wird obwohl scheinbar alles gleich ist.

------------------
Gruß Peter

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

---

Ich habe kein SheetMetal, deshalb kann ich nur Dinge aufzählen, die mir unschlüssig erscheinen.

Der Key :Aluminium ist gleich dem String "Aluminium"?

------------------
Patrick

[Diese Nachricht wurde von Patrick Weber am 22. Dez. 2016 editiert.]

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