Mal nix Welt bewegendes aber interessant
Ich suchte heute ein Ascci Zeichen welches KEIENEN Bildschirmausdruck hervorruft. Egal wozu - irgendwas mi mtexten *lacht*.
Egal, Als Abfallprodukt fiel dies hier bei ab.
Und ich hab mich schon gewundert was da so manchen Font für Überaschungen bereitstellen.
Wer mal mit staunen will - just copy paste and try 
Der derzeit ingestellte Textstiel wird benutzt
Sub ASCII_LIST()
Dim MTEXT As AcadMText
Dim P(2) As Double
' Call layer_clone("HLP", "0")
For i = 0 To 255
P(1) = -i * 60
S = D2S(i) & " " & Chr(i)
Set MTEXT = thisdrawing.modelspace.AddMText(P, 0, S)
MTEXT.height = 40
' MTEXT.LAYER = "HLP"
Next
End Sub
------------------
Wer es nicht versucht, hat schon verlorn 
Und bei 3 Typos gibts den vierten gratis !
<<< for sale !
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP