Aller au contenu

[Résolu] Problème d'attribution d'une variable dans un bloc


Messages recommandés

Posté(e)

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)

Posté(e)

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

 

@+

  • Upvote 1

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Posté(e)

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)

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 compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité