Retourner le nombre de places dans une nomenclature [RÉSOLU]

[Foued]

Bonjour à tous,

J'aurai besoin d'afficher le total de places de pk depuis cet objet dans une nomenclature.
J'ai comparé / essayé de faire comme dans l'objet de Yves mais je n'y parviens pas.

Si c'est compliqué tant pis mais s'il suffit d'ajouter qq lignes de code ça m’arrangerai bien

D'avance merci

[Yves Houssier]

Salut Foued,

A la va vite tu crée une nouvelle variable nb_tot_park de type entier
A la fin du script principal tu copie ceci (une partie du script 2D que j'ai repris auquel on peut certainement encore supprimer ou masquer des lignes)

Code : Tout sélectionner

!!!!!!!!!!!!!!NOMBRE TOTAL DE PLACES

nummer = startnum


for i = 1 to n-1
	if i mod 2 = 1 then
		dx = x[i+1] - x[i]
		dy = y[i+1] - y[i]
		rd = sqr( dx^2 + dy^2 )

!!!		if dx>0 then
!!!			wd = asn(dy/rd)
!!!		else
!!!			wd = 180 - asn(dy/rd)
!!!		endif
!!!
!!!		add2 x[i],y[i]
!!!		rot2 wd

		jx = 0
		jn = 0


		while jx < rd+nix-stpb do
			rest = rd+nix - jx
			jn = jn + 1
			isAHandicappedParkingPlace = (rest < 2*stpb) and (rest > stpbh)
			isDoubleHandicappedParkingPlace = (rest < 2*stpbh+abst) and (rest > 2*stpbh) and (jn mod gru > 0)
			if isAHandicappedParkingPlace or isDoubleHandicappedParkingPlace then
!!!				gosub 200 !(beh.stellplatz)
				nummer = nummer +1
				xadd = stpbh
				jx = jx + stpbh
				if isDoubleHandicappedParkingPlace then
					ADD2 stpbh, 0
!!!					gosub 200 !(beh.stellplatz)
					nummer = nummer +1
					xadd = xadd + stpbh
					jx = jx + stpbh
					del 1
				endif
			else
!!!!				gosub 100 !(stellplatz)
				nummer = nummer +1
				xadd = stpb
				jx = jx + stpb
			endif
			if jn mod gru = 0 then
				xadd = xadd +abst
				jx = jx + abst
			endif
			add2 xadd,0
		endwhile

		del jn
		del 2
	endif
next i

PARAMETERS nb_tot_park = nummer-startnum

Et en même temps il y a une petite erreur dans l'affichage du nombre total des places, si tu démarre la numérotation par 10 il affichera 10 places en plus au nombre de places …
Donc dans le script 2D à la ligne 198 il y a ceci

gestext = str("%0.0",nummer-1) + " " + tgesname

que tu remplace par ceci

gestext = str("%0.0",nummer-startnum) + " " + tgesname

[Foued]

T'es le king Yves, merci beaucoup.

Pour le moment j'ai bêtement recopié ton code, il faudra que j’essaie de le comprendre !

PS : on ne devrai pas faire de GDL le jour du seigneur