幻灯片调整大小宜适应对话框

zdqwy19

      幻灯片的尺寸不好调整大小，我们就换个思路。我们先做好幻灯片，然后通过幻灯片大小、左右上下位置来填充图片框。在此向xshrimp、Gu_xl两位表示感谢，程序照抄而已。

kozmosovia

幻灯片核心不是大小，是绘图视口高宽比。制作前手动调整，或者用程序临时将窗口高宽比调整为适合image_tile的长宽比例再生成SLD

paulpipi

值得学习，感谢分享

sowin

感谢分享，值得学习

yoyoho

学习了! 感谢分享!!!!

ljfdjjj

这思路大佬们早就玩过了

2. (defun c:tt()
   
3.   (setq dcl_id (load_dialog "hdpsf.dcl"))
   
4.   (if (not (new_dialog "hdpsf" dcl_id))(exit))
   
5.   (setq kjkd(dimx_tile "tx") kjgd(dimy_tile "tx"))
   
6.   (setq kjkd1 kjkd kjgd1 kjgd ydx 0 ydy 0)
   
7.   (jjj-dcl-hdpcr "tx" "hdp")
   
8.   (action_Tile "+"  "(jjj-dcl-hdpsf 1.2)")
   
9.   (action_Tile "-"  "(jjj-dcl-hdpsf 0.8)")
   
10.   (action_Tile "s"  "(jjj-dcl-hdpyd 0 -20)")
    
11.   (action_Tile "x"  "(jjj-dcl-hdpyd 0 20)")
    
12.   (action_Tile "z"  "(jjj-dcl-hdpyd -20 0)")
    
13.   (action_Tile "y"  "(jjj-dcl-hdpyd 20 0)")
    
14.   (start_dialog)  
    
15.   (unload_dialog dcl_id)
    
16. )
    
17. (defun jjj-dcl-hdpsf(xs /) ;幻灯片缩放
    
18.   (start_image "tx")
    
19.   (fill_image 0 0 kjkd kjgd -2)
    
20.   (setq ydx(+(/(- kjkd1(* kjkd1 xs))2)ydx) ydy(+(/(- kjgd1(* kjgd1 xs))2)ydy)
    
21.         kjkd1(* kjkd1 xs) kjgd1(* kjgd1 xs))
    
22.   (slide_image (fix ydx) (fix ydy) (fix kjkd1) (fix kjgd1) "hdp")
    
23.   (end_image)
    
24. )
    
25. (defun jjj-dcl-hdpyd(x y /) ;幻灯片移动
    
26.   (setq kjkd(dimx_tile "tx") kjgd(dimy_tile "tx"))
    
27.   (start_image "tx")
    
28.   (fill_image 0 0 kjkd kjgd -2)
    
29.   (setq ydx(+ x ydx) ydy(+ y ydy))
    
30.   (slide_image (fix ydx) (fix ydy) (fix kjkd1) (fix kjgd1) "hdp")
    
31.   (end_image)
    
32. )
    
33. (defun jjj-dcl-hdpcr(key_lst image_name /) ;幻灯片加载
    
34.   (start_image key_lst)
    
35.   (setq x(dimx_tile key_lst) y(dimy_tile key_lst))
    
36.   (fill_image 0 0 x y -2)
    
37.   (slide_image 0 0 x y image_name)
    
38.   (end_image)
    
39. )

(defun c:tt()<br />   (setq dcl_id (load_dialog "hdpsf.dcl"))<br />   (if (not (new_dialog "hdpsf" dcl_id))(exit))<br />   (setq kjkd(dimx_tile "tx") kjgd(dimy_tile "tx"))<br />   (setq kjkd1 kjkd kjgd1 kjgd ydx 0 ydy 0)<br />   (jjj-dcl-hdpcr "tx" "hdp")<br />   (action_Tile "+"  "(jjj-dcl-hdpsf 1.2)")<br />   (action_Tile "-"  "(jjj-dcl-hdpsf 0.8)")<br />   (action_Tile "s"  "(jjj-dcl-hdpyd 0 -20)")<br />   (action_Tile "x"  "(jjj-dcl-hdpyd 0 20)")<br />   (action_Tile "z"  "(jjj-dcl-hdpyd -20 0)")<br />   (action_Tile "y"  "(jjj-dcl-hdpyd 20 0)")<br />   (start_dialog)  <br />   (unload_dialog dcl_id)<br /> )<br /> (defun jjj-dcl-hdpsf(xs /) ;幻灯片缩放<br />   (start_image "tx")<br />   (fill_image 0 0 kjkd kjgd -2)<br />   (setq ydx(+(/(- kjkd1(* kjkd1 xs))2)ydx) ydy(+(/(- kjgd1(* kjgd1 xs))2)ydy)<br />         kjkd1(* kjkd1 xs) kjgd1(* kjgd1 xs))<br />   (slide_image (fix ydx) (fix ydy) (fix kjkd1) (fix kjgd1) "hdp")<br />   (end_image)<br /> )<br /> (defun jjj-dcl-hdpyd(x y /) ;幻灯片移动<br />   (setq kjkd(dimx_tile "tx") kjgd(dimy_tile "tx"))<br />   (start_image "tx")<br />   (fill_image 0 0 kjkd kjgd -2)<br />   (setq ydx(+ x ydx) ydy(+ y ydy))<br />   (slide_image (fix ydx) (fix ydy) (fix kjkd1) (fix kjgd1) "hdp")<br />   (end_image)<br /> )<br /> (defun jjj-dcl-hdpcr(key_lst image_name /) ;幻灯片加载<br />   (start_image key_lst)<br />   (setq x(dimx_tile key_lst) y(dimy_tile key_lst))<br />   (fill_image 0 0 x y -2)<br />   (slide_image 0 0 x y image_name)<br />   (end_image)<br /> )

zhangcan0515

感谢分享，值得学习