Commande réseau

[anosh34]

Bonjour

je suis débutante en Lisp, et après de multiples essais, je n'arrive pas à faire une commande réseau. Voici ce que j'ai :

_____________________________________________

;orientation

 

(setq p1 (getpoint "donner 1er point")

p2 (getpoint "donner 2eme point")

ang (angle p1 p2)

)

 

 

;insertion du bloc

 

(command "-inserer" nom p1 1 (- 0 ang))

(command "ligne" p1 p2 "")

 

 

(command "reseau" nom "" "t" ang "E" longpal "P" "")

 

)

_____________________________________________

 

"nom" est la variable que j'ai définie plus haut comme nom de mon bloc.

"longpal" est associé au bloc et définie sa longueur.

 

Quand je lance ma commande, la ligne se crée et le bloc s'insère au bon endroit. Par contre, la commande réseau ne fonctionne pas. Le programme s'arrête, et autocad lance la commande réseau, me demandant de cliquer sur l'objet.

Je suis sûre que je me trompe sur un détail, mais je n'arrive pas à savoir lequel est-ce...

 

Merci de votre aide !