[Résolu] Petit soucis avec un (entlast)

[DenisHen]

Bonjour à tous.

 

Voilà, aujourd'hui, j'ai un petit soucis avec un (entlast. Je ne sais pas si je m'y prend bien, mais ça ne fait rien, et je n'ai aucune idée du problème...

 

Voici un extrait du code :

        (command "-inserer"
                (cdr PosLstBlk)
                "_non"
                Coord
                (/ EchX 1000)
                (/ EchY 1000)
                (angtos Rot 2 3)
       ) ;_ Fin de command
       (setq ent_bloc (entget (entlast)))
;;;        (setq NomBlk     (cdr (assoc 2 ent_bloc))
;;;              pntLLRGF93 (ade_projptforward Coord)
;;;        ) ;_ Fin de setq
       (vl-catch-all-apply 'setpropertyvalue (list ent_bloc "X" "25"))
       (vl-catch-all-apply 'setpropertyvalue (list ent_bloc "Y" "18"))
       (vl-catch-all-apply 'setpropertyvalue (list ent_bloc "Z-TN" "9"))

Les valeurs 25, 18 et 9 ne sont pas les bonnes, c'est juste pour le test.

 

Si quelqu'un a une astuce, un conseil... Je suis preneur...

[(gile)]

Le premier argument pour la fonction setpropertyvalue doit être un nom d'entité (ENAME), pas une liste de données DXF.

 

        (setq ent_bloc (entlast))
       (vl-catch-all-apply 'setpropertyvalue (list ent_bloc "X" "25"))
       (vl-catch-all-apply 'setpropertyvalue (list ent_bloc "Y" "18"))
       (vl-catch-all-apply 'setpropertyvalue (list ent_bloc "Z-TN" "9"))

[DenisHen]

Salut (gile).

 

C'est nickel... j'avais pourtant cherché... ;)

 

Encore merci...