I have a subroutine that does most of it... here's the important part:
Dim ATW_DrawingDoc As SldWorks.DrawingDoc
ATW_DrawingDoc = swApp.ActiveDoc
ATW_DrawingDoc.InsertModelAnnotations2(0, False, 32776, True,
ATW_DisplayDimension = ATW_View1.GetFirstDisplayDimension3()
Do Until ATW_DisplayDimension Is Nothing
alloutAbove) "FID" Then
Dim i_Annotation As SldWorks.Annotation
i_Annotation = ATW_DisplayDimension.GetAnnotation
boolstatus = i_Annotation.Select2(False, 1)
ATW_DisplayDimension = ATW_DisplayDimension.GetNext4()
Sadly, I had to get my email changed because of all the spam
I was getting at work. I have to believe it was from having
it posted here several times. Big oops on my part. I just sent
you an e-mail that should have my correct sending address.
Of course, that's if you use that yahoo account.
If you don't read it, my new email is the same, just with a '3'
on the end of 'dvanzile' So it would be dvanzile3@....... you
know the rest.
Thanks for any help on this!!!!
Yes, sometimes there will be no response. But, I believe it's not because
nobody cares, but rather that nobody has any idea about how to answer it.
In some cases, more information is needed to even attempt an answer, and
that request is usually put forth. But sometimes the question seems
straight-forward enough to be clear, but there is no answer to the question.
Personally, sometimes I'm here scratching my head thinking, "I don't have a
clue - hopefully someone does." And sometimes, if a question sits
unanswered for a while, someone will step in with the obvious (by then) -
"We don't have a clue!" So, if you have a thought, spit it out - that way
the question won't appear to be ignored.