Ma routine

[fabcad]

Voici une routine que j'avais faite pour moi dans la même optique :

 

;;;--------------------------------------------------------------------------------------

;;; Fonction Points-sur-sommets-lwpolyligne.LSP Version 1.0

;;; par Fabrice DEMIEL

;;; le 21-07-97

;;;--------------------------------------------------------------------------------------

(defun traite-js (js / nbr c1 e calq-obj)

(setvar "cmdecho" 0)

(setq nbr (sslength js))

(setq i 0)

(while (<= i (- nbr 1))

(setq c1 (ssname js i))

(setq ent (entget c1))

(setq lst-ent (entget c1))

(setq calq-obj (cdr (assoc 8 (entget c1))))

(setq lng-lst (length lst-ent))

(setq j 0)

(while (<= j lng-lst)

(if (= (car (nth j lst-ent)) 10)

(progn

(setq p1 (cdr (nth j lst-ent)))

(entmake (list (cons 0 "POINT")(cons 10 p1)(cons 8 calq-obj)))

);fin progn

);fin if

(setq j (+ j 1))

); fin 2eme while

(prompt (strcat "\r Traitement de " (itoa i) " Objets sur " (itoa nbr) " Objets. "))

(setq i (+ i 1))

); fin 1er while

nil

); fin defun

;;;--------------------------------------------------------------------------------------

; FONCTION MAITRE

(defun c:pts-som-lwp ()

(setvar "cmdecho" 0)

(setq js (ssget))

(traite-js js)

(prompt "\n---COPYRIGHT 03/2007 Par Fabrice DEMIEL---")

nil

);fin c:boucle

;;;--------------------------------------------------------------------------------------

(prompt "\n Pour lancer Tapez : pts-som-lwp ")

 

[Edité le 28/5/2008 par fabcad]

[lili2006]

Bonjour à toutes et tous,

 

Hé bé c'est que ça marche nickel, ça aussi,...

 

Merci fabcad

 

Pour ceux qui veulent tout savoir,...