Décaler automatique

[Fraid]

Bonjour,

 

J'ai un dessin constitué d'un ensemble de rectangles (polyligne close) plus ou moins imbriqués et je dois tous les décaler de 1 vers l'interieur tout en gardant l'original.

 

y aurait il une astuce pour le faire d'un seul coup ?

 

merci

[didier]

Coucou

 

un petit truc vite fait sans controle de polyligne

mais pour la veille d'un jour férié ça va suffire, hein ?

 

(vl-load-com)

(command "_ucs" "_w")

(setq jeusel (ssget)

n 0)

(repeat (sslength jeusel)

(setq ent(ssname jeusel n))

(setq sommets (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ent))))

(setq som1 (nth 0 sommets)

som2 (nth 2 sommets)

som3 (list (/(+ (car som1)(car som2))2) (/(+ (cadr som1)(cadr som2))2))

)

(command "_offset" "1" ent som3 "")

(setq n (1+ n))

)

 

je me doute qu'on va te répondre avec des contrôles et tout qui va bien,

mais je ne vais pas non plus te mâcher le travail ;) ;) ;)

 

amicalement

 

 

[Fraid]

Merci didier

c'est pil poil ce dont j'ais besoin