header image
Nieuws

Beste CADToppers, antwoorden kunnen alleen gegeven worden, als er vragen worden gesteld, schroom dus niet en stel je vragen!

Topic: Tekststyle --> Progje gezocht!  (gelezen 839 keer)

Tekststyle --> Progje gezocht!
« Gepost op: 1 december 2017, 09:27:56 »
Goede morgen CADToppers,

Heeft iemand een progje om snel en eenvoudig alle aanwezige tekst stylen in een tekening om te zetten naar een nieuwe style?
Inclusief stylen die in blocken zitten?

Gr. Richard
Re: Tekststyle --> Progje gezocht!
« Reactie #1 Gepost op: 4 december 2017, 11:22:51 »
ik zal het vast niet op een technische manier doen, maar ik zou de lagen isoleren waar de teksten staan en dan alles selecteren en met properties de style proberen te veranderden of alles selecteren en in properties kiezen voor teksten en daar style veranderen. Ik heb nergens een programmaatje voor :-[
Re: Tekststyle --> Progje gezocht!
« Reactie #2 Gepost op: 5 december 2017, 07:56:07 »
Dag Hera,

Jouw methode werkt helaas niet teksten die in blocken zitten  :( :(
Vandaar de wens voor een progje  ;D
Re: Tekststyle --> Progje gezocht!
« Reactie #3 Gepost op: 2 januari 2018, 13:18:16 »
Gaat het om meerdere oude stijlen veranderen naar één nieuwe stijl?
Of gaat het gewoon om A vervangen door B?

In het laatste geval kan je gewoon met RENAME de oude textstyle de nieuwe gewenste naam geven. Eventueel de instellingen van de textstyle aanpassen en je bent klaar. Geen progje voor nodig  ;)

In het eerste geval dan heb je wel een LISP nodig om niet al teveel werkt te hebben en dat hoeft niet al teveel werk te zijn.
Re: Tekststyle --> Progje gezocht!
« Reactie #4 Gepost op: 2 januari 2018, 13:25:47 »
Hoi Danny,

Dank voor je reactie!
Ik zoek in dit geval een LISP-je...
Soms krijgen we tekeningen van derden, waarin de meest exotische tekst stylen zitten.
Deze wil ik in 1x allemaal kunnen omzetten naar 1 nieuwe style.

Gr. Richard
Re: Tekststyle --> Progje gezocht!
« Reactie #5 Gepost op: 3 januari 2018, 11:56:45 »
Hi Richard,

Even een quick 'n Dirty versie, maar dit zou moeten doen wat je vraagt (maar ook niet meer dan dat  ;) )
Tekststijlen worden ook nog mogelijk gebruikt in Dimension, Multi Leader en Table Styles, maar om deze door te spitten wordt een stuk lastiger. omdat je dan door Extended Entity Data en Dictionaries heen moet.

(defun c:Test (/ T_NewTextStyle T_Doc)
   (if
      (and
         (/= (setq T_NewTextStyle (getstring "\nNieuwe tekststijl: ")) "")
         (tblsearch "STYLE" T_NewTextStyle)
      )
      (progn
         (setq T_Doc (vla-get-ActiveDocument (vlax-get-acad-object)))
         (vla-StartUndoMark T_Doc)
         (vlax-for T_Layout (vla-get-Layouts T_Doc)
            (ChangeTextStyle (vla-get-Block T_Layout) T_NewTextStyle)
         )
         (vlax-for T_Block (vla-get-Blocks T_Doc)
            (ChangeTextStyle T_Block T_NewTextStyle)
         )
         (vla-EndUndoMark T_Doc)
         (vlax-release-object T_Doc)
      )
      (princ "\n ** Tekststijl bestaat niet!")
   )
   (princ)
)

(defun ChangeTextStyle (CTS_Collection CTS_TextStyle)
   (vlax-for CTS_Object CTS_Collection
      (if
         (vlax-property-available-p CTS_Object 'StyleName)
         (vla-put-StyleName CTS_Object CTS_TextStyle)
      )
   )
)
« Laatst bewerkt op: 3 januari 2018, 12:01:19 door DannyNL »
Re: Tekststyle --> Progje gezocht!
« Reactie #6 Gepost op: 3 januari 2018, 11:59:16 »
Ik ga direct testen :)
Re: Tekststyle --> Progje gezocht!
« Reactie #7 Gepost op: 3 januari 2018, 12:04:16 »
Command: TEST
Nieuwe tekststijl: Arial
; error: no function definition: CHANGETEXTSTYLE
Re: Tekststyle --> Progje gezocht!
« Reactie #8 Gepost op: 3 januari 2018, 12:06:44 »
Je moet in de code in bovenstaand bericht even naar beneden scrollen. Staan twee functie definities, C:Test en ChangeTextStyle  :)
Re: Tekststyle --> Progje gezocht!
« Reactie #9 Gepost op: 3 januari 2018, 12:41:52 »
Het werkt nu, maar ik zoek idd meer de optie waarbij ook de textstyle(n) in de blocken en dimstylen worden aangepast.
 ::)
Re: Tekststyle --> Progje gezocht!
« Reactie #10 Gepost op: 3 januari 2018, 12:47:17 »
In de blocken worden de textstyles aangepast met deze routine (wel even REGEN uitvoeren want dat doet de routine niet), maar (nog) niet in de dimension styles.
Ik zal eens kijken of ik daar met LISP een beetje makkelijk kan bijkomen, maar dat gaat wel iets meer regeltjes code kosten waar ik deze week niet even de tijd voor tussendoor heb. Mocht iemand dit al kunnen aanvullen, dan be my guest  :)
Re: Tekststyle --> Progje gezocht!
« Reactie #11 Gepost op: 3 januari 2018, 12:51:50 »
Danny,

Alvast bedankt voor je inspanningen!
Mag ik je anders een test tekening sturen, waarin stylen zitten die allemaal naar Standard toe moeten?
Re: Tekststyle --> Progje gezocht!
« Reactie #12 Gepost op: 3 januari 2018, 13:06:18 »
Natuurlijk, geen probleem.
Is altijd makkelijker testen met een voorbeeld :)
Re: Tekststyle --> Progje gezocht!
« Reactie #13 Gepost op: 3 januari 2018, 13:14:04 »
Ik heb je via mijn Gmail de tekening gestuurd.
Re: Tekststyle --> Progje gezocht!
« Reactie #14 Gepost op: 3 januari 2018, 14:46:54 »
Via de mail heb ik even contact gehad met Danny.
Hij heeft de LISP routine nog wat aangepast.
Desondanks blijven er sommige tekst stylen aanwezig.
Dit zijn waarschijnlijk proxy - objecten, die uit andere applicaties komen.
Met kunst en vlieg werk zijn deze wel uit de tekening te halen, maar voor nu is het een kwestie van accepteren dat dit soort dingen nou eenmaal voorkomen.