Classement

re, je me répond (equal pt1 pt2 0.5) faut juste trouvée l’écart

Re salut, Après avoir manipulé dans tous les sens... j'ai enfin réussi :D ce code fonctionne si il est copier/coller directement dans la commande d'autocad (startapp "C:\\Program Files\\Internet Explorer\\iexplore.exe" "http://www.cadxp.com") Mais si on veux créer une commande type macro c'est plutôt ceci (startapp "C:/Program Files/Internet Explorer/iexplore.exe" "http://www.cadxp.com") Salutations à tous Meilleures salutations

Salut. Pour palier au GoTo, je pense à un while, voici ce que, avec mes petites compétences, j'aurais fais (avec une autre méthode pour dessiner la polyligne) : (defun c:testRtyp (/ Rtyp) (while (and (/= Rtyp "1:CFO") (/= Rtyp "2:Cfa") (/= Rtyp "3:EP") (/= Rtyp "4:EU")) (initget 1 "1:CFO 2:Cfa 3:EP 4:EU") ;_ Fin de initget (setq Rtyp (getkword "\nFaite votre choix : [1:CFO/2:Cfa/3:EP/4:EU] : ") ;_ Fin de getpoint ) ;_ Fin de setq (cond ((= Rtyp "1:CFO") (princ "\nChoix : CFO")) ((= Rtyp "2:Cfa") (princ "\nChoix : Cfa")) ((= Rtyp "3:EP") (princ "\nChoix : EP")) ((= Rtyp "4:EU") (princ "\nChoix : EU")) ) ;_ Fin de cond ) ;_ Fin de while (command "_.pline") (while (not (zerop (getvar "cmdactive"))) (command pause)) ;_ Fin:while (princ) ) ;_ Fin de defun Pour le cas ou le calque n'existerait pas, tu peux prendre l'option "e" et non "ch" de la commande "calque". Ca créé le calque s'il n'existe pas et le rend courant. Denis...