CADsite forum

Beste,

Ik zit met het volgende probleem:

Ik zou graag via vba een ‘block’ invoeren’ (een vlakke figuur) nadat ik deze heb ingevoerd zou ik graag van deze een ‘region’ maken om hem daarna te ‘extrude’.
Het invoeren van een ‘block’ is geen probleem, maar het vervolg wil niet meewerken.

De volgende code gebruik ik, kan iemand mij vertellen waar mijn fout zit?


Sub TestBlok()

    Dim RefPnt(0 To 2) As Double
    RefPnt(0) = 0: RefPnt(1) = 0: RefPnt(2) = 0
   
   
    Dim Blok As AcadBlockReference
    Set Blok = ThisDrawing.ModelSpace.InsertBlock(RefPnt, "C:\DampKappenKempa\LichtLijsten\new block2.dwg", 1, 1, 1, 0)
    Blok.Explode

    Dim kroon As Variant
    kroon = Blok.Explode
     
   
    Dim regionObj As AcadEntity
    Set regionObj = ThisDrawing.ModelSpace.AddRegion(kroon)
   
    Dim extrudeObj As Acad3DSolid
    Set extrudeObj = ThisDrawing.ModelSpace.AddExtrudedSolid(regionObj, 500, 0)
   


End Sub


mvg
Nico