yn.lsp

plc设计编程软件

(defun yn(msg / ret yn_id)
  (if (and msg (/= "" msg))
    (progn
      (setq yn_id (load_dialog "yn.dcl"))
      (if (not (new_dialog "yndlg" yn_id))
        (progn
          (alert "系统文件丢失!")
          (exit)
        )
      )
      (set_tile "msg" msg)
      (action_tile "accept" "(done_dialog 1)")
      (action_tile "cancel" "(done_dialog 0)")
      (setq ret (start_dialog))
      (unload_dialog yn_id)
    )
  )
  ret
)