north911 发表于 2008-8-13 10:10:00

[求助]关于图库的问题

<p>我现在想实现这样一个功能，手上有很多基础图、塔图，建一个图形库，做一览图用，因为不同的工程要选不同型号的基础图、塔图，想用对话框实现，点基础或塔的名称，相应的图自动插入到当前空白图中</p><p>这样的功能以前应该有高手弄过，请哪位指点一下，给个链接、给几行代码都行，谢谢</p>

byghbcx 发表于 2008-8-13 11:33:00

做个幻灯片库,点相应的幻灯片,插入相应文件到当前文件中

yxp 发表于 2008-8-13 11:56:00

本帖最后由 作者 于 2008-8-13 21:17:37 编辑 <br /><br /> <p></p><p></p><p></p><p></p><p>&nbsp;</p>

north911 发表于 2008-8-13 13:56:00

我的用不到这么复杂，不需要看预览，在图名列表中可多选就行了，我对幻灯片不熟，楼上的朋友能不能给几行代码看看

yxp 发表于 2008-8-13 17:35:00

<p>可以加入群来大家一起研究进步。</p><p>;;填充幻灯片列表<br/>(defun full_im01( / a b x y s)<br/>&nbsp;&nbsp; (start_image "im01")<br/>&nbsp;&nbsp; (fill_image 1 1 imx imy bj_ys)&nbsp;;;imx 为image控件的宽度 imy为高度&nbsp; &nbsp;常数<br/>&nbsp;&nbsp; (setq a xxxd b yyyd y 0 s 0)&nbsp;&nbsp;&nbsp;;;xxxd为image的行数&nbsp; yyyd为列数&nbsp;&nbsp;&nbsp;&nbsp; 全局变量<br/>&nbsp;&nbsp; (repeat b (setq x 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (repeat a&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (&lt; s (- (length cllist) (* ym_n1 xxxd yyyd)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (slide_image (* x (/ imx a)) (* y (/ imy b)) (/ imx a) (fix (* 0.95 (/ imy b))) (strcat lj_tk (nth (+ s (* ym_n1 xxxd yyyd)) cllist))))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;;cllist为幻灯片列表，在程序初始化时从搜索路径中建立&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq s (1+ s) x (1+ x))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp; (setq y (1+ y)))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq x 1)&nbsp; ;;以下绘制image方格网<br/>&nbsp;&nbsp;&nbsp;&nbsp; (repeat (- a 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (vector_image (* x (/ imx a)) 1 (* x (/ imx a)) imy 4)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq x (1+ x)) )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq y 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (repeat (- b 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (vector_image 1 (* y (/ imy b)) imx (* y (/ imy b)) 4)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq y (1+ y)) ) <br/>&nbsp;&nbsp;&nbsp; (end_image)<br/>)</p>
页: [1]
查看完整版本: [求助]关于图库的问题