Je trouve qu'il manque une option dans la macro LabelSeg :
J'aurais bien rajouté une option labelangle qui vaut RealArg(B-A)*rad par défaut mais avec possibilité de la modifié à la main.
J'ai essayé de modifier :
- Code: Tout sélectionner
if labelangle=Nil then LabelAngle:=RealArg(B-A)*rad
else LabelAngle:=labelangle*rad fi,
Mais ça ne marche pas...
Du coup j'ai modifier la précédente mais c'est pas top, j'ai deux macros qui font la même chose :
- Code: Tout sélectionner
[
{LabelSegSansAngle = LabelSegSansAngle(A,B, "texte" <,[options]>)
options
labelpos = center ou top ou bottom ( top par defaut)
labelsep = distance (cm) pour top ou bottom (0.25 par defaut)
}
labelpos:=top, labelsep:=0.25, center:=0,
SaveAttr(), $aux:=%4,
$A:=%1, $B:=%2, $C:=(A+B)/2, Ligne([A,B],0),
LabelAngle:=0,
if labelpos=center then
FillStyle:=full, LineStyle:=noline, LabelStyle:=framed,
Label(C,%3),
elif labelpos=top then
$v:=ScrCoordV(i*RealCoordV(B-A)),
Label(C+labelsep*v/Abs(v),%3)
elif labelpos=bottom then
$v:=ScrCoordV(i*RealCoordV(B-A)),
Label(C-labelsep*v/Abs(v),%3)
fi,
RestoreAttr()
]