---

hallo,

nachdem ich vor kurzem in diesem forum gelernt habe, wie man linien entmäikt
( danke nochmals), will ich nun mit dem gleichen befehl einen textstil erzeugen. und zwar wie folgt :

(defun c:ts (/)
(fc_textstil "tabelle" "txt.shx" 0.0 0.80)
);defun

;aufruf: (fc_linientyp name fontname hoehe breitenfaktor)
(defun fc_textstil (name fontname hoehe breitenfaktor /)
  (entmake (list
    '(0 . "STYLE")
    (cons 2 name)
    '(70 . 0)
    (cons 40 hoehe)
    (cons 41 breitenfaktor)
    '(50 . 0.0)
    '(71 . 0)
    (cons 3 fontname)
    '(4 . "")
    ))
  (princ)
);defun

eine fehlermeldung kommt nicht, aber es wird auch kein neuer textstil erzeugt!

------------------
Vielen Dank !

MfG
Frank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ist zwar kein linie sondwern ein textstil
habe dein lisp nur um die 100er zeilen ergänzt dann funzt es

(entmake (list
    '(0 . "STYLE")
    '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbTextStyleTableRecord")
    (cons 2 "test")
    '(70 . 0)
    (cons 40 1)
    (cons 41 1)
    '(50 . 0.0)
    '(71 . 0)
    (cons 3 "arial")
    '(4 . "")
    ))

------------------
***********************************************
AutoCad 2000i, 2002, 2004 deutsch und englisch
Windows 2000, NT, XP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP