GBKN knop VBA (2 cijfers voor x)

[Robin]

Hallo,

Ik werk met autocad 2009 en heb een vraag over een vba die topo achter mijn tekeningen laad van 1000x500 (groote van de topo). normaal werk ik met 4 cijfers voor x en y en zo worden deze GBKN's ook opgeslagen bijv. (6960-4420).
nu heb ik in mijn klic atlas bijv. 98 voor x en 432 voor y staan maar wat ik ook schrijf bijv. voor x 0098 of 0980 -(y 4320) hij pakt deze GBKN's niet.. heeft iemand hier een oplossing voor of een lisp aangezien ik geen topper ben in vba of lisp en niet weet wat alles betekent wat er in staat... als het met uitleg kan graag dan kan ik hier van leren!!

Alvast bedankt!!

de code is:


Sub KoppelXref()

    Dim varRetVal As Variant

    Dim insertedBlock As AcadExternalReference
   
    Dim strHi As String
    Dim strLow As String
    Dim strpad As String
    Dim strTus As String
    Dim strXrefFile As String
    Dim strXrefnaam As String

    Dim dblInsertPoint(0 To 2) As Double

    '
    ' initialiseren
    '
    strpad = "I:\GBKN"
    ' Define external reference to be inserted
    dblInsertPoint(0) = 0
    dblInsertPoint(1) = 0
    dblInsertPoint(2) = 0
    '
    ' vraag inout van gebruiker
    '

varRetVal = ThisDrawing.Utility.GetPoint(, "Klik op gewenste locatie")
'    '
'    strLow = CStr(CLng(CLng(varRetVal(0) - 500) / 1000) * 10)
'    strHi = CStr(CLng(CLng(varRetVal(1) - 500) / 1000)) * 10
'
'    strLow = CStr(CLng(CLng(varRetVal(0)) / 1000) * 10)
    strLow = Left(varRetVal(0), 3) & "0"
'    strHi = CStr(CLng(CLng(varRetVal(1)) / 1000) * 10)
    strTus = Mid((varRetVal(1)), 4, 1)
    If strTus >= "5" Then strTus = "5" Else strTus = "0"
    strHi = Left((varRetVal(1)), 3) & strTus
    '
    ' prepareer bestandsnaam
    '
     strXrefnaam = strLow + "-" + strHi
    strXrefFile = strpad + strXrefnaam + ".dwg"
    '
    ' indien aanwezig koppel bestand als xref, anders meldinge geven.
    '
    If Dir(strXrefFile, vbDirectory) <> "" Then
        Set insertedBlock = ThisDrawing.ModelSpace. _
                AttachExternalReference(strXrefFile, strXrefnaam, _
                dblInsertPoint, 1, 1, 1, 0, True)
    Else
        MsgBox (" De xref-tekening " + strXrefFile + " kan niet worden gekoppeld.")
    End If

End Sub