---

Hallo,

bekomme regelmäßig Pläne mit diversen Schriftstilen in der Zeichnung.
Meistens Planköpfe mit Attributen, aber auch normale Texte.
Grundsätzlich setze ich alles auf Standard isocp mit einem Makro.
Sobald ich aber mehrere Schriftstile habe (leider sind es immer wieder verschiedene
Schriftstile) reicht mein Makro nicht mehr. Also muß ich von Hand jedem Schriftstil
die isocp zuweisen. Funktioniert zwar gut, aber geht's auch einfacher? Lisp oder so?

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

---

Hallo,
wäre es dann nicht besser allen Texten (Schnellauswahl) einen Textstil zuzuordnen und nur diesem dann die Schriftart?

------------------

gruß
thomas

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

---

Hallo Ralle,

wie du das vor hast, ist eine Möglichkeit. Ist es aber nicht sinnvoller alle Textelemente auf einen Schriftstil zu schieben und die Überflüssigen dann zu löschen/bereinigen?

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
NEU: AutoLISP- Projektschulung
NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren
AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop

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

---

Mit den normalen Texten hab ich ja kein Problem.
Aber wie greife ich die Block-Attribute?
Die kriege ich doch mit der Schnellauswahl nicht,
oder doch?! Habs versucht aber leider nicht hingekriegt.

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

---

halt dich an HolgerŽs Tip...
nehme am besten die Standard prüfen" Funktion, damit istŽs schnell erledigt !
Standardvorlage hat nur einen Texstil... beim prüfen alle anderen durch
diesen ersetzen...

------------------
- Sebastian -

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

---

Ich benutze folgendes Makro:

    For i = 0 To ThisDrawing.TextStyles.Count - 1
        ThisDrawing.TextStyles.Item(i).fontFile = "simplex.shx"
        ThisDrawing.TextStyles.Item(i).BigFontFile = "bf_txt8.shx"
    Next i

Er geht alle Textstile durch und setzt ihn bei uns auf Simplex. Des weiteren (was bei dir nicht notwendig ist) aktiviert das Makro den Bigfont.

Viel Spaß dabei.
Jürgen

---

Werds versuchen mit Standards prüfen. Dank an alle

Gruß Ralph

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

---

Ui dir natürlich auch danke Jürgen für das Makro.

Tschü

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

---

Hallo,

Nachtrag: für unbekannte Fonts stelle ich die SYSVAR "FONTALT" auf "meinen" Schriftstil.

Ciao

------------------

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

---

Hi, ich würde gerne noch mal auf die Ursprungsfrage zurückkommen !

"Gehts mit LISP oder SO ???"

Ich bräuchte nämlich auch so ein Tool.

Wir müssen nämlich immer die Textstile der Architekten umstellen, da diese immer anders heißen, wäre ein kleines Prog, welche alle Stilname ändert sehr hilfreich.

Mir ists egal, ob der Architekt 10 oder 20 Stilnamen hat. Ich muss sie nur schnellstmöglichst umstellen.

------------------
Gruß Karsten

------------------

Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ???
Schluss damit !!!
In einem schönen Buch herrscht Ordnung und sie sind stets griffbereit !
Fragen Sie uns:  http://www.buchbinderei-gibietz.de

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

---

Hallo,
mit CAD Standard funktionierts wunderbar und schnell.
Verstehe deshalb nicht warum du für eine Funktion die dir
ACAD liefert ein lisp brauchst.
Übrigens mit mum CADconv kannst auch stapelmäßig abarbeiten lassen.

gruß Ralle

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

---

Was ist das besagte "CAD Standards" ????

Wo finde ich die "Standards prüfen-Funktion", von der oben die Rede ist ?

Irgendwie raff ichs gerade net so.

Kannste mir ein bischen auf dei Sprünge helfen?

------------------
Gruß Karsten

------------------

Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ???
Schluss damit !!!
In einem schönen Buch herrscht Ordnung und sie sind stets griffbereit !
Fragen Sie uns:  http://www.buchbinderei-gibietz.de

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

---

Ich hab übrigens ACAD2000 !

Hab keine Ahnung, warum das neuerdings nicht mehr links angezeigt wird.

Ich habs doch eingegeben und hat auch immer gefunzt 

------------------
Gruß Karsten

------------------

Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ???
Schluss damit !!!
In einem schönen Buch herrscht Ordnung und sie sind stets griffbereit !
Fragen Sie uns:  http://www.buchbinderei-gibietz.de

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

---

Servus,

CAD-Standards gibt erst ab ACAD2004.

Viel Glück bei der weiteren Suche.

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

---

Ähem, glaube ich jedenfalls.
Habs früher nie gebraucht :-)

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

---

Jooooo, also wieder mal das Problem mit dieser sch.... Version !

Aber danke.

Also bräuchte ich doch ein Prog !!!

------------------
Gruß Karsten

------------------

Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ???
Schluss damit !!!
In einem schönen Buch herrscht Ordnung und sie sind stets griffbereit !
Fragen Sie uns:  http://www.buchbinderei-gibietz.de

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

---

AS2isocp.zip

Hallo.
Mit dem lisp sollte es klappen.
Gruss
Peter

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

---

Hi Peter,

genau so was hab ich gesucht, VIELEN DANK !!!
Die Unities sind unterwegs !

------------------
Gruß Karsten

------------------

Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ???
Schluss damit !!!
In einem schönen Buch herrscht Ordnung und sie sind stets griffbereit !
Fragen Sie uns:  http://www.buchbinderei-gibietz.de

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

---

Hallo Peter,

schönes Programm, Klasse!
Kennst du vielleicht ein Programm wie den Layermanager aus den Expresstools, mit dem man einen Status abspeichern kann?

------------------
Nodda,

Stefan 

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

---

Hallo Stefan,

einfach die Vorgabedatei als Standard-Datei (*.dws) speichern, dann kann man mit Standardüberprüfung die Texte und auch Layer anpassen.

------------------

gruß
Stephan

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

---

1. = ACAD-StandardŽs

und

2. Status speichern

ist in ACAD2002 enthalten - viel Spaß beim suchen !

bin ja nicht so:

Status.. ist im Layereigenschaftsmanager-Dialog

Standards = _Standards /  _CheckStandards

aber die Hilfe würde dir auch Auskunft geben ..grübel...

------------------
- Sebastian Mattis - Weitere InfoŽs unter F1 !

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

---

(setq st (tblnext "STYLE" t))
(while st
    (setq edate (entget (tblobjname "STYLE" (cdr (assoc 2 st)))))
    (setq edate (subst (cons 3 "ISOCP") (assoc 3 edate) edate))
    (entmod edate)
    (setq st (tblnext "STYLE"))
)

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

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

---

?  (nicht mehr nötig, aber wesentlich besser  )

------------------
- Sebastian Mattis - Weitere InfoŽs unter F1 !

[Diese Nachricht wurde von cadffm am 07. November 2003 editiert.]

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

---

warum ??

es wurde doch was gesucht, um allen textstilen isocp zuzuweisen
und mein kleines lisp tut genau das

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

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

---

Hallo cadffm!

Ich suchte nicht den Layermanager oder den Layerstatus sondern so etwas wie den Layermanager, aber für Textstileinstellungen.

Die Arbeit mit TTF-Schriften ist ja bekanntermaßen problematisch, deshalb ersetzen wir die Schriften durch SHX-Schriften. Die Auftraggeber wollen aber oft ARIAL und alle Stile vor dem Plotten von Hand umzustellen ist doch recht aufwändig.

------------------
Nodda,

Stefan 

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

---

@Fuchsi --> da hängt doch schonŽnen Lisp !

@Nodda --> StandardŽs macht es doch.
( sorry- das mit "Textmanager" wie Layermanager aus ET habe ich
nicht gerafft gehabt )

Aber dennoch (mit Standards möglich) würde ich alle Stile
(außer "Standard" und den gewünschten "isocp") löschen !
Ein Textstil "Arial" mit zugeordneter Schriftart isocp.shx ist
totaler Mist !

------------------
- Sebastian Mattis - Weitere InfoŽs unter F1 !

[Diese Nachricht wurde von cadffm am 07. November 2003 editiert.]

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

---

@cadffm

Das Problem ist: die Stile sollen sich ja weiter unterscheiden und bestehen bleiben. Sie sollen vor der Weitergebe der Zeichnung auch wieder richtig eingestellt werden. Aber für die Arbeit mit der Zeichnung ist es besser mit SHX-Schriften zu arbeiten (das Problem wurde schon ausführlich im Forum diskutiert). Deshalb habe ich ja sogar mal die Schrift arialshx.shx konstruiert (->CADWIESEL).

Mit den Standarts habe ich noch nicht gearbeitet. Aber ich habe den Eindruck das wäre wie mit dem Trecker auf der Autobahn zu fahren.

------------------
Nodda,

Stefan 

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

---

der Umgang will gelernt sein und zudem kann man es ja "zurück-speichern" - mit einer anderen (ursprünglichen) Vorlagendatei.

zugegeben: macht nur bei großen Objekten wirklich Sinn...

Über TT-Fonts und deine Arial.shx kenne ich mich schon aus..

------------------
- Sebastian Mattis - Weitere InfoŽs unter F1 !

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

---

Hallo!

Nachdem der Link nicht mehr funktioniert wollte ich fragen
ob mir jemand dieses File "AS2isocp.zip" zukommen lassen kann??
(oder nochmal als anhang draufstellen bräuchte es dringend.

Vielen dank schonmal

MFG eilovliz

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

---

naja ... neu geschrieben ist schneller als gesucht. Für sinnvoll halte ich es aber nicht.

Bitteschön:
(defun C:TEXTSTYLE2FONT(  /  BLOCK TS LISTE STYLE)
   (vl-load-com)
   (if (findfile "isocp.shx")
     (progn
       (vlax-for ITEM (vla-get-textstyles
                         (vla-get-activedocument(vlax-get-acad-object))
                      )    
          (vl-catch-all-error-p
            (vl-catch-all-apply
              'vla-put-BigFontFile (list ITEM "")        
            )
          )
          (vl-catch-all-error-p
            (vl-catch-all-apply
              'vla-put-FontFile (list ITEM "isocp.shx")        
            )
          )
       )
       (vla-regen(vla-get-activedocument (vlax-get-acad-object)) acAllViewports)
     )
   ) 
)

------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

vielen herzlichen dank

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Zitat:

---

Original erstellt von Peter Heuser:
Hallo.
Mit dem lisp sollte es klappen.
Gruss
Peter

---

Hallo Kollegen!
Der Link funktioniert nach 15 Jahren leider nicht mehr, hat das LISP vielleicht noch jemand herumliegen ;-)?

Danke!

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

---

Zitat:

---

Original erstellt von Lothar1972:
ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Hallo Kollegen!
Der Link funktioniert nach 15 Jahren leider nicht mehr, hat das LISP vielleicht noch jemand herumliegen ;-)?

Danke!

---

Nimm doch das von <<hier>> 

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

Original erstellt von CADmium:

Nimm doch das von <<hier>>  

---

Guten Morgen und Danke!!
Ich soweit ich das verstehe ändert das "nur" den Textstil, aber wenn im fremden Plan im M-Text die Schriftart manuell eingestellt wurde hilft das nix, oder?
Ich dachte das "alte" Lisp kann da vielleicht helfen?

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

---

Zitat:

---

Original erstellt von Lothar1972:

Guten Morgen und Danke!!
Ich soweit ich das verstehe ändert das "nur" den Textstil, aber wenn im fremden Plan im M-Text die Schriftart manuell eingestellt wurde hilft das nix, oder?
Ich dachte das "alte" Lisp kann da vielleicht helfen?

---

Sicherlich nicht!  ... dafür brauchst du sowas wie STRIPMTEXT ( mal nach suchen ) bzw. einen ähnlichen Codeschnipsel ..

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

Original erstellt von CADmium:

Sicherlich nicht!  ... dafür brauchst du sowas wie STRIPMTEXT ( mal nach suchen ) bzw. einen ähnlichen Codeschnipsel ..

---

Perfekt, danke!
Du bist heute mein Held des Tages  !

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