wayne_myles 发表于 2018-12-8 05:46:54

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

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






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

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

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

ljfdjjj 发表于 2018-12-8 13:19:59

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

幻灯片自己做一个玩

wayne_myles 发表于 2018-12-19 20:09:28

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

有见地

ynhh 发表于 2018-12-8 12:22:09

yoyoho 发表于 2018-12-8 13:07:34

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

yoyoho 发表于 2018-12-8 15:17:41

ljfdjjj 谢谢您!!!!

wayne_myles 发表于 2018-12-8 19:39:26

ljfdjjj 发表于 2018-12-8 09:59
http://bbs.mjtd.com/static/image/smiley/qq/em80.gifhttp://bbs.mjtd.com/static/image/smiley/qq/em80.gifhttp://bbs.mjtd.com/static/image/smiley/qq/em80.gifhttp://bbs.mjtd.com/static/image/smiley/qq/em80.gifhttp://bbs.mjtd.com/static/image/smiley/qq/em80.gifhttp://bbs.mjtd.com/static/image/smiley/qq/em80.gifhttp://bbs.mjtd.com/static/image/smiley/qq/em80.gifhttp://bbs.mjtd.com/static/image/smiley/qq/em80.gifhttp://bbs.mjtd.com/static/image/smiley/qq/em80.gifhttp://bbs.mjtd.com/static/image/smiley/qq/em80.gifhttp://bbs.mjtd.com/static/image/smiley/qq/em80.gifhttp://bbs.mjtd.com/static/image/smiley/qq/em80.gif
哇 厉害啊求大大开发一个类似的图块管理器

oistre 发表于 2018-12-10 09:54:43

谢谢!分享程序!!!

wayne_myles 发表于 2018-12-11 05:37:37

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


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

tianyi1230 发表于 2018-12-11 10:53:00

论坛搜索图库找一找，可以找到类似的！
页: [1] 2
查看完整版本: 求大大开发这样的图块管理器