Mesurer?

[fabdo]

Bonjour à tous,

 

Je sais, tout au moins je pense, qu'il est possible d'effectuer cette tâche avec d'autres logiciels mais ce qui m'intéresse c'est avec Autocad, ma question est: peux-t-on créer une polyligne qui lorsque sur le dernier sommet on valide sur "enter" Autocad nous affiche la distance parcourue un peu comme un métré (c'est juste pour éviter à chaque fois d'aller sur renseignements) je pense que du coté pratique se serait vraiment astucieux, maintenant réalisable ou pas?

 

Bonne soirée à tous.

[(gile)]

Salut,

 

Pas testé en profondeur, mais ça semble fonctionner.

 

(defun c:mpl (/ echo ent)
 (vl-load-com)

 (defun err (msg)
   (if	(= msg "Fonction annulée")
     (progn
(or (equal ent (entlast))
    (princ (strcat "\nLongueur: "
		   (rtos (vlax-curve-getDistAtParam
			   (entlast)
			   (vlax-curve-getEndParam (entlast))
			 )
		   )
	   )
    )
)
(princ)
     )
     (princ (strcat "\nErreur: " msg))
   )
   (setvar "CMDECHO" echo)
   (setq *error* m:err
  m:err	nil
   )
   (princ)
 )

 (setq	ent (entlast)
echo	(getvar "CMDECHO")
m:err	*error*
*error*	err
 )
 (setvar "CMDECHO" 1)
 (vl-cmdf "_.pline")
 (while (/= 0 (getvar "CMDACTIVE"))
   (vl-cmdf pause)
 )
 (or (equal ent (entlast))
     (princ (strcat "\nLongueur: "
	     (rtos (vlax-curve-getDistAtParam
		     (entlast)
		     (vlax-curve-getEndParam (entlast))
		   )
	     )
     )
     )
 )
 (setvar "CMDECHO" echo)
 (setq	*error*	m:err
m:err nil
 )
 (princ)
) 

[lili2006]

Bonjour à toutes et tous,

 

(gile), j'ai testé ta routine et lorsque je lance MPL, AutoCAD me dis :

 

Fichier MPL.DCL introuvable, pourtant je n'ai pas vu dans ton code de boite de dialogue à charger ! Oubli de ta part ou mauvaise compréhension de la mienne ?

 

Bonne journée.

[lesourd2]

Salut

 

Fichier MPL.DCL introuvable, pourtant je n'ai pas vu dans ton code de boite de dialogue à charger ! Oubli de ta part ou mauvaise compréhension de la mienne ?

 

Excusez moi mais, pas de confusion avec le LISP de Patick permettant de recopier la config des presentations?

En effet le code est MPL et il contient un fichier DCL.

 

@+

[lili2006]

Re,

 

Ha bah ça doit être ça, puisque j'ai ce lisp de Patrick_35 chargé par défaut.

 

Faut alors renomer celui de (gile), par exemple ?

[Patrick_35]

Salut

 

Faut alors renomer

de même que pour c:mpl dans le lisp

 

ps : Donc, (gile), si je comprends bien, il y aurait plagia ;)

 

@+

 

[Edité le 28/9/2007 par Patrick_35]

[lili2006]

Re,

 

Merci ça marche maintenant. Simple (en utilisation je veux dire,...) mais efficace ce lisp !

 

@+.

[(gile)]

Donc, (gile), si je comprends bien, il y aurait plagia

 

Quand je choisis un nom de commande pour un LISP je teste toujours à la ligne de commande pour savoir s'il ne correspond pas à un alias ou une commande LISP déjà existante (tout du moins chargée), mais là, le LISP MPL de Patrick_35 n'était pas chargé ...

À chercher à faire des noms de commande courts, on finit immanquablement par retomber sur les mêmes noms...

[fabdo]

Encore une fois Merci gile,

 

Pas le temps de tester RETOUR AU PAYS je te tiens au courant la semaine prochaine, et de toute façon MERCIIIIII.

 

Fab