(defun c:ECLATE_P ()
  ;; Point insertion
  (setq pt1 (getpoint "\nChoisir le point d'insertion : "))
(command "-INSERER" "ECLATE_PI_1" pt1 1 "" 0 "")
(setpropertyvalue ECLATE_PI_1 "AcDbDynBlockPropertyVisibilité1" "Te à 3 emboitements")
)