Citaat van: julien op zo 12 05 2024, 12:29:09Dit staat beschreven in:Heb het gedaan zoals in les 5 maat zit met een klein verschil nog. Heb ingesteld op 1/10 en komt afgeplot uit op bijna 1/50 maar niet helemaal 1/50.
https://cadsite.be/cursus/les_5/
Laat maar weten of het lukt of als je vast loopt waar je niet kan volgen. Dan kijken we verder.
Sub tekst(x, y, h, rotatie, txtregel)
commando = "[TEXT " & x & "," & _
y & " " & _
h & " " & _
rotatie & " " & Chr(13) & _
txtregel & Chr(13) & _
"]"
Application.DDEExecute KanaalNr, commando
End Sub 'Einde tekstCall verbinden
i = 1
Do
Call tekst(xVeld(i, 13), xVeld(i, 14), xVeld(i, 15), xVeld(i, 16), xVeld(i, 17))
i = i + 1
Loop Until xVeld(i, 1) = ""
Call verbreken