[求助]：写到这里就是不显示（幻灯和表），高手指点

yandib0880 · 发表于 2003-2-12 22:11:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:aw (/ dcl_id n x y
I:Path name ai_nam ai_dwg| ai_sld|
show_titer getinf lib_dwg blk_sld jdcad_blk
current_line all_dwg_list all_sld_list
)
(defun show_titer ()
(if (not (setq filename (findfile "jdcad.blk")))
(setq filename "jdcad.blk")
)
(if (setq jdcad_blk (open filename "r"))
(progn
(setq current_line (read-line jdcad_blk))
(while (and (/= "" current_line)
(/= nil current_line)
(/= ":" (substr current_line 1 1))
)
(setq current_line (read-line jdcad_blk))
(while current_line
(setq name (substr current_line 10))
(setq all_dwg_list (cons name all_dwg_list))
(setq all_lib_list (cons name all_lib_list))
(setq current_line (read-line jdcad_blk))
(while (/= ":" (substr current_line 1 1))
(setq lib_dwg (cons (read current_line) lib_dwg))
(setq current_line (read-line jdcad_blk))
)
(set (read (strcat "ai_dwg|" name))
(reverse lib_dwg)
)
(setq lib_dwg '())
(setq current_line (read-line jdcad_blk))
(while
(and current_line
(/= ":" (substr current_line 1 1))
)
(setq current_line (read-line jdcad_blk))
(< (length all_dwg_list) (getvar "maxsort"))
)
(setq all_dwg_list (acad_strlsort all_dwg_list))
)
(start_list "blk_path")
(mapcar 'add_list all_dwg_list)
(end_list)
(set_tile "blk_path" "0")
(close jdcad_blk)
)
)
)
(if (not (setq filename (findfile "jdcad.blk")))
(setq filename "jdcad.blk")
)
(if (setq jdcad_blk (open filename "r"))
(progn
(setq current_line (read-line jdcad_blk))
(while (and (/= "" current_line)
(/= nil current_line)
(/= ":" (substr current_line 1 5))
)
(setq current_line (read-line jdcad_blk))
(while current_line
(setq name (substr current_line 10))
(setq all_sld_list (cons name all_sld_list))
(setq current_line (read-line jdcad_blk))
(while (/= ":" (substr current_line 1 1))
(setq blk_sld (cons (read current_line) blk_sld))
(setq current_line (read-line jdcad_blk))
)
(set (read (strcat "ai_sld|" name))
(reverse blk_sld)
)
(setq blk_sld '())
(setq current_line (read-line jdcad_blk))
(while
(and current_line
(/= ":" (substr current_line 1 5))
)
(setq current_line (read-line jdcad_blk))
(< (length all_sld_list) (getvar "maxsort"))
)
(setq all_sld_list (acad_strlsort all_sld_list))
)
(start_list "sld_path")
(mapcar 'add_list all_sld_list)
(end_list)
(set_tile "sld_path" "0")
(close jdcad_blk)
)
)
)
)
(defun getinf (/ x y FIL)
;;(setq X (dimx_tile "show tit")
;;Y (dimy_tile "show tit")
;;)
(setq FIL (findfile "*.sld"))
(if (>= n 5)
(setq n 1)
)
(cond
((= n 1)
(start_image "show_tit")
(fill_image 0 0 x y 0)
(slide_image 0 0 x y "tk0")
)
((= n 2)
(start_image "show_tit")
(fill_image 0 0 x y 0)
(slide_image 0 0 x y "tk1")
)
((= n 3)
(start_image "show_tit")
(fill_image 0 0 x y 0)
(slide_image 0 0 x y "tk2")
)
((= n 4)
(start_image "show_tit")
(fill_image 0 0 x y 0)
(slide_image 0 0 x y "tk3")
)
((= n 5)
(start_image "show_tit")
(fill_image 0 0 x y 0)
(slide_image 0 0 x y "tk4")
)
((= n 6)
(start_image "show_tit")
(fill_image 0 0 x y 0)
(slide_image 0 0 x y "tk5")
)
(t nil)
;;(setq n (+ n 1))
)
)
(mapcar 'setvar '("cmdecho" "blipmode") '(0 0))
(setq dcl_id (load_dialog "tmp.dcl"))
(if (not (new_dialog "aw" dcl_id))
(exit)
;;(progn
;;(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.slb(1)"
;;)
;;)
)
;;(set_tile "path" I:Path)
(setq show_tit "show_sld")
(setq X (dimx_tile "show_tit")
Y (dimy_tile "show_tit")
)
(start_image "show_tit")
(slide_image 0 -10 X Y "ydblk.sld")
(end_image)
(action_tile "show_tit" "(getinf)")(mode_tile "show_tit" 2)
(start_dialog)
(unload_dialog dcl_id)
)
(princ "\n欢迎浏览图库!")
(princ)
;;;=========================================================================
//对话框的文件名假设为d:/tmp.dcl
aw : dialog {
label = "浏览";
: concatenation {
: text {
label = "名称:";
fixed_width = true;
}
: text {
//label = " ";
key = "blk_name";
width = 20;
}
: text {
label = "序号:";
}
: text {
//label = " ";
key = "blk_path";
width = 20;
}
: text {
label = "幻灯:";
}
: text {
//label = " ";
key = "sld_path";
width = 20;
}
}
: boxed_column {
label = "图块";
: image_button {
key = "show_tit";
height = 30;
width = 60;
color = -2;
}spacer;
}spacer;
ok_only;
}
//=============================================================================
/// jdcad.blk -- Do not edit this file.
/// 第一行存图块中文名称
/// 第二行存图块编号名称
/// 第三行存图块幻灯名称
///=============================================
:ai_nam|单开门
:ai_dwg|tk0
:ai_sld|tk0
:ai_nam|双开门
:ai_dwg|tk1
:ai_sld|tk1
:ai_nam|旋转门
:ai_dwg|tk2
:ai_sld|tk2
:ai_nam|自动门
:ai_dwg|tk3
:ai_sld|tk3

(defun c:aw (/                 dcl_id             n                 x             y 
             I:Path         name             ai_nam         ai_dwg|     ai_sld| 
             show_titer         getinf             lib_dwg         blk_sld     jdcad_blk 
             current_line             all_dwg_list             all_sld_list 
            ) 
  (defun show_titer () 
    (if        (not (setq filename (findfile "jdcad.blk"))) 
      (setq filename "jdcad.blk") 
    ) 
    (if        (setq jdcad_blk (open filename "r")) 
      (progn 
        (setq current_line (read-line jdcad_blk)) 
        (while (and (/= "" current_line) 
                    (/= nil current_line) 
                    (/= ":" (substr current_line 1 1)) 
               ) 
          (setq current_line (read-line jdcad_blk)) 
          (while current_line 
            (setq name (substr current_line 10)) 
            (setq all_dwg_list (cons name all_dwg_list)) 
            (setq all_lib_list (cons name all_lib_list)) 
            (setq current_line (read-line jdcad_blk)) 
            (while (/= ":" (substr current_line 1 1)) 
              (setq lib_dwg (cons (read current_line) lib_dwg)) 
              (setq current_line (read-line jdcad_blk)) 
            ) 
            (set (read (strcat "ai_dwg|" name)) 
                 (reverse lib_dwg) 
            ) 
            (setq lib_dwg '()) 
            (setq current_line (read-line jdcad_blk)) 
            (while 
              (and current_line 
                   (/= ":" (substr current_line 1 1)) 
              ) 
               (setq current_line (read-line jdcad_blk)) 
               (< (length all_dwg_list) (getvar "maxsort")) 
            ) 
            (setq all_dwg_list (acad_strlsort all_dwg_list)) 
          ) 
          (start_list "blk_path") 
          (mapcar 'add_list all_dwg_list) 
          (end_list) 
          (set_tile "blk_path" "0") 
          (close jdcad_blk) 
        ) 
      ) 
    ) 
    (if        (not (setq filename (findfile "jdcad.blk"))) 
      (setq filename "jdcad.blk") 
    ) 
    (if        (setq jdcad_blk (open filename "r")) 
      (progn 
        (setq current_line (read-line jdcad_blk)) 
        (while (and (/= "" current_line) 
                    (/= nil current_line) 
                    (/= ":" (substr current_line 1 5)) 
               ) 
          (setq current_line (read-line jdcad_blk)) 
          (while current_line 
            (setq name (substr current_line 10)) 
            (setq all_sld_list (cons name all_sld_list)) 
            (setq current_line (read-line jdcad_blk)) 
            (while (/= ":" (substr current_line 1 1)) 
              (setq blk_sld (cons (read current_line) blk_sld)) 
              (setq current_line (read-line jdcad_blk)) 
            ) 
            (set (read (strcat "ai_sld|" name)) 
                 (reverse blk_sld) 
            ) 
            (setq blk_sld '()) 
            (setq current_line (read-line jdcad_blk)) 
            (while 
              (and current_line 
                   (/= ":" (substr current_line 1 5)) 
              ) 
               (setq current_line (read-line jdcad_blk)) 
               (< (length all_sld_list) (getvar "maxsort")) 
            ) 
            (setq all_sld_list (acad_strlsort all_sld_list)) 
          ) 
          (start_list "sld_path") 
          (mapcar 'add_list all_sld_list) 
          (end_list) 
          (set_tile "sld_path" "0") 
          (close jdcad_blk) 
        ) 
      ) 
    ) 
  ) 
  (defun getinf        (/ x y FIL) 
    ;;(setq X (dimx_tile "show tit") 
          ;;Y (dimy_tile "show tit") 
    ;;) 
    (setq FIL (findfile "*.sld")) 
    (if        (>= n 5) 
      (setq n 1) 
    ) 
    (cond 
      ((= n 1) 
       (start_image "show_tit") 
       (fill_image 0 0 x y 0) 
       (slide_image 0 0 x y "tk0") 
      ) 
      ((= n 2) 
       (start_image "show_tit") 
       (fill_image 0 0 x y 0) 
       (slide_image 0 0 x y "tk1") 
      ) 
      ((= n 3) 
       (start_image "show_tit") 
       (fill_image 0 0 x y 0) 
       (slide_image 0 0 x y "tk2") 
      ) 
      ((= n 4) 
       (start_image "show_tit") 
       (fill_image 0 0 x y 0) 
       (slide_image 0 0 x y "tk3") 
      ) 
      ((= n 5) 
       (start_image "show_tit") 
       (fill_image 0 0 x y 0) 
       (slide_image 0 0 x y "tk4") 
      ) 
      ((= n 6) 
       (start_image "show_tit") 
       (fill_image 0 0 x y 0) 
       (slide_image 0 0 x y "tk5") 
      ) 
      (t nil) 
      ;;(setq n (+ n 1)) 
    ) 
  ) 
  (mapcar 'setvar '("cmdecho" "blipmode") '(0 0)) 
  (setq dcl_id (load_dialog "tmp.dcl")) 
  (if (not (new_dialog "aw" dcl_id)) 
    (exit) 
    ;;(progn 
    ;;(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.slb(1)" 
    ;;) 
    ;;) 
  ) 
  ;;(set_tile "path" I:Path) 
  (setq show_tit "show_sld") 
  (setq        X (dimx_tile "show_tit") 
        Y (dimy_tile "show_tit") 
  ) 
  (start_image "show_tit") 
  (slide_image 0 -10 X Y "ydblk.sld") 
  (end_image) 
  (action_tile "show_tit" "(getinf)")(mode_tile "show_tit" 2) 
  (start_dialog) 
  (unload_dialog dcl_id) 
) 
(princ "\n欢迎浏览图库!") 
(princ) 
;;;========================================================================= 
//对话框的文件名假设为d:/tmp.dcl 
aw : dialog { 
   label = "浏览"; 
   : concatenation { 
     : text { 
                 label        = "名称:"; 
                 fixed_width  = true; 
            } 
     : text { 
                 //label        = " "; 
                 key          = "blk_name"; 
                 width        = 20; 
            } 
     : text { 
                 label        = "序号:"; 
            } 
     : text { 
                 //label        = " "; 
                 key          = "blk_path"; 
                 width        = 20; 
            } 
     : text { 
                 label        = "幻灯:"; 
            } 
     : text { 
                 //label        = " "; 
                 key          = "sld_path"; 
                 width        = 20; 
            } 
   } 
   : boxed_column { 
      label = "图块"; 
      : image_button { 
              key = "show_tit"; 
              height = 30; 
              width = 60; 
              color = -2; 
      }spacer; 
   }spacer; 
   ok_only; 
} 
//============================================================================= 
///        jdcad.blk  --  Do not edit this file. 
///        第一行存图块中文名称 
///        第二行存图块编号名称 
///        第三行存图块幻灯名称 
///============================================= 
:ai_nam|单开门 
:ai_dwg|tk0 
:ai_sld|tk0 
:ai_nam|双开门 
:ai_dwg|tk1 
:ai_sld|tk1 
:ai_nam|旋转门 
:ai_dwg|tk2 
:ai_sld|tk2 
:ai_nam|自动门 
:ai_dwg|tk3 
:ai_sld|tk3

aeo · 发表于 2003-2-15 17:20:54

: text {
//label = " ";
key = "sld_path";
width = 20;
}
这是"text",应该是list_box吧,不然上面怎么有add_list呢?blk_name也一样.
应该这样写.
n=0 ;点image_button,n加1,
对应all_sld_list表里读出n个,就为幻灯名,显示之.
再对应all_dwg_list 里的n个为dwg名,set_tile "blk_path",blk_name也一样.

yandib0880 · 发表于 2003-2-16 18:44:49

这里不明白…………

n=0 ;点image_button,n加1,
对应all_sld_list表里读出n个,就为幻灯名,显示之.
再对应all_dwg_list 里的n个为dwg名,set_tile "blk_path",blk_name也一样.

还有如果要在text先是怎么改，我是初学，许多函数还不会用

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：写到这里就是不显示（幻灯和表），高手指点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

这里不明白…………