Exemple
MACRO "wedge".mac"
!
DEG
C=2
WHILE 1
! Entrée de l'épaisseur de la clavette
INPUT NUMBER "Epaisseur ?";L
R=L/2
! Entrée interactive du premier point
DISP "Point 1 ?"
DIGITIZE X,Y
! Entrée interactive du deuxième point
DISP "Point 2 ?"
CURSOR 3
DRAW HV
DIGITIZE X1,Y1
DRAW FREE
CURSOR
! Calcul de l'angle entre les deux points
ANGLE POINT X,Y,X1,Y1;A
A1=90+A
A2=270+A
! Calcul de la longueur entre les deux points
Long=HYPOT(X1-X,Y1-Y)
! Test si la distance est suffisante
IF Long<=L THEN
ERROR "CLAVETTE TROP COURTE"
ELSE
! Début du symbole
START SYMBOL X,Y,"CLAVETTE"
! Génération du dessin
ARC X,Y,R,A1,A2
ARC X1,Y1,-1*R,A1,A2
MOVE X,Y
PDIR A
RPLOT X,Y+R
RPLOT X+Long,Y+R
PENUP
RPLOT X,Y-R
RPLOT X+Long,Y-R
PEN 2
LINE TYPE 4
PENUP
RPLOT X-R*C,Y
RPLOT X+Long+R*C,Y
PENUP
RPLOT X,Y+R*C
RPLOT X,Y-R*C
PENUP
RPLOT X+Long,Y+R*C
RPLOT X+Long,Y-R*C
PENUP
PEN
LINE TYPE
! Fin du symbole
END SYMBOL
END IF
END WHILE
END
END MACRO
|
