Problème jeu de sélection miroir

[grekenski108]

Bonsoir,

Je suis en train de développer un petit programme.
A la fin je souhaiterai y faire un miroir, en programmant un jeu de sélection.

Voici un extrait.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 	(setq P9  (polar P6 (/ pi 2) d5))
	(setq P10 (polar P9 0 d6 ))	
	(setq P11 (polar P10 (/ pi 2) (- d3 (+ d5 d5))))
  	(setq Pb  (polar P10 0 1))
	(setq pm1 (polar P6 0 (/ d4 2)))
  	(setq pm2 (polar pm1 (/ pi 2) 1))

  	(setq b1  (command "_pline" P10 P11 ""))

  (while (/= 0 e1)
	(setq e1 (getdist "\n Donner l'espacement "))

  	(command "_copy" "d" "" 0 e1  "")
  				(setq e (entlast)); récupère le nom de la dernière entité insérer : soit le bloc
			      (setq ss (ssadd)); Crée un jeu de sélection vide
			      (ssadd e ss); place l'entité dans le jeu de sélection
)

        (command "_mirror" ss "" pm1 pm2 "n")

  )

Est ce que quelqu'un saurait pourquoi il y a un problème ?
Merci d'avance