[求助]：关于图像按钮……

yandib0880

//这是一个简单的对话框，我的问题是：
//1、点击图像区域就可以翻页下一幅并且能在"path_blk" "blk_path" "sld_path"中显示信息，
//2、是否要写一个文本文件存图块的信息？
//3、如何获得点击图像按钮的动作，
//4、如何在图像框区域最大化显示幻灯片，请大侠们指教，切切
aw : dialog {
label = "浏览";
: concatenation {
                : text_part {
                        label        = "名称:";
                            fixed_width  = true;
                }
                 : text_part {
                            label        = " ";
                            key          = "path_blk";
                            width        = 6;
                }
                 : text_part {
                            label        = "序号:";                  
                }
                 : text_part {
                            label        = " ";
                            key          = "blk_path";
                            width        = 6;
                }
                : text_part {
                            label        = "幻灯片:";                  
                }
                 : text_part {
                            label        = " ";
                            key          = "sld_path";
                            width        = 6;
                }
        }  
            : boxed_column {
        label = "图块";
                : image_button {
                           key = "show tit";
                           height = 16;
                           width = 30;
                           color = -2;     
                }spacer;
             }spacer;
     ok_only;
}

aeo

应该要让我们知道你的 幻灯片名称 和 文件名 的关系才行.
  如果不相同,应该考虑写一个文本文件存图块的信息.
如果真是有文本就很好办,把文件名,路径全放里面.
  如果相同,把目录加到cad路径里就好办.用幻灯片名.dwg findfile一下.
  点一下翻下一个是很简单的,关键是如何得到下一个幻灯片名称.

我也在考虑这问题,幻灯片名称 和 文件名不同扩展性差.我以前写了个程序正想改造呢.

yandib0880

这样行吗：
写个文本
================================================================
jdcad.blk  --  Do not edit this file.
:ai_lisp|单开门  （这存图块的名称）
:ai_str|AA000       （这存图块的编号.DWG “实际用作DWG文件的名称”）
:ai_sld|AA000      （这存幻灯的名称.SLD）
:ai_lisp|双开门
:ai_str|AA001
:ai_sld|AA001
:ai_lisp|旋转门
:ai_str|AA002
:ai_sld|AA002
:ai_lisp|自动门
:ai_str|AA003
:ai_sld|AA003
=====================================================================

请教：以上是我的想法，这样的话图块的名称是对于中文版显示而言，图块的编号和图块的幻灯同，这样读行来得到.SLD行吗？…………我学LISP刚刚两个月许多不是太懂“脸红”情指教

我那里错了……显示不出来幻灯片
(defun C:aw (/ dcl_id getinf n I:Path show_tit slide)
  (setq n 1)
  (mapcar 'setvar '("cmdecho" "blipmode") '(0 0))
  (defun getinf        (/ x y)
    (if        (not (setq FIL (findfile "acad.slb")))
      (setq I:Path (if I:Path
                     I:Path
                     (getvar "DWGPREFIX")
                   )
      )
    )
;;;(set_tile show_tit "n")
    (setq slide (I:Path I:Path))
    (if        (>= n 5)
      (setq n 1)
    )
    (setq show_tit "acad(n)")
    (setq x (dimx_tile "show_tit")
          y (dimy_tile "show_tit")
    )
    (fill_image 0 0 X Y 0)
    (slide_image 0 0 X Y "acad(n)")
;;;(end_image)
    (cond
      ((= n 1)
       (start_image "show_tit")
       (fill_image 0 0 x y 0)
       (slide_image 0 0 x y "acad(2)")
      )
      ((= n 2)
       (start_image "show_tit")
       (fill_image 0 0 x y 0)
       (slide_image 0 0 x y "acad(3)")
      )
      ((= n 3)
       (start_image "show_tit")
       (fill_image 0 0 x y 0)
       (slide_image 0 0 x y "acad(4)")
      )
      ((= n 4)
       (start_image "show_tit")
       (fill_image 0 0 x y 0)
       (slide_image 0 0 x y "acad(5)")
      )
      ((= n 5)
       (start_image "show_tit")
       (fill_image 0 0 x y 0)
       (slide_image 0 0 x y "acad(6)")
      )
      ((= n 6)
       (start_image "show_tit")
       (fill_image 0 0 x y 0)
       (slide_image 0 0 x y "acad(6)")
      )
      (t nil)
      (setq n (+ n 1))
    )
  )
  (setq dcl_id (load_dialog "tmp.dcl"))
  (if (not (new_dialog "aw" dcl_id))
    (exit)
  )
  (start_image "show_tit")
  (fill_image 0 0 (dimx_tile "show_tit") (dimy_tile "show_tit") 0)
  (slide_image 0 0 (dimx_tile "show_tit") (dimy_tile "show_tit") "acad(1)")
;;;(end_image)
  (action_tile "show_tit" "(getinf)")
  (mode_tile "show_tit" 3)
  (start_dialog)
  (unload_dialog dcl_id)
)
(princ)

aeo

jdcad.blk -- Do not edit this file.
"单开门,AA000"
"双开门,AA001"
....
这样不是更好.
其实想想一个样,只要能方便写入和读出.