annotative blocks en VBA

[hakor]

Wie kent het volgende probleem:
Ik heb een annotative block. Als ik dat via het normale AutoCad insert plaats, of via Toolpalettes dan blijft het block annotative.
Als ik het echter plaats mbv een VBA routine verliest het block zijn annotativity. In de VBA help kan ik hier niets over vinden, lees ik er wellicht overheen?
Of is VBA voor AutoCad2008 nog niet aangepast?

hakor.

[EddyBeerke]

Deze code werkt bij mij:

Code Selecteer Uitklappen

Sub InsertBlock()
Dim Blok As AcadBlockReference, PP, Schaal#
'Hier de schaan aanpassen:
Schaal = 1


'Insertionpoint:
PP = ThisDrawing.Utility.GetPoint(, "Inspoint:")

'Het daadwerkelijk inserten
Set Blok = ThisDrawing.ModelSpace.InsertBlock(PP, "test", Schaal, Schaal, Schaal, 0)
End Sub

Het is van belang dat je een uniforme schaal hebt.