・LEADER に下線があるかないかを判定する

もともと LEADERオブジェクトには下線があるのが標準らしい
下線を省略するのに、XDATAを使っているようだ

(-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 . 147) (1040 . 1.5) (1070 . 77) (1070 . 0) (1002 . "}")))

XDATAを削除するか、ここの、(1070 . 77) (1070 . 0) を(1070 . 77) (1070 . 1) に書き換えれば下線があらわれる

ちなみに、(1070 . 147) (1040 . 1.5)では下線の長さを指定してます

  ;************************************************************************************;
  ;サブルーチン　LEADERに下線があるかどうか　ある：t / ない：nil ;
  (defun Jof_ul_chk ( ed_l / )
    (cond
      ((not (setq ed_l (assoc -3 ed_l))) t)
      ((not (setq ed_l (cdr (assoc "ACAD" (cdr ed_l))))) t)
      ((not (setq ed_l (member '(1000 . "DSTYLE") ed_l))) t)
      ((not (setq ed_l (member '(1070 . 77) ed_l))) t)
      ((equal '(1070 . 1) (cadr ed_l)) t)
      (t nil)
      )
    )