(defun c:Untitled2/Dcl-2/TB6#OnClicked (/)
;(get_data)
(dcl-Form-Close Untitled2/Dcl-2)
;(dcl-Form-Hide Untitled2/Dcl-2)
(princ)
(setq pt (getpoint "click"))
(command "_.table" "_A" 4 "_S" "Standard" "_W" 60 pt (list (+ (* 60 4) (nth 0 pt)) (nth 1 pt) (nth 2 pt)) )
)