(defun c:ufl00003m ( / ents enna outm )
  (setq ents (entsel "\n図形を選択："))
  (if (/= ents nil)
    (progn
      (setq enna (nth 0 ents))
      (if (/= enna nil)
        (setq outm (ufl00003 enna))
      )
      (print outm)
    )
  )
  (princ)
)
(defun ufl00003 ( u_entn ;エンティティ名
                / out    ;(list lay lnkd col)
                  lay    ;画層名
                  lnkd   ;線種
                  col    ;色番号
                  enls )
;画層名、線種、色を得る
  (setq out nil)
  (setq lay nil)
  (setq lnkd nil)
  (setq col nil)
  (if (/= u_entn nil)
    (progn
      (setq enls (entget u_entn))
      (if (/= enls nil)
        (progn
          (setq lay (cdr (assoc 8 enls)))
          (setq lnkd (cdr (assoc 6 enls)))
          (setq col (cdr (assoc 62 enls)))
          (setq out (list lay lnkd col))
        )
      )
    )
  )
  out
)