DenisHen Posté(e) le 16 juin 2016 Posté(e) le 16 juin 2016 Bonjour à tous, Voilà, je n'ai rien trouvé sur l'erreur dans un petit lisp que je viens d'écrire, voici le code :;;;************************************************************** ;;; Saisie de la profondeur "Amont" pour l'injecter dans un bloc ;;;************************************************************** (defun c:SDEHM_ProfAmont (/ doc Prof ent_bloc Prof) (princ "\nDéveloppé par Denis H. pour le SDEHM") ;;; Active le début de l'undo (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (setq Prof (rtos (getreal "\nEntrez la profondeur Amont : ") 2 2)) (setq ent_bloc (entsel "\nSélectionnez le bloc: ")) (setq ent_bloc (car ent_bloc)) (setpropertyvalue ent_bloc "PROF_AMO" Prof) (setpropertyvalue ent_bloc "PROF_AM" Prof) ;;; Fin de l'undo (vla-endundomark doc) (princ) ) ;_ Fin de defun Et voici l'erreur : Citation Sélectionnez le bloc: ; erreur: Demande ADS erronée Si quelqu'un a une astuce, une idée ou autre... Je suis preneur... Denis... Windows 11 / AutoCAD 2024 Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net). Davantage d'avantages, avantagent davantage (Bobby Lapointe). La connaissance s'accroît quand on la partage (Socrate). Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)
Patrick_35 Posté(e) le 16 juin 2016 Posté(e) le 16 juin 2016 Salut Tu n'as pas d'étiquette dans le bloc qui se nomme "PROF_AMO" ou "PROF_AM" Pour éviter l'erreur, tu peux faire(vl-catch-all-apply 'setpropertyvalue (list ent_bloc "PROF_AMO" Prof)) ps : Soigne-toi bien @+ 1 Les Lisps de PatrickLe but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.Joseph Joubert, 1754-1824
DenisHen Posté(e) le 16 juin 2016 Auteur Posté(e) le 16 juin 2016 Salut Patrick_35, et merci. C'est curieux, ça ne pose pas de problèmes sur un autre bloc... :huh: Ca fonctionne nikel... Merci pour l'astuce... Et le petit ps... ;) Windows 11 / AutoCAD 2024 Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net). Davantage d'avantages, avantagent davantage (Bobby Lapointe). La connaissance s'accroît quand on la partage (Socrate). Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)
Messages recommandés
Créer un compte ou se connecter pour commenter
Vous devez être membre afin de pouvoir déposer un commentaire
Créer un compte
Créez un compte sur notre communauté. C’est facile !
Créer un nouveau compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant