---

hallo,
ich habe eine vorlage blech.ipt gemacht, wie kann man bei der blechdefinition ein material hinzufügen ?

gruss ee_gabriel

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

---

Hi G!
- erst das Material erstellen (Pulldownmenü Format/Material)
- dann in der Blechdefinition im kleinen Materialfenster auswählen
- mit Schaltfläche "neu" (in der Blechdefinition) den nächsten Eintrag erstellen
- usw. ...

Statt Material erstellen geht auch aus einer anderen Datei mittels Format/Organizer holen.

------------------
lg 
Tom

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

---

hallo
hat geklappt,
noch ne frage, das material hab ich drinnen, kann mann auch die blechstärke ins schriftfeld übernehmen? im eigenschaftsfeld kann
man alles mögliche aussuchen aber die blechstärke fehlt;

gruss ee_gabriel

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

---

Hi G!
Leider nein.
Da muß man ein bißchen vba-Dengeln.
Vielleicht haben da die Spezialisten Pisarz, mtl3d, daywalker, etc. was auf Lager ...

------------------
lg 
Tom

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

---

Hi!
Das Verfahren ist analog zum Gewicht im Schriftkopf, siehe http://ww3.cad.de/foren/ubb/Forum50/HTML/000651.shtml . Nur dass das Benutzerdefinierte Element diesmal "Dicke" heißt.

Hier das Progrämmchen:

Code:

---

Sub BlechdickeHolen()
'Schreibt die Blechdicke des Bauteils in die benutzerdefinierten Eigenschaften als Eigenschaft "Dicke"

'Nur im Sheet Metal Part:
If (ThisApplication.ActiveDocumentType = kPartDocumentObject) And (ThisApplication.ActiveDocument.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}") Then
 
  Dim oDoc As PartDocument
  Set oDoc = ThisApplication.ActiveDocument
 
  'Wie ist die Dicke?
  Dim sDicke As String
  sDicke = oDoc.UnitsOfMeasure.GetStringFromValue(oDoc.ComponentDefinition.ActiveSheetMetalStyle.Thickness.Value, oDoc.UnitsOfMeasure.LengthUnits)
 
  'Benutzerdefinierten Eintrag erzeugen
  'Dicke vorhanden?
  Dim bDickeDa As Boolean
  Dim oProp As Property
  bDickeDa = False
  For Each oProp In oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}") 'Benutzerdefiniert
    If oProp.Name = "Dicke" Then
      bDickeDa = True
      Exit For
    End If
  Next
  'Masse eintragen oder ändern
  If bDickeDa Then
    oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Dicke").Value = sDicke
  Else
    oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Add sDicke, "Dicke"
  End If

End If

End Sub

---

------------------
Grüße Jörgen

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

---

Das nenn ich prompt!
10 Unities unterwegs.

------------------
lg 
Tom

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

---

hallo,
danke mal, muss ich ausprobieren;
gruss ee_gabriel

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