Automatic increase annotation value
Automatic increase annotation value
(OP)
Hello to you all
I have to identify over 200 objects with a code which includes a number eg FR01 to FR200. Is there an easier way of inserting the annotation which would automatically increase the number by 1. Could a lisp do it?
Any advice would be appreciated
I have to identify over 200 objects with a code which includes a number eg FR01 to FR200. Is there an easier way of inserting the annotation which would automatically increase the number by 1. Could a lisp do it?
Any advice would be appreciated





RE: Automatic increase annotation value
You have to be a little more specific what you are trying to accomplish.
"Whether you think that you can, or that you can't, you are usually right "
.. Henry Ford
RE: Automatic increase annotation value
VBA Code Follows....
CODE
Dim objText As AcadText
txt = "FR"
For i = 1 To 200
ptStart = ThisDrawing.Utility.GetPoint(, "Pick the center point for the text: ")
Select Case i
Case Is > 99
txt = txt & Trim(Str(i))
Case 10 To 99
txt = txt & "0" & Trim(Str(i))
Case 1 To 9
txt = txt & "00" & Trim(Str(i))
End Select
Set objText = ThisDrawing.ModelSpace.AddText(txt, ptStart, 0.2)
objText.Update
txt = "FR"
Next i
End Sub