[求助]关于图库的问题

north911

我现在想实现这样一个功能，手上有很多基础图、塔图，建一个图形库，做一览图用，因为不同的工程要选不同型号的基础图、塔图，想用对话框实现，点基础或塔的名称，相应的图自动插入到当前空白图中

这样的功能以前应该有高手弄过，请哪位指点一下，给个链接、给几行代码都行，谢谢

byghbcx

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

yxp

 

north911

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

yxp

可以加入群来大家一起研究进步。

;;填充幻灯片列表
(defun full_im01( / a b x y s)
   (start_image "im01")
   (fill_image 1 1 imx imy bj_ys) ;;imx 为image控件的宽度 imy为高度   常数
   (setq a xxxd b yyyd y 0 s 0)   ;;xxxd为image的行数  yyyd为列数     全局变量
   (repeat b (setq x 0)
     (repeat a         
      (if (< s (- (length cllist) (* ym_n1 xxxd yyyd)))
      (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))))                    ;;cllist为幻灯片列表，在程序初始化时从搜索路径中建立 
      (setq s (1+ s) x (1+ x))
     )  (setq y (1+ y)))
     (setq x 1)  ;;以下绘制image方格网
     (repeat (- a 1)
     (vector_image (* x (/ imx a)) 1 (* x (/ imx a)) imy 4)
      (setq x (1+ x)) )
     (setq y 1)
     (repeat (- b 1)
     (vector_image 1 (* y (/ imy b)) imx (* y (/ imy b)) 4)
      (setq y (1+ y)) )
    (end_image)
)