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.
Deze code werkt bij mij:
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.