lisp contour de Hachurage

[Phil24]

bonjour a tous

je recherche un lisp qui creerait une polyligne autour d'un jeu de hachures existantl me semble l'avoir vu passer mais impossible de remettre la main dessus

 

A+

phil

[capde06]

double clic sur les hachures qui n'on plus de contour

et la dans la boite de dialogue il y a un bouton recréer le contour

[lovecraft]

Bonjour,

 

Autrement voici le lisp

 

(defun c:Hcontour ()

(princ "\nselection des hachures non associative uniquement")

(setq sel (ssget '((0 . "HATCH")(71 . 0))))

(setq ix 0)

(if sel

(repeat (sslength sel)

(setq ent (ssname sel ix))

(command "-EDITHACH" ent "c" "p" "O")

(setq ix (+ ix 1))

)

)

)

(princ "\nTaper la commande Hcontour afin de créer des contours aux hachures orphelines...")

(princ)

 

 

ou encore

 

(defun c:polyhach ()

 

(setq entsolid (car (entsel "\nCliquez un hachurage (sup. l'accroche objet) :")))

(setq bdentsolid (entget entsolid) listpoints nil)

(setq i 0)

(repeat (length bdentsolid)

(setq att (nth i bdentsolid))

(setq cod (car att))

(if (= cod 10)

(if (= listpoints nil)

(setq listpoints (list (cdr att)))

(setq listpoints (cons (cdr att) listpoints))

);fin du if

);fin du if

(setq i (+ i 1))

);fin du repeat

 

(setq listpoints (cdr listpoints))

(setq listpoints (reverse listpoints))

(setq listpoints (cdr listpoints))

 

;creation de la polyligne de contour

(setq jsligne nil i 0)

(repeat (- (length listpoints) 1)

(setq p1 (nth i listpoints))

(setq p2 (nth (+ i 1) listpoints))

(command "ligne" p1 p2 "")

(if (= jsligne nil)

(setq jsligne (ssadd (entlast)))

(setq jsligne (ssadd (entlast) jsligne))

);fin du if

(setq i (+ i 1))

);fin du repeat

 

(command "pedit" (entlast) "o" "j" jsligne "" "c" "")

 

);fin du defun c:polyhach

 

@plus

 

LB

[Phil24]

merci a vous deux

 

Phil