Transferts VERS ou DEPUIS différents logiciels externes :
;; 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
)
)