| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Creo |
Autor
|
Thema: Blechmaterial über mehrere Teile zuweisen (951 mal gelesen)
|
Greskamp Mitglied Ingenieur
Beiträge: 523 Registriert: 12.03.2003 MS: Windows 10 64bit OSD: 20.1 M020 ModelManager: 20.1 M020 NX 1899 TC 12.3
|
erstellt am: 21. Dez. 2016 13:54 <-- editieren / zitieren --> Unities abgeben:
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 |
Patrick Weber Mitglied Konstruktionstechniker, Admin
Beiträge: 657 Registriert: 20.11.2006 Win7 Pro SP1 64Bit HP Z230, Core i5, 8GB RAM, nv Quadro K600 Creo Elements/Direct 19.0 M010 ModelManager 19.0 M010 clisp,VB.net,VBA,AHK,php,javascript
|
erstellt am: 22. Dez. 2016 07:48 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
|
Greskamp Mitglied Ingenieur
Beiträge: 523 Registriert: 12.03.2003
|
erstellt am: 22. Dez. 2016 07:56 <-- editieren / zitieren --> Unities abgeben:
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 |
Greskamp Mitglied Ingenieur
Beiträge: 523 Registriert: 12.03.2003 MS: Windows 10 64bit OSD: 20.1 M020 ModelManager: 20.1 M020 NX 1899 TC 12.3
|
erstellt am: 22. Dez. 2016 08:47 <-- editieren / zitieren --> Unities abgeben:
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 |
| Associate Manager Store Planning & Construction (m/w/d) | EINSTELLUNG Vollzeit BEGINN ab sofort BEFRISTUNG unbefristet GESELLSCHAFT Peek & Cloppenburg B.V. & Co. KG, Düsseldorf ANSPRECHPARTNER Alexandra Obsiadly STANDORT Zentrale Düsseldorf Wir sind Zahlenjongleure und Trendsetter, Zukunftsgestalter und Wertebewahrer, Konzeptentwickler und Ärmelhochkrempler, Leistungsträger und Teamplayer & so viel mehr.... | Anzeige ansehen | Assistenz, Sekretariat |
|
Patrick Weber Mitglied Konstruktionstechniker, Admin
Beiträge: 657 Registriert: 20.11.2006 Win7 Pro SP1 64Bit HP Z230, Core i5, 8GB RAM, nv Quadro K600 Creo Elements/Direct 19.0 M010 ModelManager 19.0 M010 clisp,VB.net,VBA,AHK,php,javascript
|
erstellt am: 22. Dez. 2016 09:03 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
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 |