tekststyle veranderen in ca. 800 attributes welke verwerkt zijn in een block

[silverster]

ja dat klopt dat had ik in eerste instantie ook precies datzelfde probleem na wat gepruts is het me toch uiteindelijk gelukt.

vraag me alleen niet meer hoe (sorry)

[HofCAD]

Je kan toch geen teksten(text, mtext of een attribute definition) tekenen zonder
een tekststijl?
Plaats anders je block definitie.

Met vriendelijke groet, HofCAD CSI.

Het is hem blijkbaar toch gelukt als je in zijn tekening een regen geeft is de tekst verdwenen.
als je vervolgens kijk zij er attributen zonder style aanwezig bij de blocken ?

Beste Bart en Silvester,

Inderdaad blijkt uit de uitvoer van het commando LIST dat er geen Style
gebruikt is, wat voor mij ontzettend raar is.

Code Selecteer Uitklappen

LIST
Select objects: 1 found

Select objects:

                 BLOCK REFERENCE  Layer: "tekst putnummer"
                            Space: Model space
                   Handle = 1aa5
       Block Name: "RIOOLPUT"
                at point, X=64125.3300  Y=431789.1000  Z=   0.0000
   X scale factor:    2.0000
   Y scale factor:    2.0000
   rotation angle:      0
   Z scale factor:    2.0000
  Scale uniformly: No
  Allow exploding: Yes

                  ATTRIBUTE  Layer: "Q28_Gemrioolput"
                            Space: Model space
                   Handle = 1aa6
             Style = ""
        Annotative: No
             Font file = ltypeshp.shx
             start point, X=64127.1300  Y=431790.3000  Z=   0.0000
            height    2.5000
Press ENTER to continue:
             value 720
               tag PNUM
          rotation angle      0
             width scale factor    1.0000
         obliquing angle      0
             flags normal
        generation normal

                  END SEQUENCE  Layer: "tekst putnummer"
                            Space: Model space
                   Handle = 1aa7
Hierbij is ook nog vreemd dat de Font file ltypeshp.shx is,
want dat is geen text font file en deze kan daarom niet
gekozen worden in de dialoogbox van het commando STYLE.

Bij een explode van zo'n block RIOOLPUT krijg je onderstaand:

Code Selecteer Uitklappen

EXPLODE
Select objects: 1 found

Select objects:
** Undefined shape 80
** Undefined shape 78
** Undefined shape 85
** Undefined shape 77
** Undefined shape 80
** Undefined shape 78
** Undefined shape 85
** Undefined shape 77
Deze tekening is daarom voorlopig een echte X-file.
Nu zou ik toch graag willen weten, hoe je zo iets kan maken.

Met vriendelijke groet, HofCAD CSI.

[silverster]

bedoel je daarmee hoe je het op kan lossen, of hoe zo'n x-file tekening reproduceert?

[HofCAD]

bedoel je daarmee hoe je het op kan lossen, of hoe zo'n x-file tekening reproduceert?

Beste Silvester,

Om mijn onderzoek te vergemakkelijken:
1) Heb je ltypeshp.shx veranderd?
2) Heb je attribuut definitie soms veranderd met lisp.


Met vriendelijke groet, HofCAD CSI.

[silverster]

bedoel je daarmee hoe je het op kan lossen, of hoe zo'n x-file tekening reproduceert?

Beste Silvester,

Om mijn onderzoek te vergemakkelijken:
1) Heb je ltypeshp.shx veranderd?
2) Heb je attribuut definitie soms veranderd met lisp.


Met vriendelijke groet, HofCAD CSI.

ltypeshp.shx niet veranderd
en inderdaad attribuut definitie veranderd met lisp

[HofCAD]

bedoel je daarmee hoe je het op kan lossen, of hoe zo'n x-file tekening reproduceert?

Beste Silvester,

Waarschijnlijk heb je het gemaakt met zoiets als onderstaand:

Code Selecteer Uitklappen

(defun c:StN(/ e x xd TxtStyl)
(setq e (car (entsel)))
(if (setq x (entnext e))
(progn
(setq xd (entget x))
(setq TxtStyl "")
(setq xd (entmod (subst (cons 7 TxtStyl)(assoc 7 xd) xd)))
(command "_.REGEN")
))
)
Oplossen kan met StY of met AStY(zie bijlage):

Code Selecteer Uitklappen

(defun c:StY(/ e x xd TxtStyl)
(if (not (tblsearch "STYLE" "IsoTemp"))
(command "_STYLE" "IsoTemp" "isocp" "0" "1" "0" "N" "N"))
(setq e (car (entsel)))
(if (setq x (entnext e))
(progn
(setq xd (entget x))
(setq TxtStyl "IsoTemp")
(setq xd (entmod (subst (cons 7 TxtStyl)(assoc 7 xd) xd)))
(command "_.REGEN")
))
)

Met vriendelijke groet, HofCAD CSI.