曾从网上找到的一个

357785513

2.   blksc : dialog {
3.   label = "图内块输出到目录－－by cy956/020520改" ;
4.    : row {
5.       : edit_box {
6.          key = "a1" ;
7.          label = "归档目录：" ;
8.          width = 40 ;
9.       }
10.       : button {
11.          key = "a2" ;
12.          label = "改目录..." ;
13.          width = 10 ;
14.       }
15.    }
16.    spacer_1 ;
17.    : toggle {
18.       key = "a3" ;
19.       label = "将无名块改名为“unb－”输出" ;
20.    }
21.    : toggle {
22.       key = "a4" ;
23.       label = "重名不覆写！去钩则重名重写" ;
24.    }
25.    spacer_1 ;
26.    : row {
27.       spacer_1 ;
28.       : button {
29.          key = "ok1" ;
30.          label = "手选块输出" ;
31.          fixed_width = true ;
32.          width = 10 ;
33.       }
34.       : button {
35.          key = "ok2" ;
36.          label = "块列表输出" ;
37.          fixed_width = true ;
38.          width = 10 ;
39.       }
40.       : cancel_button {
41.          label = "退出块输出" ;
42.          }
43.       spacer_1 ;
44.    }
45. }

  blksc : dialog {   label = "图内块输出到目录－－by cy956/020520改" ;    : row {       : edit_box {          key = "a1" ;          label = "归档目录：" ;          width = 40 ;       }       : button {          key = "a2" ;          label = "改目录..." ;          width = 10 ;       }    }    spacer_1 ;    : toggle {       key = "a3" ;       label = "将无名块改名为“unb－”输出" ;    }    : toggle {       key = "a4" ;       label = "重名不覆写！去钩则重名重写" ;    }    spacer_1 ;    : row {       spacer_1 ;       : button {          key = "ok1" ;          label = "手选块输出" ;          fixed_width = true ;          width = 10 ;       }       : button {          key = "ok2" ;          label = "块列表输出" ;          fixed_width = true ;          width = 10 ;       }       : cancel_button {          label = "退出块输出" ;          }       spacer_1 ;    } }

2. ;;;;;;;;;;;;
4. (DEFUN c:blksc (/ dcl_id dcl_id i BLKB E EN IN N NAM NAM1 OK-BLKSC S);;;批量图内块输出
5.   (mapcar 'setvar '("cmdecho""blipmode")'(0 0))
6.   (IF (> (SETQ dcl_id (LOAD_DIALOG "bbk")) 0)(PROGN
7.     (IF (NEW_DIALOG "blksc" dcl_id)(PROGN
8.       (setq path-blksc(if path-blksc path-blksc (getvar "DWGPREFIX"))
9.      k-blksca3(if k-blksca3 k-blksca3 "1")
10.             k-blksca4(if k-blksca4 k-blksca4 "1"))
11.       (set_tile "a1" path-blksc)
12.       (set_tile "a3" k-blksca3)
13.       (set_tile "a4" k-blksca4)
14.       ;;
15.       (ACTION_TILE "a2" "(setq path-blksc(dos_getdir "选择一个已有目录作为目标目录:" path-blksc))
16.                   (set_tile "a1" path-blksc)");;更改目录
17.       (ACTION_TILE "a3" "(setq k-blksca3 $value)")
18.       (ACTION_TILE "a4" "(setq k-blksca4 $value)")
19.       
20.       (ACTION_TILE "ok1" "(setq ok-blksc 1)(done_dialog 1)")
21.       (ACTION_TILE "ok2" "(setq ok-blksc 0)(done_dialog 1)")
22.       (ACTION_TILE "cancel" "(setq ok-blksc nil)")
23.       (START_DIALOG))
24.       (PROMPT "\n无法显示对话框,请检查!")
25.     )
26.     (UNLOAD_DIALOG dcl_id))
27.     (PRINC (STRCAT "\n无法加载对话框文件blksc.DCL,请检查!"))
28.   )
29.   .....
30. )

;;;;;;;;;;;; (DEFUN c:blksc (/ dcl_id dcl_id i BLKB E EN IN N NAM NAM1 OK-BLKSC S);;;批量图内块输出   (mapcar 'setvar '("cmdecho""blipmode")'(0 0))   (IF (> (SETQ dcl_id (LOAD_DIALOG "bbk")) 0)(PROGN     (IF (NEW_DIALOG "blksc" dcl_id)(PROGN       (setq path-blksc(if path-blksc path-blksc (getvar "DWGPREFIX"))      k-blksca3(if k-blksca3 k-blksca3 "1")             k-blksca4(if k-blksca4 k-blksca4 "1"))       (set_tile "a1" path-blksc)       (set_tile "a3" k-blksca3)       (set_tile "a4" k-blksca4)       ;;       (ACTION_TILE "a2" "(setq path-blksc(dos_getdir "选择一个已有目录作为目标目录:" path-blksc))                   (set_tile "a1" path-blksc)");;更改目录       (ACTION_TILE "a3" "(setq k-blksca3 $value)")       (ACTION_TILE "a4" "(setq k-blksca4 $value)")              (ACTION_TILE "ok1" "(setq ok-blksc 1)(done_dialog 1)")       (ACTION_TILE "ok2" "(setq ok-blksc 0)(done_dialog 1)")       (ACTION_TILE "cancel" "(setq ok-blksc nil)")       (START_DIALOG))       (PROMPT "\n无法显示对话框,请检查!")     )     (UNLOAD_DIALOG dcl_id))     (PRINC (STRCAT "\n无法加载对话框文件blksc.DCL,请检查!"))   )   ..... )

曾从网上找到的一个
那位给看一下,这是一个块写块程序,在2000以下都好用,但在2004以上版就用不了了
能不能改成块输出到文件呀
因为WBLOCK要一个一个写块出去.想给它批量写块出去有什么办法不

ZZXXQQ

需安装DOSLIB

357785513

兄台,能否明言