Hello Jon,
Yay, I have everything. 🙂
Right I don't know if this will be hard to follow or not...
I start by making a selection set on my drawings of all the dimensions I
wish to add text to, then I invoke this routine,
Public Sub AddTypText()
If Not CheckSelectSet(ThisApplication.ActiveDocument) Then
MsgBox "No selections have been made.", vbOKOnly, "Nothing
Selected"
Exit Sub
End If
AddText ThisApplication.ActiveDocument.SelectSet, vbCrLf & "Typ",
False
End Sub
This sub will add "Typ" to all the dimensions I have selected on my drawing
sheet, however before this will happen I make sure something is selected by
using the "CheckSelectSet" function here...
Private Function CheckSelectSet(pvarDoc As Document) As Boolean
If pvarDoc.SelectSet.Count > 0 Then CheckSelectSet = True
End Function
Now I know I have made selections, we can continue 🙂 This is the nitty
gritty bit...
Public Sub AddText(pvarSelectSet As SelectSet, pvarText As String,
pvarBefore As Boolean)
Dim varObject As Object
For Each varObject In pvarSelectSet
If pvarBefore Then
varObject.Text.FormattedText = PreText(pvarText,
varObject.Text.FormattedText)
Else: varObject.Text.FormattedText = PostText(pvarText,
varObject.Text.FormattedText)
End If
Next varObject
End Sub
As I've mentioned before, due to the new dimensions sharing similar object
properties, I iterate through the selection set using a Generic object
variable. The dimension text I want to modify is obtained from this portion
here, "varObject.Text.FormattedText", this is where the existing dimension
text is held as far as I'm concerned, as you will see from the two functions
below, they use "varObject.Text.FormattedText" in order to obtain the
correct value(assumption here, don't quote me) of the dimension and then add
the selected text to the dimension text, depending on which function has
been called will define where the text is placed with respect to the
dimension text.
From "Public Sub AddTypText()" and in particular this line, "AddText
ThisApplication.ActiveDocument.SelectSet, vbCrLf & "Typ", False", you can
see I wish "Typ" to be added to all the dimensions I have selected at the
end of the dimension text, "False" stipulates this at the end of the line
The two Functions called from "Public Sub AddText(pvarSelectSet As
SelectSet, pvarText As String, pvarBefore As Boolean)" create the complete
string of dimension text to be assigned to the dimension...
Private Function PreText(pvarText As String, pvarDimText As String) As
String
PreText = pvarText & pvarDimText
End Function
and
Private Function PostText(pvarText As String, pvarDimText As String) As
String
PostText = pvarDimText & pvarText
End Function
One of these functions will be called depending on where you would like your
text to be placed, both use the existing text of the dimension and either
add the new text to the beginning of the dimension text or at the end.
A routine that has no value whatsoever when coding, however when in a tight
corner can really let you know what you're dealing with...
Public Sub CheckSelections()
Dim varSelect As Inventor.SelectSet
Set varSelect = ThisApplication.ActiveDocument.SelectSet
End Sub
This routine works on this basis, I have one variable declared "varSelect",
I will create a Selection in the current document and then Step(F8) through
this routine, this will execute one line of code at a time. Have a look at
the picture. I stepped into this routine having made a selection of two
dimensions on my drawing document, using the "Locals Window"(View -> Locals
Window) I can see exactly what I have selected, what it is defined as being
and all the properties it supports. I believe it was this routine that got
me out of the predicament you're in now when I bumped into the same problem.
Hope this helps
Scott
