Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Bemassung Textüberschreibung ändern

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:  Bemassung Textüberschreibung ändern (3916 mal gelesen)
mabu1080
Mitglied



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

Beiträge: 11
Registriert: 14.10.2014

Win7 SP1, i7-3770 3.4 GHz, 8GB, Quadro K2000
AutoCAD 2012 & AutoCAD Map 3D 2014

erstellt am: 25. Nov. 2014 09: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


Bemassung.dwg

 
Hallo zusammen,

wie ist es möglich, z.B. über den Befehl _find die Eigenschaft Textüberschreibung einer Bemassung zu durchsuchen und Werte zu ersetzen.
In meiner Zeichnung hat es mehrere Bemassungen, welche zweizeilig sind. Alle sind über den Bemassungsstil mit einem Suffix "\P" ergänzt, leider sind aber auch einige mit der Textüberschreibung "<>\P30" versehen. Dadurch gibt es zwei Absätze (1. Bemassungsstil, 2. Textüberschreibung). Nun möchte ich dieses "\P" aus der Textüberschreibung entfernen, damit die Bemassungen einheitlich sind.
Von Hand ist leider keine Option, da es zu viele sind. Im Anhang ist noch ein Beispiel mit 2 unterschiedlichen Bemassungen.

Besten Dank für die Ideen.

Grüsse mabu1080

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: 25. Nov. 2014 10:22    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 mabu1080 10 Unities + Antwort hilfreich

Kann es jetzt nicht testen, aber da man mit find generell keine Formatierungen bearbeiten kann, denke ich das es nicht geht.
Reine Vermutung..

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

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: 25. Nov. 2014 10:23    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 mabu1080 10 Unities + Antwort hilfreich

So ganz erschließt sich mir der Hintergrund des ganzen nicht, aber egal .... anbei was zum experimentiern:

(defun C ELSUFFANDOVER( / AWS)
  (vl-load-com)
  (if(setq AWS(ssget '((0 . "DIMENSION"))))
    (mapcar
    '(lambda(X / Y)
        (and(=(type(setq Y(cadr X)))'ENAME)
            (setq Y(vlax-ename->vla-object Y))
            (not(vl-catch-all-error-p(vl-catch-all-apply 'vla-put-Textsuffix (list Y "\\P"))))
            (not(vl-catch-all-error-p(vl-catch-all-apply 'vla-put-Textoverride (list Y "<>30"))))
        )   
      )   
      (ssnamex AWS)
    )
  ) 
)

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

mabu1080
Mitglied



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

Beiträge: 11
Registriert: 14.10.2014

Win7 SP1, i7-3770 3.4 GHz, 8GB, Quadro K2000
AutoCAD 2012 & AutoCAD Map 3D 2014

erstellt am: 25. Nov. 2014 10:44    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

@cadffm: Leider geht es über diese Funktion nicht.

@CADmium: Ich möchte eigentlich nur in der Textüberschreibung das "\P" entfernen.

Soweit ich den Code lesen kann, sucht dieser eine Textüberschreibung mit dem Inhalt "\P" und überschreibt diesen mit "<>30".
Somit müsste ich den Text auslesen, "\P" ersetzen und wieder überschreiben.

Code:

(setq textschnipsel (not(vl-catch-all-error-p(vl-catch-all-apply 'vla-put-Textsuffix (list Y "\\P")))))
(command "find") %Suchen in "textschnipsel" nach "\P" und ersetzen durch ""
(not(vl-catch-all-error-p(vl-catch-all-apply 'vla-put-Textoverride (list Y "textschnipsel"))))

[Diese Nachricht wurde von mabu1080 am 25. Nov. 2014 editiert.]

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

Peter1969
Mitglied
Technischer Zeichner, AutoCAD Certified Professional


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

Beiträge: 168
Registriert: 13.05.2008

ACA 2021 + OCTAcad 21 (Projektverwaltung & Applikation Messebau),
AutoCAD Mechanical 2021
Windows 10 Pro 64Bit
-----------------------
NVIDIA Quadro K2200
Intel Core i7
16GB RAM
Evoluent VerticalMouse C
3D SpaceMouse Pro

erstellt am: 26. Nov. 2014 11:18    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 mabu1080 10 Unities + Antwort hilfreich


Bemassung.dwg

 
Hallo mabu1080,

vielleicht suchst Du mal nach der LISP-Funktion "StripMtext v5.0b by Steve Doman and Joe Burke" - mit dieser kann man sehr schön sehr viele Formatierungen von MTEXTen und auch von Bemassungstexten entfernen. Anbei die Datei nach der Bearbeitung mit StripMtext...Damit können auch mehrere Bemassungstexte gleichzeitig zurückgesetzt werden!


Gruß Peter

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

mabu1080
Mitglied



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

Beiträge: 11
Registriert: 14.10.2014

Win7 SP1, i7-3770 3.4 GHz, 8GB, Quadro K2000
AutoCAD 2012 & AutoCAD Map 3D 2014

erstellt am: 27. Nov. 2014 13: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

Hallo Peter1969,

danke für Deinen Input zu meinem Problem. Das Tool ist mir bekannt und es funktioniert. Leider wird "\P" durch einen " " Leerschlag ersetzt und die Masszahl ist nicht mehr zentriert.

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

Clayton
Ehrenmitglied
Konstrukteur


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

Beiträge: 1632
Registriert: 07.02.2004

AMD Athlon 64X2 5600+, 1GB, Nvidia Quadro Pro FX 1100
Inventor Series 10
Mathcad 13

erstellt am: 27. Nov. 2014 13: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 Nur für mabu1080 10 Unities + Antwort hilfreich

Hi,
Warum gehst Du nicht einfach ueber die "Eigenschaften" mit der Maus bis runter auf "Text Override" (weiss nicht wie das auf deutch heisst) und laesst nur "<>" stehen, wenn es das ist worauf Du hinaus willst.
Gruss

[Diese Nachricht wurde von Clayton am 27. Nov. 2014 editiert.]

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

mabu1080
Mitglied



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

Beiträge: 11
Registriert: 14.10.2014

Win7 SP1, i7-3770 3.4 GHz, 8GB, Quadro K2000
AutoCAD 2012 & AutoCAD Map 3D 2014

erstellt am: 02. Dez. 2014 11:52    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,
in der Zeichnung sind einige Bemassungen mit unterschiedlichen Zusatzbemassungen. z.B. <>\P30, <>\P40, <>\P50, usw. Damit würde ich jeden Bemassungszusatz auf den gleichen Wert setzen.
Gruss

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

Peter1969
Mitglied
Technischer Zeichner, AutoCAD Certified Professional


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

Beiträge: 168
Registriert: 13.05.2008

ACA 2021 + OCTAcad 21 (Projektverwaltung & Applikation Messebau),
AutoCAD Mechanical 2021
Windows 10 Pro 64Bit
-----------------------
NVIDIA Quadro K2200
Intel Core i7
16GB RAM
Evoluent VerticalMouse C
3D SpaceMouse Pro

erstellt am: 02. Dez. 2014 13:01    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 mabu1080 10 Unities + Antwort hilfreich


ResultatSchnellauswahlTextuberschreibung.PNG


SchnellauswahlTextuberschreibungAnhang40.PNG


AnderungTextuberschreibungAnhang40.PNG

 
Hallo mabu1080,

folgende Vorschläge:

1.Alle Bemaßungen auswählen, die überhaupt einen Zeilenumbruch in der Textüberschreibung haben (Schnellauswahl mit Platzhaltervergleich - siehe 1.Screenshot).

2. Entweder geeignetes LISP-Tool benutzen (dass nur "\P" entfernt)

   Oder die Untermaßzahlen händisch ändern, wenn es nur eine handvoll Varianten wären (dass weisst nur Du)!

(siehe weitere Screenshots...)

Hoffe Du kommst weiter,
Gruß Peter

[Diese Nachricht wurde von Peter1969 am 02. Dez. 2014 editiert.]

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