remonter aux nuages

[x_all]

bonjour

Dans le cas de scan 3d, le géomètre nous donne souvent un modèle de faces 3d, Mais si je veux revenir au points pour exploiter le nuage dans Revit, avez vous entendu parlé de lisp qui recrée les points sur les sommets de faces 3d

Je suppose que la difficulté d'un tel lisp, c'est de ne pas tripler les points en les recalculant des faces adjacente...bref une bonne colle ..

QQ1 à déja entendu parler d'un tel lisp?

merci

 

[lecrabe]

Hello

 

WAIT je farfouille dans mes 2000 routines ...

 

Bye, lecrabe

[philsogood]

hello

le plus simple ne serait-il pas de demander au géomètre le nuage de points brut tel que sorti (ou rpesque) du scanner 3D??

Phil

[lecrabe]

Hello

 

1) Tu fais tourner la routine LSP ...

( la version originale creait une 3DPoly )

 

2) Puis EPURER pour supprimer les doublons de Points ...

 

Bye, lecrabe (aux 2000 routines)

 

;; 
;; Original routine : 3dfto3dp2  (Rhymone) - Convert 3DFace to 3DPline 
;;
;; 
;; Patch by Patrice to get (and draw) 3D Points from 3D Faces ...
;; WARNING : THEN you will get many duplicate 3 Points !
;; 
;; Patrice : Then use OVERKILL (EPURER in French) to remove duplicate POINTs !
;; 
;; US      - Please RUN into the GCS NOT into an UCS 
;; French  - SVP : veuillez lancer dans le SCG 
;; 

(defun c:3DF_to_3DPoint (/ sset itm num hnd ent pt1 pt2 pt3 pt4 ) 

 (setq cmdecho (getvar "CMDECHO"))
 (setvar "CMDECHO" 0)
 (command "_UNDO" "_G")

 (setq sset (ssget '((0 . "3DFACE")))) 

 (if sset
   (progn
     (setq itm 0 num (sslength sset))
     (while (< itm num)
       (setq hnd (ssname sset itm))
       (setq ent (entget hnd))
       (setq pt1 (cdr (assoc 10 ent)))
       (setq pt2 (cdr (assoc 11 ent)))
       (setq pt3 (cdr (assoc 12 ent)))
       (setq pt4 (cdr (assoc 13 ent)))

;;;; Keep or Erase/Del original 3DFace entity/object ;;;; 
;       (entdel hnd) 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;       (command "_3dpoly" pt1 pt2 pt3 pt4 "_C") 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       (command "_point" pt1) 
       (command "_point" pt2) 
       (command "_point" pt3) 
       (command "_point" pt4) 

       (setq itm (1+ itm))
     )
     (princ ", Done.")
   )
 )

 (setq sset nil)
 (command "_UNDO" "_E")
 (setvar "CMDECHO" cmdecho)
 (princ)
)

(princ "DS> 3DF_to_3DPoint.LSP loaded ... type 3DF_to_3DPoint to run ") 

[Lommig]

Bonjour,

 

Si tu as COVADIS :

La commande "Cov2D > Point Topo > immatriculation d'entités" permet d'insérer un point topo sur tous les objets sélectionnés. Il vous suffit de sélectionner vos faces 3D pour y insérer un point topo à chaque sommet.

 

Guillaume

[x_all]

^^ merci beaucoup...

 

piste au pinces d'or merci je lancerai ça ce soir...

 

piste bonnes sensations mouai le géomètre a un fichier de 1.3 Go il me dit de passer avec un DD

mais qu'il peut pas lancer une "décimation" car ça lui bloque une machine..

 

Lemmings je n'avais pas pensé à Covadis, mais ça peut le faire aussi...

 

Bref merci tout plein :)