CADxp, vos souhaits

C'est merveilleux tout ça, merci beaucoup @Olivier Eckmann Passez une très bonne fin d'année 😘

Avec quelque chose comme cela (defun c:T2 ( / pt1 pt2) (setq pt1 (getpoint "\nSelectionnez le premier point de cote : ")) (setq pt2 (getpoint "\nSelectionnez le second point de cote : ")) (if (and pt1 pt2) (progn ; Placer la cote horizontale (command "COTLIN" pt1 pt2 "h" pause ) ; Placer la cote verticale (command "COTLIN" pt1 pt2 "v" pause ) ) (princ "\nOpération annulée.") ) (princ) )  

Le but de l'amélioration n'est pas de positionner la cotation automatiquement mais de la visualiser avant de les positionner.  Une petite vidéo pour bien l'expliquer: http://www.trinh-dota.com/CADXP/Video-Cotation-Ameliorer.mp4 Merci pour votre réponse en tout cas

Bonjour @yusukens82 Il est tout à fait possible de ne pas sélectionner les points d'insertion des cotations. Mais il faut "expliquer" à la machine où les déposer, elle n'est pas intelligente, elle n'a pas de cerveau. Le cerveau, c'est l'humain qui en dispose et qui sait où déposer les dimensions. À moins que vous nous disiez où vous les attendez par défaut. Par exemple pour le X à deux fois la hauteur du texte en dessous du point 1 et pour le Y à deux fois la hauteur du texte sur la gauche du point 2. C'est un exemple. C'est à VOUS de nous dire où déposer les textes et lignes de cotes, il n'y a que vous qui sachiez. Amicalement

Bonjour, J'utilise régulièrement une routine qui fonctionne très bien permettant de mettre 2 cotations (horizontal et vertical) selon 2 points    Voilà la routine : (defun c:T2 () (setq pt1 (getpoint "\nSelectionnez le premier point de cote : ")) (setq pt2 (getpoint "\nSelectionnez le second point de cote : ")) (if pt1 (progn ; Demander à l'utilisateur où placer la cote horizontale (setq pt3 (getpoint "\nSelectionnez le point de position de la cote horizontale : ")) ; Placer la cote horizontale (command "COTLIN" pt1 pt2 "h" pt3) ; Demander à l'utilisateur où placer la cote verticale (setq pt4 (getpoint "\nSelectionnez le point de position de la cote verticale: ")) ; Placer la cote verticale (command "COTLIN" pt1 pt2 "v" pt4) ) (princ "\nOpération annulée.") ) (princ) ) Je souhaite y apporter une amélioration permettant de visualiser sur l'écran la position de la cotation  L'idée est contourner le problème en évitant de présélectionner les pts 3 et 4  (defun c:T2 () (setq pt1 (getpoint "\nSelectionnez le premier point de cote : ")) ; Demande le premier point (setq pt2 (getpoint "\nSelectionnez le second point de cote : ")) ; Demande le second point (command "COTLIN" pt1 pt2 "H") ; Cliquer sur l'écran pour positionner le cote horizontal ; Relancer la commande pour la cotation veticale ;(command "COTLIN" pt1 pt2 "V" ) ; Cliquer sur l'écran pour positionner le cote veticale ) je joins un fichier dwg pour faire les test   test.dwg