| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Alle Stilnamen auf Schriftart isocp setzen. (5120 mal gelesen)
|
Ralle Mitglied
Beiträge: 266 Registriert: 12.03.2003 Windows 10 Enterprise 64-Bit, 32GB MEP2018
|
erstellt am: 13. Okt. 2003 13:56 <-- editieren / zitieren --> Unities abgeben:
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 |
Thomas Rausch Mitglied
Beiträge: 1200 Registriert: 26.03.2001 Intel Xeon 3,6 GHz 32 GB RAM NVIDIA Quadro P2000 Windows 10 Enterprise AutoCADmap 3D 2023 WS-Landcad 2023 QGIS 3.28.5
|
erstellt am: 13. Okt. 2003 14:01 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
|
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 13. Okt. 2003 14:03 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
Ralle Mitglied
Beiträge: 266 Registriert: 12.03.2003 Windows 10 Enterprise 64-Bit, 32GB MEP2018
|
erstellt am: 13. Okt. 2003 14:59 <-- editieren / zitieren --> Unities abgeben:
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 |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 13. Okt. 2003 15:13 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
Ex-Mitglied
|
erstellt am: 13. Okt. 2003 15:23 <-- editieren / zitieren -->
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 |
Ralle Mitglied
Beiträge: 266 Registriert: 12.03.2003 Windows 10 Enterprise 64-Bit, 32GB MEP2018
|
erstellt am: 13. Okt. 2003 15:24 <-- editieren / zitieren --> Unities abgeben:
|
Ralle Mitglied
Beiträge: 266 Registriert: 12.03.2003 Windows 10 Enterprise 64-Bit, 32GB MEP2018
|
erstellt am: 13. Okt. 2003 15:26 <-- editieren / zitieren --> Unities abgeben:
|
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 13. Okt. 2003 16:07 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
|
Karsten.G Mitglied
Beiträge: 190 Registriert: 21.06.2002 Verwendetes System: PIII 700 MHz; 512 MB-RAM; Windows NT 4.0;<p>AutoCAD 2000 + pit-cup 5.2
|
erstellt am: 15. Okt. 2003 14:52 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
Ralle Mitglied
Beiträge: 266 Registriert: 12.03.2003 Windows 10 Enterprise 64-Bit, 32GB MEP2018
|
erstellt am: 15. Okt. 2003 15:21 <-- editieren / zitieren --> Unities abgeben:
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 |
Karsten.G Mitglied
Beiträge: 190 Registriert: 21.06.2002 Verwendetes System: PIII 700 MHz; 512 MB-RAM; Windows NT 4.0;<p>AutoCAD 2000 + pit-cup 5.2
|
erstellt am: 15. Okt. 2003 15:29 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
Karsten.G Mitglied
Beiträge: 190 Registriert: 21.06.2002 Verwendetes System: PIII 700 MHz; 512 MB-RAM; Windows NT 4.0;<p>AutoCAD 2000 + pit-cup 5.2
|
erstellt am: 15. Okt. 2003 15:33 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
Ralle Mitglied
Beiträge: 266 Registriert: 12.03.2003 Windows 10 Enterprise 64-Bit, 32GB MEP2018
|
erstellt am: 15. Okt. 2003 15:37 <-- editieren / zitieren --> Unities abgeben:
|
Ralle Mitglied
Beiträge: 266 Registriert: 12.03.2003 Windows 10 Enterprise 64-Bit, 32GB MEP2018
|
erstellt am: 15. Okt. 2003 15:40 <-- editieren / zitieren --> Unities abgeben:
|
Karsten.G Mitglied
Beiträge: 190 Registriert: 21.06.2002 Verwendetes System: PIII 700 MHz; 512 MB-RAM; Windows NT 4.0;<p>AutoCAD 2000 + pit-cup 5.2
|
erstellt am: 15. Okt. 2003 15:41 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
Peter Heuser Mitglied
Beiträge: 68 Registriert: 19.02.2002
|
erstellt am: 15. Okt. 2003 22:58 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
|
Karsten.G Mitglied
Beiträge: 190 Registriert: 21.06.2002 Verwendetes System: PIII 700 MHz; 512 MB-RAM; Windows NT 4.0;<p>AutoCAD 2000 + pit-cup 5.2
|
erstellt am: 16. Okt. 2003 09:01 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
s.wickel Mitglied Bauingenieur Wasserwirtschaft
Beiträge: 422 Registriert: 17.12.2001
|
erstellt am: 07. Nov. 2003 11:53 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
|
StephanJP Mitglied CAD-Admin
Beiträge: 834 Registriert: 09.11.2000 AutoCAD ,MAP 3D, Civil 3D, Recap Pro, InfraWorks, VehicleTracking alles bis 2024, BBSoft, Win 10 Enterprise, Canon PlotClient Canon TX2000, TX3000
|
erstellt am: 07. Nov. 2003 11:57 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 07. Nov. 2003 11:58 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 07. Nov. 2003 12:06 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
(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 |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 07. Nov. 2003 12:09 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
|
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 07. Nov. 2003 12:13 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
s.wickel Mitglied Bauingenieur Wasserwirtschaft
Beiträge: 422 Registriert: 17.12.2001
|
erstellt am: 07. Nov. 2003 12:16 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 07. Nov. 2003 12:22 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
@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 |
s.wickel Mitglied Bauingenieur Wasserwirtschaft
Beiträge: 422 Registriert: 17.12.2001
|
erstellt am: 07. Nov. 2003 12:37 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
@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 |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 07. Nov. 2003 12:40 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
eilovliz Mitglied Technischer Zeichner
Beiträge: 48 Registriert: 24.06.2004
|
erstellt am: 23. Jul. 2008 16:10 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 23. Jul. 2008 16:19 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
eilovliz Mitglied Technischer Zeichner
Beiträge: 48 Registriert: 24.06.2004
|
erstellt am: 23. Jul. 2008 16:28 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
|
Lothar1972 Mitglied Haustechniker
Beiträge: 8 Registriert: 25.01.2019 AutoCAD2019 C.A.T.S. HP Z240 Tower Workstation Intel(R) Core(TM) i7-7700K CPU @ 4.20GHz 16.00 GB NVIDIA Quadro P600
|
erstellt am: 27. Jan. 2019 15:52 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 28. Jan. 2019 07:26 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
|
Lothar1972 Mitglied Haustechniker
Beiträge: 8 Registriert: 25.01.2019 AutoCAD2019 C.A.T.S. HP Z240 Tower Workstation Intel(R) Core(TM) i7-7700K CPU @ 4.20GHz 16.00 GB NVIDIA Quadro P600
|
erstellt am: 28. Jan. 2019 07:32 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 28. Jan. 2019 07:45 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
|
Lothar1972 Mitglied Haustechniker
Beiträge: 8 Registriert: 25.01.2019 AutoCAD2019 C.A.T.S. HP Z240 Tower Workstation Intel(R) Core(TM) i7-7700K CPU @ 4.20GHz 16.00 GB NVIDIA Quadro P600
|
erstellt am: 28. Jan. 2019 08:14 <-- editieren / zitieren --> Unities abgeben: Nur für Ralle
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 |