---

Moin moin.
wir wollen zukünftig auf allen unseren Bauteilen die Zeichnungsnummer (Dateiname) schreiben. Entweder mit Laser oder gravieren oder mit Schlagzahlen.
Damit die Kollegen es etwas einfachen haben, hatte ich die Idee, ein iFeature zu machen, was einen Körper (oder Materialschnitt) zu dem jeweiligen Bauteil hinzufügt und den Dateinamen in ca. 3 mm großen Buchstaben darstellt.
Ich konnte in einer Skizze einen Text erzeugen und dort Parameter anwenden. Leider keine aus den iProperties. Auch ein händisches Schreiben von z. B. "=<part name>" oder %username% oder $home hat nicht funktioniert.
Im Zeichnungsmodus kann ich allerdings ganz roblemlos auf die gesuchten Parameter zugreifen.      
Das Neuanlegen von Parametern funktioniert nur bei Zahlen. Einen Parameter vom Typ Text (String) läßt Inventor nicht zu.
Dann habe ich festgestellt, daß sich ein Körper, der aus einem Text erzeugt wurde, nicht in ein iFeature einbinden läßt.
Mein nächster Versuch war die Installation von den iProperty 2.4.1. Die Funktionen sind zwar ganz nett, haben mir aber auch nicht weiter geholfen.

Hat noch jemand eine Idee?

[Diese Nachricht wurde von der berater am 21. Jul. 2008 editiert.]

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

---

Ich hatte die gleichen Probleme, ich hab mir dann ein Bauteil mit der Skizze inklusive Text in den iPartordner gelegt, wenn Du die mit nem Einfügepunkt versiehst kannst Du die Skizze genauso kopieren, einfügen und musst nur noch extrudieren.
Viel Erfolg

[Diese Nachricht wurde von Soldi am 22. Jul. 2008 editiert.]

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

---

hast du denn eine lösung für die problematik mit dem parameter von dem dateinamen gefunden oder editierst du den text manuell?

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

---

Zitat:

---

Original erstellt von der berater:
hast du denn eine lösung für die problematik mit dem parameter von dem dateinamen gefunden oder editierst du den text manuell?

---

Ich editiere den Text eh manuell, da der Bauteilname nicht (oder nicht ganz) dem Text entspricht.

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

---

Probier dies mal
*********************
Sub EmbossText()

Dim odoc As PartDocument
Set odoc = ThisApplication.ActiveDocument
Dim odoc_name
odoc_name = odoc.DisplayName
Dim name_clean_len As Integer
name_clean_len = Len(odoc_name) - 4
Dim name_clean
name_clean = Left(CStr(odoc_name), name_clean_len)
Dim oEmboss As EmbossFeature
Set oEmboss = odoc.SelectSet(1)

Dim oProfilePath As ProfilePath
For Each oProfilePath In oEmboss.Profile

If oProfilePath.TextBoxPath Then
Dim oTB As TextBox
Set oTB = oEmboss.Profile.Item(1).TextBox

oTB.FormattedText = name_clean
End If
Next

odoc.Update

End Sub

------------------

"Das Motto des Tages"
Wir hatten nie 'ne Schulung in Inventor
Wir hatten nie 'ne Schulung in Methodik
Wir haben keinen Wartungsvertrag
Wir haben keinen Admin
Wir haben trotzdem Spaß!

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

---

Moin,
kannst du mit eine Schritt für Schritt Anlitung geben, damit jemand wie ich, der sich mit dieser Art von Programmierung nicht auskennt, das auch schafft?
Danke im Voraus.

Zitat:

---

Original erstellt von Frank_Schalla:
Probier dies mal
*********************
Sub EmbossText()

Dim odoc As PartDocument
Set odoc = ThisApplication.ActiveDocument
Dim odoc_name
odoc_name = odoc.DisplayName
Dim name_clean_len As Integer
name_clean_len = Len(odoc_name) - 4
Dim name_clean
name_clean = Left(CStr(odoc_name), name_clean_len)
Dim oEmboss As EmbossFeature
Set oEmboss = odoc.SelectSet(1)

Dim oProfilePath As ProfilePath
For Each oProfilePath In oEmboss.Profile

If oProfilePath.TextBoxPath Then
Dim oTB As TextBox
Set oTB = oEmboss.Profile.Item(1).TextBox

oTB.FormattedText = name_clean
End If
Next

odoc.Update

End Sub

---

------------------
Theorie ist Marx 

Praxis ist Murks 

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

---

Schau doch mal hier.

https://inventorfaq.blogspot.de/2017/04/inventor-automatisieren.html

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

---

Oder hier
https://inventorfaq.blogspot.de/2011/04/bauteilnummer-iproperty-in-skizze-als.html
Gruß
Burkhard

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