Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  PTC Creo Elements/Programmierung
  Blechmaterial über mehrere Teile zuweisen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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


Sehen Sie sich das Profil von Greskamp an!   Senden Sie eine Private Message an Greskamp  Schreiben Sie einen Gästebucheintrag für Greskamp

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Patrick Weber an!   Senden Sie eine Private Message an Patrick Weber  Schreiben Sie einen Gästebucheintrag für Patrick Weber

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Greskamp 10 Unities + Antwort hilfreich

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

Greskamp
Mitglied
Ingenieur


Sehen Sie sich das Profil von Greskamp an!   Senden Sie eine Private Message an Greskamp  Schreiben Sie einen Gästebucheintrag für Greskamp

Beiträge: 523
Registriert: 12.03.2003

erstellt am: 22. Dez. 2016 07:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Greskamp an!   Senden Sie eine Private Message an Greskamp  Schreiben Sie einen Gästebucheintrag für Greskamp

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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 ansehenAssistenz, Sekretariat
Patrick Weber
Mitglied
Konstruktionstechniker, Admin


Sehen Sie sich das Profil von Patrick Weber an!   Senden Sie eine Private Message an Patrick Weber  Schreiben Sie einen Gästebucheintrag für Patrick Weber

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Greskamp 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz