VectorWorks forum: invoegpunt bepalen bij script - VectorWorks forum

Ga naar inhoud

Pagina 1 van 1

invoegpunt bepalen bij script

#1 Gebruiker is offline   Pascal 

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

Gepost 27 April 2005 - 02:30 PM

Hallo,

heb juist een eevoudig scriptje gemaakt om mijn goten in een doorsnede te plaatsen. Nu is het invoegpunt onderaan links van de boordplank. maar ik zou hem graag bovenaan rechts hebben. Hoe kan ik dit veranderen

dit is mijn script

Procedure Goot;

VAR
x,y,f:REAL;
a,b:INTEGER;
h:HANDLE;
ts:INTEGER;
BEGIN
PushAttrs;
f:=PScale;

begingroup;
NameClass('None');
ClosePoly;
FillFore(255);
FillBack(0);
FillPat(1);
PenFore(255);
PenBack(0);
PenPat(2);
PenSize(10);
Rect(0,12.5,1.5,0);
FillBack(0);
Poly(1.5,2.5,11.5,2.5,16.5,12.5,1.5,12.5);
FillBack(0);


endgroup;



PopAttrs;

END;

Run (Goot);

mvg
pascal
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   Gerrit 

  • Expert
  • Groep: Root Admin
  • Posts: 3,319
  • Lid geworden: 17-June 04
  • Gender:Male
  • Stad:DE Hasselt

Gepost 27 April 2005 - 02:54 PM

Bij het defini?ren van je numerieke info redeneer je gewoon vanuit dat specifieke punt, en alles wordt dientengevolge van daaruit getekend.

Enkele suggesties FWIW

- in een menucommando zal de regel f:=PScale; een error voor gevolg hebben. Die werkt enkel in een object waaraan de parameter Scale is toegekend.
- functie NameClass mogelijk plaatsen v??r BeginGroup
- jouw object is volledig hard gecodeerd, dwz met absolute waarden - en zal altijd ergens rond het absolute nulpunt komen te staan. Probeer eens met GetPt, zodat je zelf een klik geeft vanwaaruit getekend wordt.

Vooruit, omdat jij het bent, ziehier boordplank. Goot zelf is aan jou ;-)

Procedure Goot;
VAR
x,y:REAL;
BEGIN
PushAttrs;
GetPt(x,y);
begingroup;
NameClass('None');
ClosePoly;
FillFore(255);
FillBack(0);
FillPat(1);
PenFore(255);
PenBack(0);
PenPat(2);
PenSize(10);
Rect(x,y,x-1.5,y-12.5);
FillBack(0);
{poly}
FillBack(0);
endgroup;
PopAttrs;
END;
Run (Goot);


Retina MacBook Pro i7 • iPad Pro 10.5 • iPhone SE
macOS - iOS - Vectorworks [meest recente versies]
0

Deel dit topic:


Pagina 1 van 1

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