Mesure de la distance entre deux points

[Papao]

J'ai une ancienne date qui permet de mesurer la distance entre deux points de n'importe quelle entité (archives, cercles, droit);
il a toujours fonctionné correctement dans les anciennes versions d'autocad, mais plus avec les versions récentes.
la commande a été assignée à un bouton personnalisé mais à sa pression, malgré le lisp il commence correctement, il reste en attente d'une nouvelle pression du bouton "insertion" ou "barre d'espace" pour ensuite procéder correctement à son travail.

J'attache le code à quelqu'un qui peut m'aider ?

calcule la distance entre deux points

(défendre le (s)
(si une erreur (comme ctrl-c) se produit
(princ (strcat "\norror: "s) ; alors que cette commande est active. . . .
)
(si (= (getvar "nom d'utilisateur") "xxxxx xxxxx, xxxxx srl") (setvar "osmode" 37) (setvar "osmode" 1))
(setq *error* olderr) ; restaurer vieux *error* handler
(principal)
)

(défun c:pdist(/ saveosnapmode dist1 miodist)
(setq olderr*error*)
*erreur*
(setq saveosnapmode)
(commande "'_osnap" "_nea")
(setq dist1 (point d'entrée "toucher le premier point")
(commande "'_osnap"
(setq miodist (getdist dist1 "toucher le deuxième point")
(setvar "osmode" saveosnapmode)
(principal "\n la distance est ")
[MIODES]
(setq *error* olderr) ; restaurer vieux *error* handler
(principal)
)

 

[GP.]

remplacer les deux lignes de code par le texte barbé par les suivantes:
(commande "'_osnap" "_nea")(setvar 'osmode 512)
(commande "'_osnap" "_per")(setvar 'osmode 128)

 

[Papao]

Génial, merci 1000.