Problème orientation Annotation Map 2011

[lovecraft]

Bonjour,

 

Voilà je n'arrive pas à m'en sortir: je m'explique j'ai créer un gabarit d'annotation sous Map.

 

ensuite j'utilise un p'tit programme Lisp que j'ai fait pour l'insertion de l'annotation suivant un point de base, puis une orientation. Mais il se trouve que je n'arrive pas à orienter l'annotation correctement.J'ai toujours un petit problème d'orientation

 

Vous trouverez ci-dessous le fichier dwf ainsi que le programme

 

Merci de votre aide.

 

Programme:

 

 

(defun c:eticana()

(setq ent (car(entsel "\nchoisir l'entité à etiqueter : ")))
(setq pt1 (getpoint "\nPoint d'insertion : "))
(setq Angletxt (getangle pt1 "\nangle du texte : "))
(setq angleeti (/ (* 200 angletxt) pi))

(command "-MAPANNINSERT" "ETI_AEP_CANA" "P" "E" "P" pt1 "R" angleeti "" "" "I" ent "")	
)
 

 

Le fichier:http://dl.free.fr/lxCpl5xkD

 

Cordialement,

 

Laurent

[lovecraft]

Bon j'ai trouvé

 

voici le code:

 

(defun c:eticana()

(command "-units" "2" "3" "3" "4" "0" "N")
  
(setq ent (car(entsel "\nchoisir l'entité à etiqueter : ")))
(setq pt1 (getpoint "\nPoint d'insertion : "))
(setq Angletxt (getangle pt1 "\nangle du texte : "))
(setq angleeti (/ (* 200 angletxt) pi))

(command "-MAPANNINSERT" "ETI_AEP_CANA" "P" "E" "P" pt1 "" "p" "r" angleeti "" "" "I" ent "")
(command "-units" "2" "3" "3" "4" "100" "O")
)  

 

Cependant si vous avez une méthode plus élégante.

 

Cordialement,

 

Laurent