Table des matières

Ressources Map 3D

Transferts VERS ou DEPUIS différents logiciels externes :

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
      )
   )