---

Moin Forum,

ich suche eine Möglichkeit in ca. 50 Zeichnungen (Richtzeichnungen-BMV, werden als xref eingefügt) den Textstil zu ersetzen
(und darüber hinaus Layeränderung, Bamaßungsstiländerung  )
um das mal aufzuschlüsseln, erstmal nur den Text

bisherige Suche: http://ww3.cad.de/foren/ubb/Forum54/HTML/026336.shtml#000006
für Layeränderung müßte [/b]Cad-Standards[b] funktionieren(probe steht noch aus)

1.wie funktioniert das als script, um den den Textstil für alle Zeichnungen zu ändern,
(Sciptgenerator?)
(alle texte sind keine Beschriftungsobjekte, spielt in diesem Fall keine Rolle, weil xref)

LG Pit

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

---

Leider schreibst du nicht genau ob du die Layer/Stile/Block

LAYER TEXTSTIL BEMASSUNGSSTIL-Änderungen kann man alles per Script machen,
schwierigi wird es evtl. wenn du Eigenschaften von Objekten ändern möchtest.
(ob eine oder hundert Dateien ist dabei unerheblich)

Für Layer und *Stile gibt es immer eine Befehlszeilenversion, also kannst du
diese auch ändern (den Namen von *Stilen ändert man aber über _RENAME)

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Und Beschriftungsobjekte spielen auch in XREFs eine Rolle!

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo cadffm,

Ich möchte einen neuen, in der Zeichnung nicht vorhanden Textstil allen Texten ob, M-Text oder einzeiligen Text zuweisen.
Beispiel:
Alter Stil Htsv
schriftname:   romans.shx   bigfont:  htsv_01.shx (ist teilweise auch in der Bemaßung enthalten)

neu(in Zeichn. nicht vorhanden)
Stil akg
Schriftname: AKG DIN6776.TTF

_rename ist doch nur umbenennen.

LG Pit

Ich weiß nicht, wie das in einem ganzen Verzeichnis (script) gehen soll?

[Diese Nachricht wurde von cockpit am 01. Jul. 2011 editiert.]

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

---

@ Cad-Huebner

ja Du hast recht, weil in neuen Zeichnungen, arbeite ich mit Beschriftungsobjekten und Layouts.

Danke

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

---

Zitat:

---

Original erstellt von cockpit:
Ich möchte einen neuen, in der Zeichnung nicht vorhanden Textstil allen Texten ob, M-Text oder einzeiligen Text zuweisen.
Beispiel:
Alter Stil Htsv
schriftname:   romans.shx   bigfont:  htsv_01.shx (ist teilweise auch in der Bemaßung enthalten)

neu(in Zeichn. nicht vorhanden)
Stil akg
Schriftname: AKG DIN6776.TTF
[/i]

---

Hallo Pit,

Änderungen im Stil kannst Du z. B. so machen

Code:

---

          (setq cts_obj (entget (tblobjname "style" "Htsv")))    ; holt sich das Objekt des Textstiles
          (setq cts_obj (subst (cons 2 "akg") (assoc 2 cts_obj) cts_obj))  ; ändert den Stilnamen
          (setq cts_obj (subst (cons 3 "AKG DIN6776") (assoc 3 cts_obj) cts_obj)) ; ändert den zugewiesenen Textfont
          (setq cts_obj (subst (cons 4 "") (assoc 4 cts_obj) cts_obj)) ; setzt den BigFont zurück
          (entmod cts_obj)  ; aktualisiert das Textstilobjekt

---

Dies wirkt auf alle Texte/Mtexte und Bemaßungen die den Stil "Htsv" nutzen (egal ob  evt. auch im Block oder so).

HTH
Thomas

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

---

D_Abs_4_M5.dwg.txt textstil.scr.txt

Moin Forum,
danke Thomas für Deine Antwort.
Leider komme ich nicht weiter.

-In der Acad-Hilfe über Syntax sripte informiert.
-die erste Datei geöffnet, wo der textstil ersetzt werden soll(zum ausprobieren)
-Habe Deinen Text in eine Datei gespeichert und diese bei extras \ Skript ausführen... geladen. (textstil.scr)
und ich habe den Schriftstil in die erste Zeichn. miteingefügt (Ich weiß nicht ob Du: neuer Textstil in allen Zeichn. nicht vorh. gelesen hast)

Irgendetwas ist noch falsch, bekomme Fehlermeldung.
Du solltest von keinen Vorraussetzung bei script bei mir ausgehen.

LG Pit

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

---

Hallo Pit,

da ich Deine Schriften nicht habe, kann ich das an Deiner Beispielzeichnug nicht nachvollziehen.
Der neue Textstil darf in der Zeichnung nicht schon vorhanden sein, der alte Name wird ja mit dem neuen ersetzt.
In der Zeichnung heist Dein alter Textstil HTSV (alles Großbuchstaben).
In der Zeichnung wird im neuen Textstil auf einen Textfont namens "AKG DIN 6776" verwiesen (mit Leerzeichen nach DIN)
Ändere diese Bezeichnungen mal in den entsprechenden Zeilen.
Gebe die einzelnen Zeilen mal einzeln nacheinander in der Befehlszeile ein und wenn Fehlermeldungen kommen, sag mal an, wie diese lauten.
Dann sehen wir weiter.

Gruß
Thomas

<Ergänzung>  Bei der Angabe des Textfonts musst Du den vollen Dateinamen also incl. ".TTF" angeben.
Und dann schicke dem ganzen noch ein "Regen" hinterher, damit werden die Änderungen dann auch sichtbar.</Ergänzung>

[Diese Nachricht wurde von spider_dd am 04. Jul. 2011 editiert.]

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

---

Hallo Thomas,
ich probere es aus, komme im Moment nicht dazu, melde mich per PM.

Gruß Pit

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

---

_textstilersetzung.zip

Hallo Forum,

dank Thomas hat die Textstiländerung geklappt. Im Textstilfenster (schriftart) zeigt wird noch einen Ausrufzeichen angezeigt.
(ergebn_n_Script.jpg bzw.D_Kap1).
1.Wer weiß was damit aufsich hat? (kein Beschriftungsobjekt?)

Es ist so, dass nicht nur der Textstil geändert werden muss, sonder auch Textbreite, Layer, Bemaßungsstil (sofi25/35, ist in den Dateien nicht vorhanden)
Unsere Richtzeichnungen wurden mehrheitlich in Acad 2006 erzeugt, also keine Beschriftungsmaßstäbe + -objekte
der Beschriftungsmaßstab beim öffnen aller Zeichnungen im Modell ist 1:1
Mittlerweile müssen ca. 130 Dateien und sicher noch mehr aktualisiert werden.

2.geht das überhaupt oder zu komplex für [/b]Script[b], da die Beschriftungsmaßstäbe pro Datei unterschiedlich sind?
 
mit Scriptpro von Cadwiesel(2010)
dann auf alle Dateien anwenden, habe noch nicht ausprobiert, weil -->2.

Wer kann helfen?

LG Pit

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

---

Solange dir niemand ein Programm schenkt mit dem du die Datei bearbeiten kann wird das nichts,
wie
ich schon vor Tagen erwähnte: Ab der Objektbearbeitung ist Schluss mit Lustig, zwar nicht sofort,
aber bald. (Toplevel-Elementen könnte man noch Layer oder Farbe ändern, aber dann ist Schluß)

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Hallo Pit,

zu 1. ist denn die Textfontdatei "AKG_DIN67.TTF" auch unter Windows installiert? D. h. kannst Du diese Schriftart in ACAD bei den Textstileinstellungen auswählen.

Alles weitere hat cadffm schon gesagt.

Gruß
Thomas

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

---

Hallo cadffm,

was meinst Du mit:

Zitat:

---

Original erstellt von cadffm:
  ...
Toplevel-Elementen könnte man noch Layer oder Farbe ändern, aber dann ist Schluß)

---

ansonsten ist ein Teilerfolg auch schon eine Hilfe.
Danke an ale Beteiligten.

LG Pit

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

---

An dieser Stelle fange ich nichts an was nicht auch Zielführend ist, ich
bleibe bei der Aussage das du Layer und Stil-Einstellungen wunderbar mit
Script hinbekommst, das ändern der Eigenschaften von Objekten eher nicht.

Es sei denn du möchtest alle Objekte auf Layer 0 mit Farbe Rot
;=============
ändern
alle

ei
layer
0
farbe
rot

;==============

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

...  und dan hast Du immernoch Blockreferenzen, Mtexte, Bemassungen ... die sich auch bei einer solchen Behandlung noch "störrisch" verhalten.

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

---

Moin Forum,
Moin an meine beiden Helfer.

einen hab ich noch...

Zitat:

---

Original erstellt von cadffm:
...
bleibe ich bei der Aussage das du Layer und Stil-Einstellungen wunderbar mit
Script hinbekommst, das ändern der Eigenschaften von Objekten eher nicht.
Es sei denn du möchtest alle Objekte auf Layer 0 mit Farbe Rot
;=============
ändern
alle
ei
layer
0
farbe
rot
;==============

---

Ich verstehe so langsam was Du meinst, man bekommt nicht alles hin mit Script.
Besonders bei Eigenschaften ändern...
Bei Farbänderungen am Layer bin ich mir nicht sicher, Dich richtig verstanden zu haben.
nur global alle Layer oder auch ein einzelnen --> Farbe
1.mein Bsp.
=====
_rename layer HTSV_P1_PLAN_TEXT_T03 T__TEXT
;Umbenenen des Layers
farbe 3 
; "Farbänderung, von Farbe 60 auf  grün(3)"
======
Eigenschaftsänderungen der Farbe geht nicht, weil <vonlayer> farbe 60

2.funktioniertz die Variante: einen neuen Layer (T__Text, Farbe grün) zu erzeugen
und dann die Eigenschaften ändern ? (mit Script)
scheitern bei mir schon bei der Erzeugung, (ungültiger optionstitel)

3.layer-Konvertierung wäre ja auch eine Möglichkeit, aber eben 2 Schritte
  und das bei vielen Dateien, (wenn das im Script überhaupt geht)
4.wo finde ich zu benutzen der Optionen,
  (Autlolisp-Handbuch.doc zu Acad 12/97 habe ich) http://ww3.cad.de/foren/ubb/Forum145/HTML/001684.shtml#000007

LG Pit

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

---

Optionen: In deiner AutoCAD-Hilfe oder wenn du einen Befehl aufrufst in deiner Befehlszeile !?
Makro zum ändern der Farbe des Layers"0" auf ROT(Farbe1)
-LAYER;FARBE;1;0;;

oder auch als Script

;Skript zum ändern der Farbe des Layers"0" auf ROT(Farbe1)
-LAYER
FARBE
1
0

;SKRIPTENDE

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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