求大大开发这样的图块管理器

wayne_myles

图块管理器这样的可惜作者没分享成品






求大大开发这样的图块管理器 ---可以放大缩小幻灯片 好功能啊！……………………

ljfdjjj

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

(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 /> )

ljfdjjj

yoyoho 发表于 2018-12-8 13:07
谢谢! ljfdjjj 分享程序!!!
可否补一下 "hdpsf.dcl"

幻灯片自己做一个玩

wayne_myles

rocking2008 发表于 2018-12-18 20:58
这个要是加个图块分类就好了，不然一页一页翻就累死了。

有见地

ynhh

yoyoho

谢谢! ljfdjjj 分享程序!!!
可否补一下 "hdpsf.dcl"

yoyoho

ljfdjjj 谢谢您!!!!

wayne_myles

ljfdjjj 发表于 2018-12-8 09:59

哇 厉害啊  求大大开发一个类似的图块管理器

oistre

谢谢!分享程序!!!

wayne_myles

ljfdjjj 发表于 2018-12-8 09:59

求大大开发个完整的！！呵呵

tianyi1230

论坛搜索图库找一找，可以找到类似的！