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