Relier des points

[gilbac]

Je cherche un programme lisp qui permet de relier une série de point en polyline

[(gile)]

Salut et bienvenue,

 

Sous quelle forme la "série de point" ?

[gilbac]

C'est une série de points x y qui forme une élélvation topographique, je voudrais pouvoir les relier automatiquement pour en faire une polyligne

[(gile)]

S'il s'agit d'entités POINT (nodal), ceci devrait répondre à la demande

 

(defun c:gag (/ ss n lst)
 (if (setq ss (ssget '((0 . "POINT"))))
   (progn
     (setq n -1)
     (while (setq pt (ssname ss (setq n (1+ n))))
(setq lst (cons (cdr (assoc 10 (entget pt))) lst))
     )
     (command "_.pline")
     (mapcar '(lambda (x) (command "_non" x)) lst)
     (command)
   )
 )
 (princ)
)

[gilbac]

Merci ca fonctione très bien