本帖最后由 作者 于 2009-9-23 14:06:17 编辑
;;;______________________分隔线________________________________ (defun c:FZZ () (setvar "cmdecho" 0) (dcl_FZZ) (prin1) ) ;;;______________________分隔线________________________________ (defun dcl_FZZ () (setq dcl_id (load_dialog "Q_FZZ")) (new_dialog "Q_FZZ" dcl_id) (def_FZZ) (action_tile "kimage1" "(setq ddtype 1)") (action_tile "kimage2" "(setq ddtype 2)") (action_tile "kimage3" "(setq ddtype 3)") (action_tile "kimage4" "(setq ddtype 4)") (action_tile "kimage5" "(setq ddtype 5)") (action_tile "kimage6" "(setq ddtype 6)") (action_tile "kimage7" "(setq ddtype 7)") ;;; (action_tile "dcl-onwx" "(ok_FZZ)") (action_tile "bb3" "(qdio_zuozhe)") (action_tile "accept" "(ok_FZZ)(done_dialog 1)") (setq dd (start_dialog)) (if (= dd 1) (draw_FZZ) ) (if (= dd 5) (progn (setq dcl_id2 (load_dialog "ty.dcl")) (new_dialog "zuozhe_dcl" dcl_id2) (action_tile "accept" "(done_dialog 0)") (setq dd (start_dialog)) ) ) ) ;;;______________________分隔线________________________________ (defun def_FZZ () (set_tile "kww" "100") (set_tile "khh" "60") (setq sldkey_list '("kimage1" "kimage2" "kimage3" "kimage4" "kimage5" "kimage6" "kimage7") ) (setq sld_list '("XG_Z" "CT_P" "CT_FL" "XG_QZ" "CT_X" "CT_L" "XG_Z3")) (mapcar 'show_sld sldkey_list sld_list) ) ;;;______________________分隔线________________________________ (defun show_sld (key sld) (setq x (dimx_tile key)) (setq y (dimy_tile key)) (start_image key) (fill_image 0 0 x y -2) (slide_image 0 0 x y sld) (end_image) ) ;;;______________________分隔线________________________________ ***************************************此处获取值***************************************************** (defun ok_FZZ () (setq onwx2 (atoi (get_tile "dcl-onwx")))) ;;;______________________分隔线________________________________ (defun draw_FZZ () (cond ((= ddtype 1) (draw_XG_Z)) ((= ddtype 2) (draw_CT_P)) ((= ddtype 3) (draw_CT_FL)) ((= ddtype 4) (draw_XG_QZ)) ((= ddtype 5) (draw_CT_X)) ((= ddtype 6) (draw_CT_L)) ((= ddtype 7) (draw_XG_Z3)) ) )
|