demasuredries
Gebruiker
- Lid geworden
- 21 okt 2014
- Berichten
- 18
Hallo
Hoe kan ik een willekeurig coordinaat in Autocad in een textbox krijgen in vba?
Ik heb een button gemaakt voor het kiezen van het basispunt met getpoint.
Daarnaast staan 2 textboxen. daarin zou de X-waarde en Y-waarde moeten komen die ik in autocad gekozen heb.
Hieronder heb ik tot nu toe deze code:
Private Sub cmdInsertVAZ_Click()
If frmKast.chkCoGeavanceerd And frmKast.chkVooraanzicht = True Then
Call Mod_VarFormules
Call Mod_VAZGeavanceerd
Call Mod_VAZGeavanceerd2
Call Mod_VAZAlgemeen
MsgBox " Geef het BASISPUNT voor het VOORAANZICHT in aub."
InvoegpuntVAZ = ThisDrawing.Utility.GetPoint(, vbCr & "Insertion point: ")
frmKast.Show
End If
End Sub
Hoe kan ik een willekeurig coordinaat in Autocad in een textbox krijgen in vba?
Ik heb een button gemaakt voor het kiezen van het basispunt met getpoint.
Daarnaast staan 2 textboxen. daarin zou de X-waarde en Y-waarde moeten komen die ik in autocad gekozen heb.
Hieronder heb ik tot nu toe deze code:
Private Sub cmdInsertVAZ_Click()
If frmKast.chkCoGeavanceerd And frmKast.chkVooraanzicht = True Then
Call Mod_VarFormules
Call Mod_VAZGeavanceerd
Call Mod_VAZGeavanceerd2
Call Mod_VAZAlgemeen
MsgBox " Geef het BASISPUNT voor het VOORAANZICHT in aub."
InvoegpuntVAZ = ThisDrawing.Utility.GetPoint(, vbCr & "Insertion point: ")
frmKast.Show
End If
End Sub