Nous utilisons des cookies pour vous garantir la meilleure expérience sur notre site. Si vous continuez à utiliser ce dernier, nous considèrerons que vous acceptez l'utilisation des cookies. J'ai compris ! ou En savoir plus !.
banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?

Ressources Map 3D

Astuces

Convertir une polyligne 2d en polyligne 3D

;; Routine Convert3D (par GC)
;; En entree : polyligne 2D
;; En sortie  : polyligne 3D
;; Commande au clavier : CONVERT3D
;; GetVertices (par GC)
;; Retourne la liste des sommets des polylignes (coordonnées SCG)
;; Argument : ename de la polyligne
(defun GetVertices (ent / elst pt plst)
(setq elst (entget ent))
(cond
  ((= (cdr (assoc 0 elst)) "LWPOLYLINE")
   (setq elv (cdr (assoc 38 elst)))
   (apply 'append
      (mapcar
        '(lambda (x)
       (if (= 10 (car x))
         (list (trans (list (cadr x) (caddr x) elv) ent 0))
       )
         )
        elst
      )
   )
 
main/logiciels/autodesk/ressources_map_3d.txt · Dernière modification: 2009/04/28 09:12 par Robin
Recent changes RSS feed Creative Commons License Valid XHTML 1.0 Valid CSS Driven by DokuWiki