Vector Script

Sujets ayant trait au langage de programmation VectorScript et aux Plug-ins
finette
Messages : 19
Enregistré le : Jeu Juin 23, 2011 14:28

Vector Script

Messagepar finette » Jeu Jan 07, 2016 15:53

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);

Retourner vers « VectorScript & Plug-ins »

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 0 invité