[编程交流] 在LISP中控制图像

(defun input_dcl ( /  what_next dcl_id )
    (setq mySlideName "C:\\Documents and Settings\\subhodip.c1145\\Desktop\\image_cut_out1.sld")
(setq myKey "sld")
(defun upDateImage(sldName key)
 
(setq width (dimx_tile key))
(setq height (dimy_tile key))
(start_image key)
(fill_image 0 0 width height 0)
(slide_image 0 0 width height sldName)
(end_image)
) ;;defun
 (defun stool_function (/)
 (setq dcl_id2 (load_dialog "input.dcl"))
 (if (not (new_dialog "stool" dcl_id2))
   (exit)
 ) ; if
   (upDateImage mySlideName myKey)
  
  (action_tile "ok1" "(saveVers_stool)(done_dialog 1)")
  (action_tile "cancel1" "(done_dialog)")
   
(start_dialog)
   (unload_dialog dcl_id2)
   ) ;; defun

 [color=blue](start_image "LabelName")[/color]
(setq width (dimx_tile [color=blue]myKey[/color]))
(setq height (dimy_tile [color=blue]myKey[/color]))[color=blue](end_image)[/color]
(start_image [color=blue]myKey[/color])
(slide_image [color=blue]1 1[/color] width height [color=blue]myKey[/color])