Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Textstil per Lisp/Makro auf Fett ändern

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:  Textstil per Lisp/Makro auf Fett ändern (1451 mal gelesen)
CADuceus
Mitglied
LWL-Netzplaner GIS


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

Beiträge: 358
Registriert: 20.01.2005

LWL Netzplanung
AutoCAD Map 3D 2020
Win10 64bit / Chrome
Intel® Core™ i7-4770K 3.50GHz / 32GB
NVidia Quadro P400
HP DesignJet T795

erstellt am: 28. Jan. 2015 17:02    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

Per Lisp erzeuge ich einen Schriftstil:
Code:

(entmake
(cdr
  (assoc 1
  '((1
      (0 . "STYLE")
      (100 . "AcDbSymbolTableRecord")
      (100 . "AcDbTextStyleTableRecord")
      (2 . "NeuerTextstilName")
      (70 . 0)
      (40 . 0.0)
      (41 . 1.0)
      (50 . 0.0)
      (71 . 0)
      (42 . 0.4)
      (3 . "ARIAL NARROW.TTF")
      (4 . "")
    ))
  )
)
)

Das klappt auch wunderbar. ABER: Der Textstil hat immer den Schriftstil "Fett Kursiv". Ich möchte aber nur "Fett".

Finde einfach nicht heraus, wie ich das beeinflussen kann. Weder über Lisp, noch über die Befehlszeile:

Code:
(command "-stil" [...])

Dort kann man alles einstellen - ausser fett, kursiv u.s.w. 

Eine andere TTF möchte ich nicht nehmen, da in allen anderen Zeichnung auch "Arial Narrow.TTF" benutzt wird, mit dem Zusatz "Fett" im Textstil.

------------------
Du kannst in anderen nur entzünden,
was in Dir selber brennt! 

Wollte noch ein File anhängen, aber habe die Kiste schon heruntergefahren.

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

cadffm
Moderator
良い精神




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

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 28. Jan. 2015 19:15    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 CADuceus 10 Unities + Antwort hilfreich

Arial Narrow "Fett" ist nicht 'Arial Narrow.ttf" sondern "ArialNB.ttf",
so fängt die Sache an.

Old Style - > schau dir auch mal die XDaten eines Textstiles an.
(entget (tblobjname "STYLE" "MeinTextstil") '("*"))
Und vor allem mach das mit einem händisch korrekt eingestellten Textstil, dann siehst du auchgwie es sein muß.. clever wa?

HektikX -> Eigenschaft fontfile, auch hier wieder: einfach am vorhandenen Objekt abschauen.
(vlax-dump-object(vla-item (vla-get-Textstyles(vla-get-activeDocument(vlax-get-Acad-object))) "MeinTextstil"))

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

CADuceus
Mitglied
LWL-Netzplaner GIS


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

Beiträge: 358
Registriert: 20.01.2005

LWL Netzplanung
AutoCAD Map 3D 2020
Win10 64bit / Chrome
Intel® Core™ i7-4770K 3.50GHz / 32GB
NVidia Quadro P400
HP DesignJet T795

erstellt am: 29. Jan. 2015 09:41    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

Oh super!

Aber vorweg: Eine ArialNB.ttf kennt mein System nicht.

War einfach zu blöd den entget auf den Stil anzuwenden (machte immer nur (tblsearch "STYLE" "MeinStil")).

(entget (tblobjname "STYLE" "MeinStil") '("*")) brachte folgendes zutage:

(0 . "STYLE")
(100 . "AcDbSymbolTableRecord")
(100 . "AcDbTextStyleTableRecord")
(2 . "MeinStil")
(70 . 0)
(40 . 0.0)
(41 . 1.0)
(50 . 0.0)
(71 . 0)
(42 . 0.4)
(3 . "")
(4 . "")
(-3 ("ACAD" (1000 . "Arial Narrow") (1071 . 33554466)))

Aus der TTF im GP3 wird plötzlich der Stilname unter GP1000.
Vom GP1071 hat mit Onkel Google schon berichtet, aber nicht, wie er sich zusammensetzt.
Und warum das ganze unter (-3 ("ACAD".. stehen muss weiss ich auch nicht. Ist mir auch egal - hauptsache es funktioniert jetzt. 

------------------
Du kannst in anderen nur entzünden,
was in Dir selber brennt! 

Wollte noch ein File anhängen, aber habe die Kiste schon heruntergefahren.

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

cadffm
Moderator
良い精神




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

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 29. Jan. 2015 09:56    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 CADuceus 10 Unities + Antwort hilfreich

Mit dem 1071er hast du ARIALNB.TTF angesprochen, wobei in gc3 eigentlich auch noch der Wert "ARIALNB.TTF" gehört.

Dein System kennt das übrigens schon, glaube mir  
Explorer, Win-Font-Verzeichnis,  ARIAL NARROW BOLD => ARIALNB.ttf
Je nach Einstellung (Betriebssystem?/Ansicht?) kann es sein dass dir nur die Hauptschrift angezeigt wird,
also ARIAL NARROW.ttf, in dem Fall kannst du die Datei "öffnen" und siehst dort dann die verknüpften Abwandlungen, also auch den ARIALNB.ttf

Wie bereits erwähnt: Erstelle deine Wunschobjekte per Hand und dann schau wie sie definiert sind,
so siehst du wie es aussehen sollte..
Vorweg: Du kannst den Wert bei "" belassen, Acad korregiert das selbstständig - die wichtige Angabe ist der gc1071.
Speicher deine Datei und öffne sie mal, dann wie entget auf den Textstil"MeinTextstil" anwenden, nun ist der gc3 gefüllt!
und mit was? GENAU!   


------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

CADuceus
Mitglied
LWL-Netzplaner GIS


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

Beiträge: 358
Registriert: 20.01.2005

LWL Netzplanung
AutoCAD Map 3D 2020
Win10 64bit / Chrome
Intel® Core™ i7-4770K 3.50GHz / 32GB
NVidia Quadro P400
HP DesignJet T795

erstellt am: 29. Jan. 2015 13:49    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

Zitat:
Original erstellt von cadffm:
[...]
Explorer, Win-Font-Verzeichnis,  ARIAL NARROW BOLD => ARIALNB.ttf
[...]

Stimmt. Wusst' ich nicht.

Zitat:
Original erstellt von cadffm:
[..]
Speicher deine Datei und öffne sie mal, dann wie entget auf den Textstil"MeinTextstil" anwenden, nun ist der gc3 gefüllt!
[..]

Stimmt nicht!
Habs soeben bei mir ausprobiert.
Nach dem Öffnen steht immer noch (3 . "") (4 . "") (-3 ("ACAD" (1000 . "Arial Narrow") (1071 . 33554466))) - was mit den Angaben übereinstimmt, wenn ich "MeinStil" von Hand erstelle.

Egal. Haupsache, es läuft. 

Danke für die Infos! U's sind überwiesen.


------------------
Du kannst in anderen nur entzünden,
was in Dir selber brennt! 

Wollte noch ein File anhängen, aber habe die Kiste schon heruntergefahren.

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