---

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