---

Hallo zusammen.

Es geht um Textmasken. Habe in der hilfe schon einiges gefungen über textmasken. Allerdings beziehen sich die beiträge nur um reine texte.

was ich möchte ist, eine bemassung zu erstellen die eine maske um den text erstellt. Gibt es da eine möglichkeit?

Ich danke euch für eure wie immer zuverlässige und schnell antworten.

ps. und wenn ich schonmal dabei bin, kann mir jemand verraten welcher gruppencode für den präfix und den suffix für die bemassungen zuständig sind? habe zwei entities verglichen, eine mit und eine ohne präfix. da sehe ich keinen unterschied.

gruss
theo

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

---

wie bei Mtext.. so dass der Hintegrund frei gestellt ist ?

geht IMHO ab 2004 mit Trick  und später dann per Einstellung im Bemassungsstil

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

ja so wie es bei textmask mit dem solid aussieht. Die "solidschraffur" dann der text. soll alles der besseren lesbarkeit dienen.
ich arbeite mit der 2004 version. da gibt es bei den bemassungen nur die option eines textrahmens. ich benötige aber die maske.

das du einen trick kennst war mir irgendwie klar. Deshalb bin ich auch froh von dir/euch immer so super hilfen bekommen zu dürfen. frage ist nur ob dieser trick wie ein zaubertrick ist, der nicht verraten wird oder ist er für die menschheit des CAD zu erfahren.

die sache mit dem code für den präfix/suffix wäre noch zu klären. wenn ich da keine lösung finde werde ich auch mal einen trick anwanden und zwar beim code nummer 1 den inhalt ändern. "präfix<>suffix".
kommischer weise steht in beiden fällen (mit suffix / ohne suffix) im moment unter dem code 1 immer nur "<>".

auf jeden fall erstmal ein super liebes dankeschön für deine antwort.

gruß
theo

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

---

Hallo Thomas

ein frohes neues jahr wünsche ich dir und allen anderen in diesem forum.

ich habe mal in einem beitrag von dir einige zeilen gefunden die ich für mein bedarf geändert habe.

(defun BEM_linien_entfernen (OBJEKT / )
  (if (and (=(type OBJEKT) 'ENAME) (=(cdr(assoc 0  (entget OBJEKT))) "DIMENSION")         
      )
    (progn   
      (setq VLA-OBJEKT (vlax-ename->vla-object OBJEKT))
      (vlax-put-Property VLA-OBJEKT 'DimLine1Suppress  :vlax-true)
      (vlax-put-Property VLA-OBJEKT 'DimLine2Suppress  :vlax-true)
      (vlax-put-Property VLA-OBJEKT 'ExtLine1Suppress  :vlax-true)
      (vlax-put-Property VLA-OBJEKT 'ExtLine2Suppress  :vlax-true)
      (vlax-put-Property VLA-OBJEKT 'TextPrefix  "-")
      (vlax-put-Property VLA-OBJEKT 'TextSuffix  "-")
      (vlax-put-Property VLA-OBJEKT 'TextRotation  winkel)
    )
  )
)

damit kann ich die bemassungslinien, hilfslinien, präfix, suffix und textwinkel von bemassungsobjekten ändern. soweit so gut. läuft alles prima.
wie bekomme ich denn nun die textmaske um den text?

bin leider (oder vieleicht zum glück) auf euch angewiesen.

gruß
theo

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

---

na ok ...

(defun C:BEMMASK( / AUSWAHL INDEX)
  (defun OBJPUTXDATA (OBJ NEWXDATA / XDATA DATA) 
    (setq XDATA (assoc -3 (entget OBJ '("*"))))
    (regapp (car NEWXDATA))
    (if (setq DATA(assoc (car NEWXDATA) (cdr XDATA)))
      (setq XDATA(subst NEWXDATA                       
                        DATA
                        (cdr XDATA)
                 )
      )
      (setq XDATA(cons -3 (append (cdr XDATA)
                             (list NEWXDATA)    
                           )
               )     
      )
    )         
    (entmod(append (entget OBJ) (list XDATA)))
  )
  (if(setq AUSWAHL(ssget "_x" (list '(0 . "*DIMENSION*")(cons 410 (getvar "CTAB")))))
    (progn
      (setq INDEX -1)
      (repeat (sslength AUSWAHL)
         (setq OBJ (ssname AUSWAHL (setq INDEX(1+ INDEX))))
         (OBJPUTXDATA OBJ '("ACAD_DSTYLE_DIMTEXT_FILL" (1070 . 376) (1070 . 1) (1070 . 377) (1004 . "1800000001000000000000C0000000000000000000000000")) )
         (OBJPUTXDATA OBJ '("ACAD_DSTYLE_DIMEXT_LENGTH" (1070 . 378) (1040 . 0.5)) )
         (OBJPUTXDATA OBJ '("ACAD_DSTYLE_DIMEXT_ENABLED" (1070 . 383) (1070 . 0)) )
         (OBJPUTXDATA OBJ '("ACAD_DSTYLE_DIMARC_LENGTH_SYMBOL" (1070 . 379) (1070 . 0)) )
         (OBJPUTXDATA OBJ '("ACAD_DSTYLE_DIMJOGGED_JOGANGLE_SYMBOL" (1070 . 384) (1040 . 1.5708)))
      )           
    ) 
  ) 
)

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

vielen dank.

habe dir eine persönliche mail geschickt.
liest du.

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

---

so wie ich deine zeilen verstehe werden alle bemassungen im modell durchsucht und die xdata einträge geändert.

ist wunderbar. so soll es auch sein. ich brauche zwar nicht alle aber die änderung bekomme ich schon hin.

frage ist nur? warum bekomme ich als fehler immer den

; Fehler: Fehlerhafte DXF-Gruppe: (("ACAD_DSTYLE_DIMTEXT_FILL" (1070 . 376)
(1070 . 1) (1070 . 377) (1004 .
"1800000001000000000000C0000000000000000000000000"))
("ACAD_DSTYLE_DIMEXT_LENGTH" (1070 . 378) (1040 . 0.5))
("ACAD_DSTYLE_DIMEXT_ENABLED" (1070 . 383) (1070 . 0))
("ACAD_DSTYLE_DIMARC_LENGTH_SYMBOL" (1070 . 379) (1070 . 0))
("ACAD_DSTYLE_DIMJOGGED_JOGANGLE_SYMBOL" (1070 . 384) (1040 . 1.5708)))

heraus.

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

---

also bei mir läuft der Code durch .. war damals aber für 2004/2005 geschrieben

probier mal

(defun BEMMASK(OBJEKT / )
  (if (and (=(type OBJEKT) 'ENAME) (=(cdr(assoc 0  (entget OBJEKT))) "DIMENSION")         
      )
    (progn   
      (setq VLA-OBJEKT (vlax-ename->vla-object OBJEKT))
      (vlax-put-Property VLA-OBJEKT 'TextFill  :vlax-true)
      (vlax-put-Property VLA-OBJEKT 'TextFillColor  6)
     
    )
  )
)

denke , das ist einfacher
------------------
      - 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

---

Guten morgen.

vielen dank für die unendliche hilfe.

der textfill ist nicht vorhanden.
benutze version 2004.

gruss
theo

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

---

die Textmaske kann eigentlich erst mit Version 2005 .... ich hatte Mechanical 2004DX .. und damit ging der Code mit den Xdatas  ... <<Hier>> war die Diskussion dazu.

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

---

Zitat:

---

Original erstellt von GottesGeschenk:
so wie ich deine zeilen verstehe werden alle bemassungen im modell durchsucht und die xdata einträge geändert.

ist wunderbar. so soll es auch sein. ich brauche zwar nicht alle aber die änderung bekomme ich schon hin.

frage ist nur? warum bekomme ich als fehler immer den

; Fehler: Fehlerhafte DXF-Gruppe: (("ACAD_DSTYLE_DIMTEXT_FILL" (1070 . 376)
(1070 . 1) (1070 . 377) (1004 .
"1800000001000000000000C0000000000000000000000000"))
("ACAD_DSTYLE_DIMEXT_LENGTH" (1070 . 378) (1040 . 0.5))
("ACAD_DSTYLE_DIMEXT_ENABLED" (1070 . 383) (1070 . 0))
("ACAD_DSTYLE_DIMARC_LENGTH_SYMBOL" (1070 . 379) (1070 . 0))
("ACAD_DSTYLE_DIMJOGGED_JOGANGLE_SYMBOL" (1070 . 384) (1040 . 1.5708)))

heraus.

 

---

das
(1004 .
"1800000001000000000000C0000000000000000000000000")

sollte auf einer Zeile stehen !!!

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