---

Hallo liebe Forumgemeinde,
ich arbeite mit Bricscad V14 Pro und habe nun folgendes Problem.
In unseren Zeichnungen vom Kunden ist sehr viel Text enthalten mit 2 unterschiedlichen Layern ( X und Y )
Die vielen Texte die auf den Layer X liegen sind von der Groeße in Ordnung.
Die vielen Texte die auf den Layer Y liegen möchte ich gern in der Groeße mit einem Macro verändern,damit
diese beim A4 Ausdruck für die Mitarbeiter gut lesbar sind.
Nun mein Problem:Ich kann zwar über die Layersteuerung den Layer Y auswählen,kann aber die Höhe nicht ändern.
Über die Filterfunktion werden alle Texte gekennzeichnet und auch alle in der Höhe verändert,das möchte ich aber nicht.
Einzel kann ich die Schrifthöhe vom Text verändern mit ^C^C^C_change;;;;5;;;
Mein Ansatz ist oder war ^C^C^C_Chprop;eig;la;Layer Y;
ab da kann ich die Höhe der vielen Texte nicht verändern.
Ist das über ein Macro überhaupt möglich ?

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

---

Sind das nur Texte und MTexte? Oder auch Attribute von Blöcken?
Reine Texte könntest Du doch über die Schnellauswahl auswählen und die Texthöhe ändern.
Ansonsten LISP'eln 

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

---

Hallo,es ist nur Text in Form von Zahlen,kein M-Text oder was anderes.
Klar geht das auch über die Eigenschaften Leiste,aber mit einem Macro
wäre es viel einfacher.

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

---

(if(setq AWS(ssget "_x" (list '(0 . "TEXT") '(8 . "AM_5"))))
  (mapcar
    '(lambda(X / Y D)
      (if(and(=(type(setq Y(Cadr X)))'ENAME)(setq D (entget Y)))
        (entmod(subst'(40 . 3.25)(assoc 40 D)D))
      ) 
    )   
    (ssnamex AWS)
  )
)

wählt alle Texte auf dem Layer "AM_5" aus und ändert die Texthöhe auf 3.25  ... Werte entsprechend abändern und du hast dein Macro ( auch wenn es Lisp ist)

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

---

Vielen Dank CADmium für die Arbeit die Du dir gemacht hast,das funktioniert super.Aber ein Macro wäre mir lieber.
kennt irgendwer die Befehle die hinter der Eigenschaften Leiste stehen ? Objekthöhe kann ja auch ausgewählt werden,
da tut sich dann aber leider nichts.Ist das ein Fehler in Bricscad ?

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

---

Hallo stk,
erklär doch bitte, warum Dir ein Makro lieber wäre, wenn Du schon eine "Silbertablettlösung" vorgesetzt bekommst.
Abfragen "welcher Layer" und "welche Texthöhe" für zukünftige andere Projekte lassen sich bestimmt leicht in das Lisp von CADmium integrieren.
Gruß
Robert

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

---

Objekthöhe != (Text)Höhe

>> Objekthöhe <<

>> Höhe des Textes <<

Schneller biste wahrscheinlich zu Fuß 
Aber schau z.B. >> hier << mal rein: Das Makro funktioniert bei Texten, deren Textstil eine Höhe 0.0 hat. Hat der Textstil schon eine Höhe, kommen 'seltsame Effekte' dabei heraus  Ich hoffe (und denke), dass es unter Brics auch ohne weitere Anpassungen läuft.

Eingabe: Texthöhe (z.B. 3.5) und Maßstab 1000, dann Objekt picken, feddisch.
Geht sicherlich bedeutend kürzer und eleganter, aber mehr Zeit zum googlen wollte ich jetzt nicht für Dich investieren.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

Hallo Fiedelzastrow,einige unsere Kunden wünschen lieber ein Macro das gleich mit in der CUI eingebunden ist,ohne extra eine Datei auf dem system ablegen zu müssen,da es ja in den Unternehmen sehr oft vorkommt,das der Admin vieles
nicht zulässt.Sicher ist das eine ! Silbertablettlösung ! das weis ich auch zu schätzen.Meine Frage war ja auch nur,ob es mit einem Macro gehen würde,damit ich mir nicht Stundenlang die Arbeit mache und zu keinem Ergebniss komme.

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

---

die paar Lispzeilen kannst du auch als Buttonmakro nehmen und damit in die CUI integrieren  ... das muss nicht extra als lsp-Datei gespeichert und geladen werden ....

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

---

Hallo runkelruebe,das Macro hatte ich auch schon gefunden,aber wie du selber sagst,kommen da Ergebnisse raus,die ich
nicht so recht nachvollziehen kann.Der Text ist in der Regel zwischen 1.0 und 3.0mm hoch und soll auf 10.0 erhöht werden.

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

---

Hallo CADmium,habe mir das Prog mal auf einem Button gelegt,funktioniert super,ich nuss aber zum Schluss noch die rechte Maustaste drücken.

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

---

Wie gesagt, das liegt am TextSTIL.

TEXTSTIL MIT FESTER HÖHE

Code:

---

Befehl: _undo
Aktuelle Einstellungen: Automatisch = Ein, Steuerung = Alle, Zusammenfügen = Ja, Layer = Ja
Anzahl der rückgängig zu machenden Operationen eingeben oder [Auto/Steuern/Beginn/Ende/Markierung/Rück] <1>: _m

Befehl:
Befehl: modemacro

Neuen Wert für MODEMACRO, oder . für keinen eingeben <"">: Texthoehe eingeben in mm (z.B. 3.5)

Befehl: userr4

Neuen Wert für USERR4 eingeben <0.000>: 10

Befehl: modemacro

Neuen Wert für MODEMACRO, oder . für keinen eingeben <"Texthoehe eingeben in mm (z.B. 3.5)">: Maßstab eingeben (z.B. 100)

Befehl: useri1

Neuen Wert für USERI1 eingeben <0>: 1000

Befehl: modemacro

Neuen Wert für MODEMACRO, oder . für keinen eingeben <"Maßstab eingeben (z.B. 100)">: Beschriftung auswählen

Befehl: _change

Objekte wählen: 1 gefunden

Objekte wählen:
Modifikationspunkt angeben oder [EIgenschaften]:

Neuen Texteinfügepunkt angeben <keine Änderung>: @

Neuen Textstil <RAS-Verm_S> eingeben:

Neuen Drehwinkel <300.0000g> angeben: 10 <<-- HIER scheppert es

Neuen Text eingeben <123456>:

Befehl:
ÄNDERN

Objekte wählen: *Abbruch*

---

TEXTSTIL OHNE FESTE HÖHE (also 0.0):

Code:

---

Befehl:
Befehl: _undo
Aktuelle Einstellungen: Automatisch = Ein, Steuerung = Alle, Zusammenfügen = Ja, Layer = Ja
Anzahl der rückgängig zu machenden Operationen eingeben oder [Auto/Steuern/Beginn/Ende/Markierung/Rück] <1>: _m

Befehl:
Befehl: modemacro

Neuen Wert für MODEMACRO, oder . für keinen eingeben <"Maßstab eingeben (z.B. 100)">: Texthoehe eingeben in mm (z.B. 3.5)

Befehl: userr4

Neuen Wert für USERR4 eingeben <10.000>:

Befehl: modemacro

Neuen Wert für MODEMACRO, oder . für keinen eingeben <"Texthoehe eingeben in mm (z.B. 3.5)">: Maßstab eingeben (z.B. 100)

Befehl: useri1

Neuen Wert für USERI1 eingeben <1000>:

Befehl: modemacro

Neuen Wert für MODEMACRO, oder . für keinen eingeben <"Maßstab eingeben (z.B. 100)">: Beschriftung auswählen

Befehl: _change

Objekte wählen: 1 gefunden

Objekte wählen:
Modifikationspunkt angeben oder [EIgenschaften]:

Neuen Texteinfügepunkt angeben <keine Änderung>: @

Neuen Textstil <Arial> eingeben:

Neue Höhe <2.000> angeben: 10  <<<--- diese Zeile fehlt bei Texten MIT fester Höhe und deswegen knallt das Makro

Neuen Drehwinkel <300.0000g> angeben:

Neuen Text eingeben <123456>:

---

Jetzt weißt Du, woran es liegt und kannst dementsprechend gegensteuern. Ich lese es so, dass Du das für einen Kunden benötigst? Dann würde ich eh lsp empfehlen, damit kannst Du (Benutzer-)Fehler abfangen, mit einem Makro ist das nicht (oder nur sehr schwer) möglich.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

CADmium, habe es alleine hinbekommen ( bin stolz ),vielen Dank für Deine Arbeit.
runkelruebe, danke für die ausführliche Erklärung des Macros.

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