Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Text Breitenfaktor in CAD Spirit.

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:  Text Breitenfaktor in CAD Spirit. (6450 mal gelesen)
CADoffel
Mitglied
Tech. Zeichner (Haustechnik)


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

Beiträge: 131
Registriert: 12.08.2002

- Win XP, - AutoCAD 2004 LT+ LT-Extender+ Exresstools 1-9
- AutoCAD 2002 Architectual Desktop + Expresstools 1-9

erstellt am: 15. Apr. 2004 09:17    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

Hi,

was ist der schnellste Weg den Breitenfaktor aller Texte auf einmal zu ändern?
Ich habe folgendes Problem:
Die dwg oder dxf Dateien die von CAD Spirit kommen, haben Textfaktoren die mit AutoCAD nicht übereinstimmen.
In Spirit heißt Breitenfaktor = Aspekt. Breitenfaktor 1,5 = Aspekt 1,5 in Spirit.
Doch im AutoCAD ist der Text 1,5 mal breiter. In Spirt 1,5 mal schmaler. Somit ist Breitenfaktor
1,5 = 0.667 Aspekt.
Wie kann ich jetzt die Texte die alle viel zu breit sind auf einmal ändern? Diese haben
aber unterschiedliche Breitenfaktoren. Ich suche also eine Möglichkeit den Kehrwert des Breitenfaktors zu finden.
Für alle Texte: 1 teilen durch den Breitenfaktor (1/1,5 = 0.667)
Ich weiß, wahrscheinlich ganz einfach mit Lisp zu lösen. Doch leider kann ich kein Lisp. :-(

Gruß CADoffel

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

"ich weiß dass ich nichts weiß, dennoch weiß ich mehr als diejenigen die nicht wissen dass sie nichts wissen"

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

OtzeMachEd
Mitglied
Bauzeichner & CAD Systembetreuer


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

Beiträge: 201
Registriert: 30.05.2003

WIN XP Prof.
ACAD 2010
ADT 2010
Express Tools

erstellt am: 15. Apr. 2004 09:26    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 CADoffel 10 Unities + Antwort hilfreich

Hallo,

bei einzeiligem Text: Die Texte filtern und über das Eigenschaftsfenster den Breitenfaktor ändern.
Bei mehrzeiligem Text über den Textstil!

------------------
Mit freundlichen Grüßen

Otze Mach Ed

PS: Wer lesen kann ist klar im Vorteil!

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

CADoffel
Mitglied
Tech. Zeichner (Haustechnik)


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

Beiträge: 131
Registriert: 12.08.2002

- Win XP, - AutoCAD 2004 LT+ LT-Extender+ Exresstools 1-9
- AutoCAD 2002 Architectual Desktop + Expresstools 1-9

erstellt am: 15. Apr. 2004 09:35    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

Texte filtern ist kein Problem.
Doch wie geschrieben haben diese unterschiedliche Breitenfaktoren.
Alle auf einen zu setzen ist keine schöne Lösung.
Auch nach Text und Farbe filter ist keine Lösung.
Ich muß 1 durch den Breitenfaktor teilen.

Gruß CADoffel

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

"ich weiß dass ich nichts weiß, dennoch weiß ich mehr als diejenigen die nicht wissen dass sie nichts wissen"

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



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

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 15. Apr. 2004 09:48    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 CADoffel 10 Unities + Antwort hilfreich

Hallo CADoffel,

Probier die folgenden Zeilen. Wenn es unbedingt 1/Breite sein soll, kann man das auch noch so anpassen.

Code:

(defun c:txtbrscale ( / ALISTE)
  (setq ALISTE (ssget "X"
                      '((-4 . "<or")
                        (0 . "TEXT")
                        (0 . "MTEXT")
                        (-4 . "or>")
                        )
                      )
        )
  (if ALISTE
    (progn
      (while (not(setq tfac (getreal "\nScalierfaktor:"))))
      (mapcar '(lambda (el)
                (txtbrvaria (entget el) tfac)
                )
              (bau_elemli ALISTE)
              )
      )
    )
  (princ)
  );defun
(defun txtbrvaria (ad fac /)
  (entmod (subst (cons 41 (* fac (cdr (assoc 41 ad)))) (assoc 41 ad) ad))
  )
(defun bau_elemli (asatz / n elemli)
  (setq n 0)
  (repeat (sslength asatz)
    (setq elemli(cons (ssname asatz n) elemli)
          n (1+ n))
    )
  elemli
  )

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

CADoffel
Mitglied
Tech. Zeichner (Haustechnik)


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

Beiträge: 131
Registriert: 12.08.2002

- Win XP, - AutoCAD 2004 LT+ LT-Extender+ Exresstools 1-9
- AutoCAD 2002 Architectual Desktop + Expresstools 1-9

erstellt am: 15. Apr. 2004 09:59    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 Holger,

schön mal wieder von Dir zu hören.
Die Lösung ist schon fast richtig. Der Breitenfaktor von allen Texten wird nach Eingabe des Skalierfaktors geändert.
Kannst du mir bitte das so ändern, daß ich 1/Breitenfaktor der Texte teile?
Würde mir wirklich sehr helfen.

Gruß CADoffel.

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

"ich weiß dass ich nichts weiß, dennoch weiß ich mehr als diejenigen die nicht wissen dass sie nichts wissen"

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



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

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 15. Apr. 2004 10: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 CADoffel 10 Unities + Antwort hilfreich

Hallo CADoffel,

dann so, dann sind beide Möglichkeiten gegeben:

Code:

(defun c:txtbrscale ( / ALISTE)
  (setq ALISTE (ssget "X"
                      '((-4 . "<or")
                        (0 . "TEXT")
                        (0 . "MTEXT")
                        (-4 . "or>")
                        )
                      )
        )
  (if ALISTE
    (progn
      (initget "DT _Durchtextbreite")
      (setq tfac (getreal "\nScalierfaktor [DurchTextbreite] <DT>:"))
      (mapcar '(lambda (el)
                (if (= 'REAL(type tfac))
                  (txtbrvaria (entget el) tfac)
                  (txtbr1d (entget el))
                  )
                )
              (bau_elemli ALISTE)
              )
      )
    )
  (princ)
  );defun
(defun txtbrvaria (ad fac /)
  (entmod (subst (cons 41 (* fac (cdr (assoc 41 ad)))) (assoc 41 ad) ad))
  )
(defun txtbr1d (ad /)
  (entmod (subst (cons 41 (/ 1 (cdr (assoc 41 ad)))) (assoc 41 ad) ad))
  )
(defun bau_elemli (asatz / n elemli)
  (setq n 0)
  (repeat (sslength asatz)
    (setq elemli(cons (ssname asatz n) elemli)
          n (1+ n))
    )
  elemli
  )

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

CADoffel
Mitglied
Tech. Zeichner (Haustechnik)


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

Beiträge: 131
Registriert: 12.08.2002

- Win XP, - AutoCAD 2004 LT+ LT-Extender+ Exresstools 1-9
- AutoCAD 2002 Architectual Desktop + Expresstools 1-9

erstellt am: 15. Apr. 2004 11:16    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

Holger du bist ein Genie.
Danke vielmals.
Funktioniert einwandfrei.

Gruß CADoffel.

P.S. Nach dem Aufruf der Lisp erscheint "BAU_ELEMLI". Aber die Funktion ist einwandfrei.

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

"ich weiß dass ich nichts weiß, dennoch weiß ich mehr als diejenigen die nicht wissen dass sie nichts wissen"

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

sonora
Mitglied
selbstständig


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

Beiträge: 11
Registriert: 11.08.2015

AutoCad 2014

erstellt am: 09. Mrz. 2017 12: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 Nur für CADoffel 10 Unities + Antwort hilfreich

hallo,
und wie ändere ich die breite von texten in attributen (blöcken) alle auf einmal?
die lisp geht bei mir nur ausserhalb von attributen.

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

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 09. Mrz. 2017 12:24    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 CADoffel 10 Unities + Antwort hilfreich

... die Blockdefinitionen anpassen und Befehl : Attsync
... oder das Lisp anpassen (lassen)


------------------
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

sonora
Mitglied
selbstständig


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

Beiträge: 11
Registriert: 11.08.2015

AutoCad 2014

erstellt am: 09. Mrz. 2017 13:13    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 CADoffel 10 Unities + Antwort hilfreich


Unbenannt.JPG

 
mit ATTSYNC komme ich nicht zurecht. hier wir nur alles wieder auf normal gestellt.

es geht um die spalte "beschaltung" hier muß ich für jeden der 4 blöcke jede zeile anklicken und dort in den textoptionen den breitenfaktor ändern. geht das nicht mit "eigenschaften übertragen" o.ä.?

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: 09. Mrz. 2017 13:28    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 CADoffel 10 Unities + Antwort hilfreich

Entweder du passt die Attributdefinition der verschiedenen Blöcke an (sind ja je nach Antennentyp verschiedene), drückst dann Attsync.

Oder du markierst die Attribute mit Strg+Mausklick, änderst dann die Breite in den Eigenschaften (strg+1)

Oder du nutzt den Befehl -ATTEDIT


Ein Tool für "Eigenschaften übertragen für Sub-Elemente" wäre sicher auch kein Problem, in Acad ist die Funkion aber nicht enthalten.


Bei der ersten Variante (bei der nicht nur die Attrbute, sondern auch der Block/die Attributdefinition geändert wird,
bedenke aber das es sich um Vorgabeblöcke des (End-)Kunden handelt, die möglicherweise nicht geändert werden dürfen.

  

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

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

sonora
Mitglied
selbstständig


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

Beiträge: 11
Registriert: 11.08.2015

AutoCad 2014

erstellt am: 09. Mrz. 2017 14:51    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 CADoffel 10 Unities + Antwort hilfreich

hallo,
danke für die schnelle antwort.
wenn ich mit strg und mausklick den text anklicke, ist er rosa hinterlegt und ich kann den text umschreiben. aber nur das, sonst nichts. es gibt keine eigenschaften. strg+1 geht auch nicht.
was mache ich falsch?

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