Le portail francophone de la géomatique

 
Fonction [Test3D]
[
  CollectionDetruire "BRINDAVOINE_MAUVAISE"
  CollectionCreer "BRINDAVOINE_MAUVAISE"

  //
  PourChaque [compo] Flot( Ici mettre la liste des composants à tester, par exemple : "R123", "PLU_ZON")
  [
       Quand (BibComposantDimension compo == 3)
      [
        Selectionner (BibComposantNature compo,
          1, [TestLi (compo)],
          2, [TestSy (compo)])
     ]
  ]
  Ecrire TexteFormat ("Nombre d'objets 3D sans Z : %i",CollectionTaille "BRINDAVOINE_MAUVAISE")
]

Fonction [TestLi (compo) var tab]
[
    Donner [tab] AllouerTable TypePoint 8001
    
     PourChaque [obj] ParcourirComposant(compo,100)
     [
          PourChaque [Section] ObjetNombreSection obj
          [
               Donner [nbpt] ObjetSection obj Section tab
               PourChaque [i] FlotEntier 0 (nbpt - 1)
            [   
                Quand (ZPoint (tab -> i) == -2147483648)  


              [
                   CollectionAjouterObjet "BRINDAVOINE_MAUVAISE" obj
                   ObjetDeplacerPoint obj Section (i + 1) Point3D XPoint (tab -> i) YPoint (tab -> i) UtilisateurVersSysteme -99
                 ]
             ]
        ]
    ]

]
 
 
Fonction [TestSy (compo) var obj]
[
    PourChaque [obj] ParcourirComposant (compo,100)
     [
         Quand (ZPoint ObjetSymbolePoint obj == -2147483648)
         [
             CollectionAjouterObjet "BRINDAVOINE_MAUVAISE" obj
             ObjetSymboleModifier obj Point3D XPoint ObjetSymbolePoint obj YPoint ObjetSymbolePoint obj UtilisateurVersSysteme -99 ObjetSymboleAngle obj
         ]
     ]
]
 
Test3D