0 Members and 1 Guest are viewing this topic.
(setq ega1 (entsel "Sélectionnez un bloc contenant des attributs...")) (setq ega2 (entget (car ega1)))(setq ega_bname (cdr (assoc 2 ega2)));;block name(setq bega (ssget "X" (list (cons 0 "INSERT") (cons 2 ega_bname))))(setq egax1 (entget (ssname bega 0)));;détail de l'entité(= (cdar egax1) (car ega1)) ;; <-- result NIL !!?? ??;;result:;;(cdar egax1) = <Nom d'entité: 7ef86600> ;;(car ega1) = <Nom d'entité: 7ef86600>