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,065
  • 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 (27-inch, eind 2013)
27-inch (2560 x 1440)
NVIDIA GeForce GTX 775M 2048 MB
Geheugen 16GB
OS El Capitan 10,11.6
IPF825 Canon plotter
Richoh printer/scanner
Vectorworks 2018 Architectuur SP1+ 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

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