将CAD中明细表的内容导出为文本文件临汾

将CAD中明细表的内容导出为文本文件

将CAD中明细表的内容导出为文本文件 2011： ;;;本程序应以database.lsp命名 (defun EXTERNALDATA (/ datafile listitem) (setq datafile (getfiled "打开文件" (strcat path_F "extractdata//") "txt" 8 ) ) (setq datafile (open datafile "r")) (setq listitem (read-line datafile)) (start_list "Referlist" 2) (while (/= listitem nil) (add_list listitem) (setq listitem (read-line datafile)) ) (end_list) (close datafile) ) (defun DBASEDIA_ID (/ DBASEDIA_ID do_what) (setq DBASEDIA_ID (load_dialog (strcat path_F "database.dcl"))) (if (> DBASEDIA_ID 0) (progn (setq do_what 4) (while (> do_what 1) (if (new_dialog "database" DBASEDIA_ID) (action_tile "b_externaldata" "(EXTERNALDATA)") (action_tile "edb_Type" "(setq oftype $value)") (set_tile "DWGNAME" (strcat (getvar "DWGPREFIX") DWGNAME)) (set_tile "DWGNO" DWGNO) (action_tile "scale_val" (strcat "(progn" "(setq scale_valuetmp $value)" ")" ) ) (action_tile "typ_list" "(setq typlist (atoi $value))") (action_tile "database_pick" "(done_dialog 3)") (action_tile "database_ok" "(done_dialog 1)") (setq do_what (start_dialog)) (cond ( (= do_what 3) (progn (setq p0 (getpoint "请选择开始点：")) ) ) ) ) (setq do_what 0) ) (unload_dialog DBASEDIA_ID) ) ) ) ) (defun SELE_TYPE () (cond ((= typlist 0) (setq oftype "*" MyList "list" ) ) ((= typlist 1) (setq oftype "阀" MyList "valve" ) ) ((= typlist 2) (setq oftype "法兰" MyList "flange" ) ) ((= typlist 3) (setq oftype "管" MyList "pipe" ) ) ((= typlist 4) (setq oftype "座" MyList "support" ) ) ((= typlist 5) (setq oftype "接头" MyList "joint" ) ) ((= typlist 6) (setq oftype "三通" MyList "Tvalve" ) ) ((= typlist 7) (setq oftype "弯头" MyList "bendedpipe" ) ) ) ) (defun DBASE_LIST () (start_list "typ_list" 2) (add_list "全部") (add_list "阀") (add_list "法兰") (add_list "管") (add_list "座") (add_list "接头") (add_list "三通") (add_list "弯头") (end_list) ) (defun C:DBASE (/p0 p1 cancel_rea s0 s1s2 s3 s4 s5 s6s7 ID ITEM DRAWING_NO NAMEMATERIAL NUMBER SGL_WEIGHT GBL_WEIGHT ATTNOTEvar_SS var_TEXT var_P0 var_P1 DWGNAMEDWGNOlen_DWGNAME num_ITEM typlistoftype MyList var_Filenum var_File path_F len_path LUNITS LUPREC DHscale_valuetmp str_Scale ) ;;;(setvar "CMDECHO" 0) (setvar "OSMODE" 1) (setq LUNITS (getvar "LUNITS")) (setq LUPREC (getvar "LUPREC")) (setvar "LUNITS" 2) (setvar "LUPREC" 4) (setq path_F (findfile "database.lsp")) (setq len_path (strlen path_F)) (setq path_F (substr path_F 1 (- len_path (strlen "database.lsp")))) (setq DWGNAME (getvar "DWGNAME")) (setq DH (getreal "\n请输入明细表行间距: ")) (setq len_DWGNAME (strlen DWGNAME)) (setq DWGNO (strcat "LISP" "-" (substr DWGNAME 1 3) "-" (substr DWGNAME 4 3) ) ) (if (>= len_DWGNAME 14) (setq DWGNO (strcat DWGNO "-" (substr DWGNAME 10 (- len_DWGNAME 13)) ) ) ) (setq scale_value (read scale_valuetmp)) (if (>= scale_value 1) (setq str_Scale (strcat "1:" (rtos scale_value 2 0))) (setq str_Scale (strcat (rtos (/ 1 scale_value) 2 0) ":1")) ) (setvar "MODEMACRO" DWGNO) (DBASEDIA_ID) (if (/= cancel_rea 1) (progn (setvar "CMDDIA" 0) (SELE_TYPE) (if (>= scale_value 1) (setq str_Scale (strcat "1:" (rtos scale_value 2 0))) (setq str_Scale (strcat (rtos (/ 1 scale_value) 2 0) ":1")) ) (if (= nil varFilenum) (progn (setq varFilenum (getfiled "请选择明细表文件" (strcat path_F "extractdata\\") "txt" 1 ) ) ) )

建筑抗震鉴定

铜版纸克数

威索燃烧器

陶瓷基板厂家

皂液器供应