Hallo Forum,
meine Diplomarbeit wird immer skurriler, denn nachdem ich die 3D Modelle dynamisch und parametrisch zusammengebaut habe (incl. Einfärbung mittels RenderStyle, Visibility...) sind nun Bemaßungen in der Baugruppe, also der gerenderten Ansicht, gewünscht.
Wie im Inventorforum zu lesen ist, habe ich dazu Skizzen eingeblendet, was jedoch den Nachteil hat, dass ich den Text nicht beeinflussen kann. Konkretes Beispiel in den Bildern. Ich muss also eine Möglichkeit finden, im 3D Modell schöne, am besten normgerechte Maße einzutragen, welche aber nicht die tatsächliche Geometrie darstellen, sondern einen beliegen Text aus VBA übergeben.
Ausprobiert habe ich schon:
1) Skizzenbemassung einblenden, kann leider nicht überschrieben werden (Außer im 2D, was mir nichts nützt)
2) Die Maße als Geometrie (Bitte nicht todlachen!:-)) zeichnen und Aufkleber mit dem Text dranfriemeln, d.h. Maßhilfslinie als kleinen Rundstab, Maßlinie als Stab mit Kegelspitzen...
3) Mittels VBA aus der Hilfe:
Public Sub ClientGraphicsText()
' Set a reference to the document. This will work with
' either a part or assembly document.
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
' Set a reference to the component definition.
Dim oCompDef As ComponentDefinition
Set oCompDef = oDoc.ComponentDefinition
' Attempt to get the existing client graphics object. If it exists
' delete it so the rest of the code can continue as if it never existed.
Dim oClientGraphics As ClientGraphics
On Error Resume Next
Set oClientGraphics = oCompDef.ClientGraphicsCollection.Item("Text Test")
If Err.Number = 0 Then
oClientGraphics.Delete
End If
On Error GoTo 0
ThisApplication.ActiveView.Update
' Create a new ClientGraphics object.
Set oClientGraphics = oCompDef.ClientGraphicsCollection.Add("Text Test")
' Create a graphics node.
Dim oNode As GraphicsNode
Set oNode = oClientGraphics.AddNode(1)
' Create text graphics.
Dim oTextGraphics As TextGraphics
Set oTextGraphics = oNode.AddTextGraphics
' Set the properties of the text.
oTextGraphics.Text = "Hier kann der Text rein!!!!!!"
oTextGraphics.Anchor = ThisApplication.TransientGeometry.CreatePoint(0, 100, 0)
oTextGraphics.Bold = True
oTextGraphics.Font = "Arial"
oTextGraphics.FontSize = 18
oTextGraphics.HorizontalAlignment = kAlignTextLeft
oTextGraphics.Italic = True
Call oTextGraphics.PutTextColor(0, 0, 0)
oTextGraphics.VerticalAlignment = kAlignTextMiddle
' Update the view to see the text.
ThisApplication.ActiveView.Update
End Sub
Eingegeben, jedoch habe ich dann ein Positionierungsproblem und mir fehlen noch die Linien. Das Beispiel stammt aus der IV7 Hilfe!
Meine Frage an euch:
Weiss jemand vielleicht eine Lösung für IV7 oder ein CAD Programm, welches das kann?
Vielen Dank im Voraus für eure Antworten!!!!
Gruß Arne
PS Zu den Bildern:
1) So solls sein, also gutaussehend mit anderen Maßtexten als tatsächlich konstruiert
2) Skizzenbemassung im IV, leider nicht überschreibbar
3) Erfolgte Überschreibung, nur leider im 2D und nicht 3D
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP