tvr42

Bonjour, J'aimerais savoir si il était possible de remanier ce Lisp pour que je puisse décomposer plusieurs arcs en même temps (je suis nul en programmation). (defun c:arc2lines (/ ent nb obj n dist lst) (vl-load-com) (if (and (setq ent (car (entsel "\nSélectionnez un arc: "))) (= (cdr (assoc 0 (entget ent))) "ARC") ) (progn (initget 7) (setq nb (getint "\nEntrez le nombre de segments: ") obj (vlax-ename->vla-object ent) dist (/ (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj) ) nb ) lst (list (vlax-curve-getStartPoint obj)) n 0 ) (repeat nb (setq lst (cons (vlax-curve-getPointAtDist obj (* dist (setq n (1+ n)))) lst ) ) ) (while (cdr lst) (entmake (list '(0 . "LINE") (cons 10 (car lst)) (cons 11 (cadr lst)) ) ) (setq lst (cdr lst)) ) (entdel ent) ) (prompt "\nEntité non valide.") ) (princ) ) Merci arc2line.lsp

Oui j'ai covadis, j'ai essayé cette commande, mais ce n'est pas vraiment ce qu'il me fallait, en fait lorsque je monte ma polyligne 2d en 3d j'ai la création de point intermédiaire dans les arc qui ne sont pas accroché à des points topo. Et quand je monte en 3d j'ai des soucis de prise en compte d'altitude donc me faudrait un outil qui interpol les altitude des points intermédiaire entre deux points topo

Bonjour, Est-ce qu'un Lisp existe pour accrocher des sommet de polyligne 2d au point topo le plus proche? Mais pas tous les sommet je voudrais pouvoir indiquer un rayon de recherche du pt topo Merci d'avance