VectorWorks forum: Aanpassen Lettergrootte - VectorWorks forum

Ga naar inhoud

Pagina 1 van 1

Aanpassen Lettergrootte

#1 Gebruiker is offline   Pascal 

  • Expert
  • Groep: Members
  • Posts: 1,079
  • Lid geworden: 17-June 04
  • Gender:Male
  • Location:Loker-heuvelland
  • Interests:DTP, jeugdvoetbal
  • Stad:Loker

Gepost 20 June 2014 - 08:43 AM

Hallo,

ik heb hier onderstaand script, die we in het grondplan plaatsen bij de ramen,
alles lukt, behalve als ik de lettergrootte wens te veranderen reageert het script niet
kan iemand eens kijken of ik daar een fout gemaakt heb, of hoe ik dat toch werkende krijg
alvast bedankt

Procedure Raam;


VAR
eventID, eventMessage : LONGINT;
hoog,breed,a,b:REAL;
t1,t2,t3,t4,t5,t6,t7,t8,t12345678:STRING;

ts:INTEGER;
h:HANDLE;

BEGIN
VSOGetEventInfo(eventID,eventMessage);
IF (eventID = 3) THEN BEGIN

h:=FSActLayer;


PushAttrs;
t1:=Pnummer;
t2:=Ptype_raam;
t3:=Pbwh;
t4:=PRolluik;
t5:=Peigen_maat;
t6:=Praamroosters;
t7:=Peignr;
t8:=PINVISIVENT;

TextFont(GetFontID('Arial'));
TextSize(5);
TextFace([]);
TextFlip(0);
TextRotate(0);
TextSpace(2);
TextJust(1);
TextVerticalAlign(5);
TextOrigin(0,0);







FillPat(0);
PenFore(255);
PenBack(0);
PenPat(2);
PenSize(6);
PenPat(2);





IF Popmaat=true then begin
t3:=t5;
end;
IF POpnummer=true then begin
t1:=t7;
end;

t12345678:=Concat('' ,t1,Chr(13),'',t2,Chr(13),'schoot : ',t3,Chr(13),'',t4,Chr(13),'',t6,Chr(13),'',t8,Chr(13));
FillPat(0);PenFore(255);
begingroup;

BeginText;
t12345678
EndText;
endgroup;
If PFlip = True then begin
DoMenuTextByName('Flip Vertical',0);
END;
If PFlip2 = True then begin
DoMenuTextByName('Flip Horizontal',0);
END;





PopAttrs;
END;
End;



Run (Raam);
iMac (Retina 5K, 27-inch, 2017)
Processor 4,2 GHz Intel Core i7
Geheugen 24 GB 2400 MHz DDR4
27-inch (2560 x 1440)
Videokaart Radeon Pro 575 4096 MB
OS MacOs High Sierra

Vectorworks 2018 Architectuur SP4+ Renderworks
0

#2 Gebruiker is offline   hippothamus 

  • Forum Kenner
  • Groep: Members
  • Posts: 97
  • Lid geworden: 14-November 12
  • Gender:Male
  • Stad:Hasselt

Gepost 20 June 2014 - 08:52 AM

Ik zie niet direct een fout, maar ik raad je wel aan niet volgende functies te gebruiken:

TextFont(GetFontID('Arial'));
TextSize(5);
TextFace([]);
TextFlip(0);
TextRotate(0);
TextSpace(2);
TextJust(1);
TextVerticalAlign(5);

Maar eerder de varianten die een object wijzigen
SetTextSize() etc

Het verschil is dat je nu je document instellingen telkens zal aanpassen bij het uitvoeren van je script, dit kan later "ambetant" zijn.
Beter eerst het object plaatsten en nadien met de handle de eigenschappen aanpassen.
Vectorworks 2013
Windows 7 64 bit; i5-2400 CPU 3.10 Ghz; 4Gb Ram
0

Deel dit topic:


Pagina 1 van 1

2 Gebruiker(s) lezen dit topic
0 gebruikers, 2 gasten, 0 anonieme gebruikers