VectorWorks forum: 3D Uitsparing In Muur Bij Kozijn - VectorWorks forum

Ga naar inhoud

Pagina 1 van 1

3D Uitsparing In Muur Bij Kozijn Hoe maak je een goede 3D uitsparing bij bijgevoegd script

#1 Gebruiker is offline   Peter v W 

  • Forum Kenner
  • Groep: Members
  • Posts: 57
  • Lid geworden: 08-October 09
  • Gender:Male
  • Location:Diepenveen/Deventer, NL
  • Stad:Deventer, NL

Gepost 14 April 2017 - 08:14 AM

Ik heb een script gemaakt voor een eenvoudig raam met een boog erboven. De boog zorgt ervoor dat het kozijn niet mooi wordt uitgeknipt in de muur. Ik las op internet het volgende http://developer.vec...Opening_in_Wall maar kom er hiermee zelf niet uit omdat ik net te weinig van vectorscirpt afweet. Wie kan me op weg helpen hoe ik het script moet aanpassen met deze toevoeging? 3D loci werken ook niet goed.

VAR
breedte, hoogte, dikte, kozijndiepte, kozijndikte, negge: REAL;
startx, starty, eindx, eindy: REAL;

BEGIN

breedte := Pbreedte;
hoogte := Phoogte;
dikte := Pdikte;
kozijndiepte := Pkozijndiepte;
kozijndikte := Pkozijndikte;
negge := Pnegge;
kozijndiepte := kozijndiepte+negge;
startx :=-breedte/2;
eindx :=breedte/2;

Locus(0, 0);

NameClass ('0-lijnen onder snedevlak');
{begin het 2D gedeelte}
Rect(startx+kozijndikte,negge,eindx-kozijndikte,kozijndiepte);

NameClass ('m-hout dekkend geschilderd');
{begin het 2D gedeelte}

{3D onderdorpel}
BeginXtrd (0,kozijndikte);
Rect(startx,negge,eindx,kozijndiepte);
EndXtrd;

{3D stijl links}
BeginXtrd (kozijndikte, hoogte-kozijndikte);
Rect(startx,negge,startx+kozijndikte,kozijndiepte);
EndXtrd;
Rect(startx,negge,startx+kozijndikte,kozijndiepte);

{3D stijl rechts}
BeginXtrd (kozijndikte, hoogte-kozijndikte);
Rect(eindx-kozijndikte,negge,eindx,kozijndiepte);
EndXtrd;
Rect(eindx-kozijndikte,negge,eindx,kozijndiepte);

{3D bovendorpel}
BeginXtrd (hoogte-kozijndikte,hoogte);
Rect(startx,negge,eindx,kozijndiepte);
EndXtrd;

{3D glas}
NameClass ('m-glas');
BeginXtrd (kozijndikte,hoogte-kozijndikte);
Rect(startx+kozijndikte,negge+20,eindx-kozijndikte,negge+40);
EndXtrd;
NameClass ('m-glas');
Rect(startx+kozijndikte,negge+20,eindx-kozijndikte,negge+40);

{3D latei}
NameClass ('m-latei');
BeginXtrd (0,100);
	BeginPoly;
		LineTo(startx,-hoogte);
		LineTo(startx-50,-hoogte-200);
		CurveTo(0,-hoogte-300);
		LineTo(eindx+50,-hoogte-200);
		LineTo(eindx,-hoogte);
		Closepoly;
	Endpoly;
EndXtrd;
Rotate3D(-90, 0, 0);


END;

RUN (kozijn_3d);

Peter van Woerden, Architect
iMac 10.11.3
Vectorworks 2016
Architectuur
Renderworks
0

Deel dit topic:


Pagina 1 van 1

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