Hallo,
Iemand die weet wat ik verkeerd programmeer? Hij wil mijn dynamisch blok niet in de tekening plaatsen. Hieronder bijgevoegde code.
Private Sub cmdOK_Click()
Dim x As Double
Dim y As Double
x = txt2.Value
y = txt1.Value
Call PlaatsDynamischblok(blokLivkast3, 0, 0, linear, breedte)
End Sub
Option Explicit
Sub tekenen()
UserForm1.Show
End Sub
Sub PlaatsDynamischblok(Bloknaam, x, y, Parameter, waarde)
Dim objBlokReferentie As AcadBlockReference
Dim invoegpunt(0 To 2) As Double
invoegpunt(0) = x
invoegpunt(1) = y
Set objBlokReferentie = ThisDrawing.ModelSpace.InsertBlock(invoegpunt, Bloknaam, 1, 1, 1, 0)
Variabelen = objBlokReferentie.GetDynamicBlockProperties
For i = LBound(Variabelen) To UBound(Variabelen)
If Parameter = Variabelen(i).PropertyName Then
Variabelen(i).Value = waarde
End If
Next i
objBlokReferentie.Update
End Sub
Iemand die weet wat ik verkeerd programmeer? Hij wil mijn dynamisch blok niet in de tekening plaatsen. Hieronder bijgevoegde code.
Private Sub cmdOK_Click()
Dim x As Double
Dim y As Double
x = txt2.Value
y = txt1.Value
Call PlaatsDynamischblok(blokLivkast3, 0, 0, linear, breedte)
End Sub
Option Explicit
Sub tekenen()
UserForm1.Show
End Sub
Sub PlaatsDynamischblok(Bloknaam, x, y, Parameter, waarde)
Dim objBlokReferentie As AcadBlockReference
Dim invoegpunt(0 To 2) As Double
invoegpunt(0) = x
invoegpunt(1) = y
Set objBlokReferentie = ThisDrawing.ModelSpace.InsertBlock(invoegpunt, Bloknaam, 1, 1, 1, 0)
Variabelen = objBlokReferentie.GetDynamicBlockProperties
For i = LBound(Variabelen) To UBound(Variabelen)
If Parameter = Variabelen(i).PropertyName Then
Variabelen(i).Value = waarde
End If
Next i
objBlokReferentie.Update
End Sub