[求助]：对我来说是个问题

yandib0880

在问个问题…………对我来说是个问题
指定要打开文件的路径语法是什么？如果不在cad的配置路径里面怎么用?
另：想在一个文件里存取两类信息比如名称、编号，然后分别填充在a,b两个列表框里，我现在是打开两个文件存取（怎么优化一下）
(defun c:re_ydth (/        dcl_id     all_lisp_list
  all_blk_list current_line re_ydth indx_2
  indx_3       load_lib     jdcad_lib jdcad_blk
  lib_lisp     lib_str     name list_str
  ai_str       ai_lisp     I:Path
)
  (setq dcl_id (load_dialog "list_path.dcl"))
  (if (not (new_dialog "list_path" dcl_id))
    (exit)
  )
  (setq I:Path "E:/AutoCAD R14/libs")
  (if (not (setq filename (findfile "jdcad.lib")))
    (setq filename "jdcad.lib")
  )
  (if (setq jdcad_lib (open filename "r"))
    (progn
      (setq current_line (read-line jdcad_lib))
      (while (and (/= "" current_line)
  (/= nil current_line)
  (/= ":" (substr current_line 1 1))
     )
(setq current_line (read-line jdcad_lib))
(while current_line
  (setq name (substr current_line 10))
  (setq all_lisp_list (cons name all_lisp_list))
  (setq all_lib_list (cons name all_lib_list))
  (setq current_line (read-line jdcad_lib))
  (while (/= ":" (substr current_line 1 1))
    (setq lib_lisp (cons (read current_line) lib_lisp))
    (setq current_line (read-line jdcad_lib))
  )
  (set (read (strcat "ai_lisp|" name)) (reverse lib_lisp))
  (setq lib_lisp '())
  (setq current_line (read-line jdcad_lib))
  (while
    (and current_line (/= ":" (substr current_line 1 1)))
     (setq current_line (read-line jdcad_lib))
     (< (length all_lisp_list) (getvar "maxsort"))
  )
  (setq all_lisp_list (acad_strlsort all_lisp_list))
)
(start_list "indx_2")
(mapcar 'add_list all_lisp_list)
(end_list)
(set_tile "indx_2" "0")
(close jdcad_lib)
      )
    )
  )
  (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_blk_list (cons name all_blk_list))
  (setq current_line (read-line jdcad_blk))
  (while (/= ":" (substr current_line 1 1))
    (setq blk_lisp (cons (read current_line) blk_lisp))
    (setq current_line (read-line jdcad_blk))
  )
  (set (read (strcat "ai_lisp|" name)) (reverse blk_lisp))
  (setq blk_lisp '())
  (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_blk_list) (getvar "maxsort"))
  )
  (setq all_blk_list (acad_strlsort all_blk_list))
)
(start_list "indx_3")
(mapcar 'add_list all_blk_list)
(end_list)
(set_tile "indx_3" "0")
(close jdcad_blk)
      )
      (action_tile "up" "(up_down)")
      (mode_tile "up" 3)
      (mode_tile "re_lib" 2)
      (mode_tile "down" 3)
      (start_dialog)
      (unload_dialog dcl_id)
    )
  )
)

cy956

你可以用doslib的函数，几句话就解决问题。用lisp写也可以，但麻烦多了，
而且一样要用到doslib或vlisp或其他dos工具的函数。

2. 
   
3. 
   
4.   blksc : dialog {
   
5.   label = "图内块输出到目录－－by cy956/020520改" ;
   
6.    : row {
   
7.       : edit_box {
   
8.          key = "a1" ;
   
9.          label = "归档目录：" ;
   
10.          width = 40 ;
    
11.       }
    
12.       : button {
    
13.          key = "a2" ;
    
14.          label = "改目录..." ;
    
15.          width = 10 ;
    
16.       }
    
17.    }
    
18.    spacer_1 ;
    
19.    : toggle {
    
20.       key = "a3" ;
    
21.       label = "将无名块改名为“unb－”输出" ;
    
22.    }
    
23.    : toggle {
    
24.       key = "a4" ;
    
25.       label = "重名不覆写！去钩则重名重写" ;
    
26.    }
    
27.    spacer_1 ;
    
28.    : row {
    
29.       spacer_1 ;
    
30.       : button {
    
31.          key = "ok1" ;
    
32.          label = "手选块输出" ;
    
33.          fixed_width = true ;
    
34.          width = 10 ;
    
35.       }
    
36.       : button {
    
37.          key = "ok2" ;
    
38.          label = "块列表输出" ;
    
39.          fixed_width = true ;
    
40.          width = 10 ;
    
41.       }
    
42.       : cancel_button {
    
43.          label = "退出块输出" ;
    
44.          }
    
45.       spacer_1 ;
    
46.    }
    
47. }
    
48. 
    
49. 
    
50. 
    
51. ;;;;;;;;;;;;
    
52. 
    
53. (DEFUN c:blksc (/ dcl_id dcl_id i BLKB E EN IN N NAM NAM1 OK-BLKSC S);;;批量图内块输出
    
54.   (mapcar 'setvar '("cmdecho""blipmode")'(0 0))
    
55.   (IF (> (SETQ dcl_id (LOAD_DIALOG "bbk")) 0)(PROGN
    
56.     (IF (NEW_DIALOG "blksc" dcl_id)(PROGN
    
57.       (setq path-blksc(if path-blksc path-blksc (getvar "DWGPREFIX"))
    
58.             k-blksca3(if k-blksca3 k-blksca3 "1")
    
59.             k-blksca4(if k-blksca4 k-blksca4 "1"))
    
60.       (set_tile "a1" path-blksc)
    
61.       (set_tile "a3" k-blksca3)
    
62.       (set_tile "a4" k-blksca4)
    
63.       ;;
    
64.       (ACTION_TILE "a2" "(setq path-blksc(dos_getdir "选择一个已有目录作为目标目录:" path-blksc))
    
65.                          (set_tile "a1" path-blksc)");;更改目录
    
66.       (ACTION_TILE "a3" "(setq k-blksca3 $value)")
    
67.       (ACTION_TILE "a4" "(setq k-blksca4 $value)")
    
68.       
    
69.       (ACTION_TILE "ok1" "(setq ok-blksc 1)(done_dialog 1)")
    
70.       (ACTION_TILE "ok2" "(setq ok-blksc 0)(done_dialog 1)")
    
71.       (ACTION_TILE "cancel" "(setq ok-blksc nil)")
    
72.       (START_DIALOG))
    
73.       (PROMPT "\n无法显示对话框,请检查!")
    
74.     )
    
75.     (UNLOAD_DIALOG dcl_id))
    
76.     (PRINC (STRCAT "\n无法加载对话框文件blksc.DCL,请检查!"))
    
77.   )
    
78.   .....
    
79. )
    

<br /> <br />   blksc : dialog {<br />   label = "图内块输出到目录－－by cy956/020520改" ;<br />    : row {<br />       : edit_box {<br />          key = "a1" ;<br />          label = "归档目录：" ;<br />          width = 40 ;<br />       }<br />       : button {<br />          key = "a2" ;<br />          label = "改目录..." ;<br />          width = 10 ;<br />       }<br />    }<br />    spacer_1 ;<br />    : toggle {<br />       key = "a3" ;<br />       label = "将无名块改名为“unb－”输出" ;<br />    }<br />    : toggle {<br />       key = "a4" ;<br />       label = "重名不覆写！去钩则重名重写" ;<br />    }<br />    spacer_1 ;<br />    : row {<br />       spacer_1 ;<br />       : button {<br />          key = "ok1" ;<br />          label = "手选块输出" ;<br />          fixed_width = true ;<br />          width = 10 ;<br />       }<br />       : button {<br />          key = "ok2" ;<br />          label = "块列表输出" ;<br />          fixed_width = true ;<br />          width = 10 ;<br />       }<br />       : cancel_button {<br />          label = "退出块输出" ;<br />          }<br />       spacer_1 ;<br />    }<br /> }<br /> <br /> <br /> <br /> ;;;;;;;;;;;;<br /> <br /> (DEFUN c:blksc (/ dcl_id dcl_id i BLKB E EN IN N NAM NAM1 OK-BLKSC S);;;批量图内块输出<br />   (mapcar 'setvar '("cmdecho""blipmode")'(0 0))<br />   (IF (> (SETQ dcl_id (LOAD_DIALOG "bbk")) 0)(PROGN<br />     (IF (NEW_DIALOG "blksc" dcl_id)(PROGN<br />       (setq path-blksc(if path-blksc path-blksc (getvar "DWGPREFIX"))<br />             k-blksca3(if k-blksca3 k-blksca3 "1")<br />             k-blksca4(if k-blksca4 k-blksca4 "1"))<br />       (set_tile "a1" path-blksc)<br />       (set_tile "a3" k-blksca3)<br />       (set_tile "a4" k-blksca4)<br />       ;;<br />       (ACTION_TILE "a2" "(setq path-blksc(dos_getdir "选择一个已有目录作为目标目录:" path-blksc))<br />                          (set_tile "a1" path-blksc)");;更改目录<br />       (ACTION_TILE "a3" "(setq k-blksca3 $value)")<br />       (ACTION_TILE "a4" "(setq k-blksca4 $value)")<br />       <br />       (ACTION_TILE "ok1" "(setq ok-blksc 1)(done_dialog 1)")<br />       (ACTION_TILE "ok2" "(setq ok-blksc 0)(done_dialog 1)")<br />       (ACTION_TILE "cancel" "(setq ok-blksc nil)")<br />       (START_DIALOG))<br />       (PROMPT "\n无法显示对话框,请检查!")<br />     ) <br />     (UNLOAD_DIALOG dcl_id))<br />     (PRINC (STRCAT "\n无法加载对话框文件blksc.DCL,请检查!"))<br />   )<br />   .....<br /> )<br />

yandib0880

关于嵌套对话框（三层）有些函数是有顺序的吗？加了一些程序内容，打开下层对话框是不能关闭上层，不能实现交替显示，请大侠高手指教，我可是初学的菜菜鸟