Le portail francophone de la géomatique

Bonjour,

Je vous suggere le programme suivant, qui cree un point au milieu d’une polyligne precedemment selectionnee :

include c:devmapbasic.def
dim pl as object,j as integer, xc,yc,x1,y1,x2,y2,dist,t,l,d,long as
float

'il faut que le systeme de coordonnees de la carte soit defini en metres
'pour que la suite soit coherente

run command set  + tableinfo(selection,TAB_INFO_COORDSYS_CLAUSE)
set distance units m

if SelectionInfo(SEL_INFO_NROWS) 1 then
note un objet et un seul doivent etre selectionnes
else
fetch rec 1 from selection
pl=selection.obj
long= objectlen(pl, m )
if objectinfo(pl,OBJ_INFO_TYPE)OBJ_TYPE_LINE and
objectinfo(pl,OBJ_INFO_TYPE)OBJ_TYPE_PLINE then
note cet objet n'est pas une (poly)ligne simple
elseif objectinfo(pl,OBJ_INFO_NPOLYGONS)>1 then
note la polyligne selectionnee a plusieurs segments. Veuillez
choisir une polyligne simple
elseif objectinfo(pl,OBJ_INFO_NPOLYGONS+ 1)long/2 then
d=long/2-dist
t=d/l
xc=x1 + t*(x2-x1)
yc=y1 + t*(y2-y1)
exit for
end if
dist=dist+((x2-x1)^2 + (y2-y1)^2)^(1/2)
x1=x2
y1=y2
next
Create Point Into Window frontwindow() ( xc,yc )
end if
end if