(defun c:ufl00008 ( / okfg dm01 dm02 dm03 dclid )
;ダイアログボックスよりテキストデータを取得する
  (setq okfg 0)
  (setq dm01 "") ;上段
  (setq dm02 "") ;中段
  (setq dm03 "") ;下段
  (setq dclid (load_dialog "C:\\UfCadP\\ufl00008.dcl"))
  (if (not (new_dialog "Ufl00008" dclid))
    (prompt "\nダイアログ表示エラー。")
    (progn
      (set_tile "ufl00008_k1" dm01)
      (set_tile "ufl00008_k2" dm02)
      (set_tile "ufl00008_k3" dm03)
      (action_tile "ufl00008_k1" "(ufl00008_s1 $value)")
      (action_tile "ufl00008_k2" "(ufl00008_s2 $value)")
      (action_tile "ufl00008_k3" "(ufl00008_s3 $value)")
      (action_tile "cancel"
        (strcat
          "(progn (setq okfg 0)"
          "(done_dialog))"
        )
      )
      (action_tile "accept" "(ufl00008_sa)")
      (start_dialog)
      (unload_dialog dclid)
    )
  )
  (if (= okfg 1)
    (progn
      (print dm01)
      (print dm02)
      (print dm03)
    )
  )
  (princ)
)
(defun ufl00008_sa ( / )
  (setq okfg 1)
  (done_dialog)
)
(defun ufl00008_s1 (rrr / )
  (setq dm01 rrr)
  (set_tile "ufl00008_k1" rrr)
)
(defun ufl00008_s2 (rrr / )
  (setq dm02 rrr)
  (set_tile "ufl00008_k2" rrr)
)
(defun ufl00008_s3 (rrr / )
  (setq dm03 rrr)
  (set_tile "ufl00008_k3" rrr)
)