gestion d\'erreur

LUDWIG · le 19 avril 2005

Bonjour,

L'aide du développeur propose des méthodes de gestion d'erreur que j'ai du mal a mettre en application...

Je souhaite tester si une manipulation renvoie une erreur ou non (en l'occurrence un getboundingbox sur un objet). Si une erreur est revoyée, je passe à l'objet suivant...

 [b] CE CODE RENVOIE UNE ERREUR SI L'OBJET CHOISIE N'A PAS DE GETBOUNDINGBOX (une droite par exemple)[/b]
(defun c:gbb ()
(vla-GetBoundingBox (vlax-ename->vla-object (cdr (assoc -1 (entget (car (entsel)))))) 'mini 'maxi)
(setq maxi (vlax-safearray->list maxi))
(setq mini (vlax-safearray->list mini))
(command "rectang" mini maxi)
(print "emprise (2D uniquement) tracée")(princ)
)

Je tente donc d erajouter 2 lignes après le defun :

 (defun c:gbb ()

[b](setq err (vl-catch-all-apply '(vla-GetBoundingBox (vlax-ename->vla-object (cdr (assoc -1 (entget (car (entsel)))))) 'mini 'maxi)))
(if (=(vl-catch-all-error-p err)nil)(progn[/b]
 
(vla-GetBoundingBox (vlax-ename->vla-object (cdr (assoc -1 (entget (car (entsel)))))) 'mini 'maxi)
(setq maxi (vlax-safearray->list maxi))
(setq mini (vlax-safearray->list mini))
(command "rectang" mini maxi)
(print "emprise (2D uniquement) tracée")(princ)
)))

Mais mon erreur est toujours renvoyée...

Y-at'il quelqu'un qui pourrait me guider ?

LUDWIG · le 21 avril 2005

Personne pour m'aider dans la gestion d'erreur ?

:calim: :calim: :calim: :calim:

bonuscad · le 21 avril 2005

Peut être, j'ai pas fait le test, la variable "ERRNO"

Tramber · le 21 avril 2005

Oh, oh, doucement.

C'est déjà bien que je me mette à la gestion d'erreurs en Autolisp,...alors en Vlisp ;)

Patrick_35 · le 21 avril 2005

Peut-être de cette manière

(setq err (vl-catch-all-apply '(lambda ()(vla-GetBoundingBox (vlax-ename->vla-object (car (entsel))) 'mini 'maxi))))

@+

LUDWIG · le 21 avril 2005

[surligneur] TRAMBER : [/surligneur]je ne savais pas qu'il y avait aussi des commandes de gestion d'erreur en autolisp, s'est pourquoi je suis parti sur les vl-...

[surligneur] Patrick_35 :[/surligneur] Yes, c'est ça ! je n'ai pas vraiment compris la fonction de lambda (même avec l'aide en français) mais je vais pouvoir me débrouiller !

Merci beaucoup à tous, je vous ferais part de mon super lisp (!)

Patrick_35 · le 21 avril 2005

je ne savais pas qu'il y avait aussi des commandes de gestion d'erreur en autolisp

C'est la fonction *error*, fais une recherche dessus

La fonction lambda permet de définir une fonction anonyme

Tu noteras aussi que je t'ai simplifié la transformation d'une entité en objet

je vous ferais part de mon super lisp (!)

Je sens qu'on ne va même plus réfléchir, tout sera automatique ;)

@+

Tramber · le 21 avril 2005

(setq rep(vlax-ename->vla-object (cdr (assoc -1 (entget (car (entsel)))))))  
 (if(vlax-method-applicable-p rep "GetBoundingBox")....bla bla

Je viens d'essayer ça.

C'est fou qu'une droite renvoie T alors que la méthode n'est pas valable (juste applicable !).

donc il te reste à filtrer :

(setq rep(vlax-ename->vla-object(setq donc(cdr (assoc -1 (entget (car (entsel)))))))
     typeu(cdr(assoc 0(entget donc))))
(cond((or
(= typeu "LWPOLYLINE")
(= typeu "CIRCLE")
(= typeu "ARC")
(= typeu "INSERT"))
     (progn
(vla-GetBoundingBox rep 'mini 'maxi)
     (setq maxi (vlax-safearray->list maxi))
     (setq mini (vlax-safearray->list mini))
     (command "rectang" mini maxi)
     (print "emprise (2D uniquement) tracée")))
    (T(princ"Cet objet ne peut donner des limites")))

ici les LWpoly, les arcs, cercles et blocs

Patrick_35 · le 21 avril 2005

Tramber, je ferai la même remarque que pour Ludwig en ce qui concerne la transformation d'une entité en objet

Et j'ai juste une question concernant ton lisp, un peu vicieuse je le reconnais et à tester

Tu fais comment pour une lwpolyligne avec seulement deux sommets (ce qui revient à une droite)

@+

LUDWIG · le 22 avril 2005

C'est la fonction *error*

Ah oui d'accord, je connaissais mais j'ai préféré ne pas m'en servir : j'ai un seul fichier lsp avec une quarantaine de "defun", et une erreur sur n'importe quelle fonction m'aurait renvoyé vers cette fonction error.

[surligneur] Patrick_35[/surligneur]

Pour la simplification

 (cdr (assoc -1 (entget (car (entsel)))))  [b] -->[/b] (car (entsel))

C'est clair c'est carrément plus simple.

[surligneur] Tramber[/surligneur]

J'avais cette option, de tester le type d'entité, mais je ne l'ai pas retenu :y en a tellement, et je ne sais pas lesquelles n'ont pas de GetBoundingBox (atribut, etc). En plus je suis sur Autodesk Architectural Desktop donc j'ai aussi tout les objets murs, poteaux, fenetres, portes, toits, dalles, aires, espaces, blocs à vues multiples, etc qui peuvent aussi être contenu dans un bloc. Comme ça, si Autodesk rajoute des types d'entités dans Autocad 2049, mes petits enfants pourront toujours profiter de mon lisp (haha).

Je sens qu'on ne va même plus réfléchir, tout sera automatique

Il n'y aura même plus besoin de dessinateur derrière l'écran !

Non, mon lisp servira juste àredéfinir tous les blocs du dessin pour lesquels le point d'insertion n'est pas dans la GetBoundingBox. Les blocs resteront sagement à leur place (même position des entités dans le dessin, même rotation et échelles) avec le bon nom malgré le changement de point d'insertion...

Tramber · le 22 avril 2005

Patrick_35

Quel est le problème avec une poly à 2 points ?!

Qui n'est toujours pas une droite.

Ludwig

Tu peux faire un filtre négatif avec NOT

mais tu as raison, j'ai déjà rencontré un cas où seul une fonction d'erreur me convenait.

il s'agissait de la fonction Offset (décaler) qui ne peut pas toujours marcher.

Patrick_35 · le 22 avril 2005

Laisse tomber, je devais être fatigué hier soir. Un poly reste une poly

@+

Tramber · le 22 avril 2005

;)

Au fait, Ludwig, tu sais qu'il n'est pas necessaire de rentrer dans les definitions de blocs (BLOC).

Tu prends 1 objet bloc (INSERT) existant dans le dessin, tu vérifies qu'il a des bonnes échelles X=Y...=Z, et tu fais ton bounding sur l'objet INSERT, comme dans mon code.

Remarque : le vice serait un bloc contenant une droite, mais je suis sur que ca marcherait.

[Edité le 22/4/2005 par Tramber]

LUDWIG · le 22 avril 2005

Tramber, c'est ce que j'avais fait au début mais justement, si aucun des blocs n'est à l'échelle 1 rotation 0, ça pose problème. Et comme je suis perfectionniste (mais pas parfait), j'ai préféré m'attaquer à la table des blocs...

Tramber · le 22 avril 2005

Tramber, c'est ce que j'avais fait au début mais justement, si aucun des blocs n'est à l'échelle 1 rotation 0, ça pose problème.

Ben t'en fais un et tu l'effaces aussi sec !

**********************

Mais que dis-je, (tblobjname "block" "nomdubloc") marchera très bien et y a pas besoin d'avoir un INSERT.

T'as essayé ca ?

[Edité le 22/4/2005 par Tramber]

LUDWIG · le 29 avril 2005

C'est vrai que j'aurais été moins embetté en insérant le bloc dans le dessin, en faisant la gbb puis en le supprimant...

Mais je ne vois pas en quoi (tblobjname "block" "nomdubloc") peut m'aider ?

Tramber · le 29 avril 2005

Salut,

j'ai répondu à la question que tu viens de poser dans la suite de ton message (c'est un autre sujet de ce forum).

Comme dit là-bas, ca renvoit le nom de l'ENTITE bloc, mais après vérif, la GBB n'est pas acceptée dessus.

LUDWIG · le 29 avril 2005

J'ai fini mon lisp grace à votre aide: Redéfinir les points d'insertion mal placés des blocs

Connexion

gestion d\'erreur

Messages recommandés

LUDWIG

LUDWIG

bonuscad

Tramber

Patrick_35

LUDWIG

Patrick_35

Tramber

Patrick_35

LUDWIG

Tramber

Patrick_35

Tramber

LUDWIG

Tramber

LUDWIG

Tramber

LUDWIG

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Forums

Naviguer

Activité

Information importante