Page 1 sur 1

Vector Script

Posté : Jeu Jan 07, 2016 15:53
par finette
Je me suis bricoler un plugin pour faire des fondations avec son gros béton ci joint example :

je voudrais rajouter les axes sur la partie 2D de la couleur de l'attribut de ma classe et le style de trait en pointillé de même couleur.
Comme je ne connait pas du tout l'Anglais, j'ai de très gros problème pour me créer des plug-ins
Ci quel qu'un c'est ce serai bien gentil de m'aider Merci pour ce qui prendront le temps


{Point Plug-in for a Concrete Foundation Block (Footing)}
{Engº Paulo R.F. Carlotto-26/02/2002}

Procedure SAPATA;
Var
Lpx,Lpy,hp :Real;
H :Real;
Lx,Ly :Real;
Frac,DispAcc :LONGINT;
Format :Integer;
UPI :Real;
UnitMk,SqrUnitMK:String;
begin
{Parametros para Desenho da Sapata e Gola do Pilar};
{Get Parameters for the Footing and a Column};
Lpx:=pLpx;
Lpy:=pLpy;
hp:=php;
Lx:=pLpx;
Ly:=pLpy;
H:=pH;

PenPat(4);
PenFore(4);
PenBack(4)

{Desenho do Retangulo em 2D};
{Draw 2D Rect}
PenSize(10);
Rect(-Lx/2,-Ly/2,Lx/2,Ly/2);
PenSize(10);
PenFore(48059,48059,48059);
Rect(-Lpx/2,-Lpy/2,Lpx/2,Lpy/2);
PenFore(0,0,0);
PenSize(10);
PenFore(48059,48059,48059);

GetUnits(Frac,DispAcc,Format,UPI,UnitMk,SqrUnitMk);
{Desenho do Bloco da Sapata em 3D};
{Draw 3D Footing and Column};
BeginXtrd(0,H);
PenSize(6);
Rect(-Lx/2,-Ly/2,Lx/2,Ly/2);
EndXtrd;
BeginXtrd(H,H+hp);
Rect(-Lpx/2,-Lpy/2,Lpx/2,Lpy/2);
EndXtrd;
End;
Run(SAPATA);