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