Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  linientyp erstellen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  linientyp erstellen (769 mal gelesen)
fca_mi2
Mitglied
Bauingenieur


Sehen Sie sich das Profil von fca_mi2 an!   Senden Sie eine Private Message an fca_mi2  Schreiben Sie einen Gästebucheintrag für fca_mi2

Beiträge: 505
Registriert: 10.01.2003

ACAD2018

erstellt am: 03. Nov. 2003 15:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

fuchsi
Mitglied
Programmierer c#.net Datawarehouse


Sehen Sie sich das Profil von fuchsi an!   Senden Sie eine Private Message an fuchsi  Schreiben Sie einen Gästebucheintrag für fuchsi

Beiträge: 1201
Registriert: 14.10.2003

AutoCad Version 2012 deu/enu
<P>Windows 7 64bit

erstellt am: 03. Nov. 2003 15:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für fca_mi2 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz