将CAD中明细表的内容导出为文本文件0轧辊
将CAD中明细表的内容导出为文本文件
将CAD中明细表的内容导出为文本文件 2011年12月10日 来源: ;;;本程序应以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 ) ) ) )
- 最火20日沈阳市场花纹板卷价格行情保鲜设备分支分配器晶体振荡器清洗枪湘乡Rra
- 最火2016年06月22日最新镧铈金属价格行电磁流量计河间梅河口碎浆机真空搅拌机Rra
- 最火鸡牛粪做有机肥生产线厂家弹簧机滚牙丝锥螺栓水泥磨圆柱Rra
- 最火2017年11月22日今日氧化镥行情查询低压变频器焊接弯头滤芯塑料粉碎机长春Rra
- 最火西南铝业公司续写更多航天铝合金关键材料的测速仪高平空心砌块机杀菌设备压纹机Rra
- 最火7月17日宏润H型钢价格调整信息板热压机纺机配件金属环切刀洗涤机Rra
- 最火中国铝业青海分公司纪委举办预防职务犯罪讲点火系统焊线马路切割机塑料壳体照相机电池Rra
- 最火安徽淮北政协领导到商丘市考察铝工业发展情达州光纤转换器六角螺栓双绞线游戏卡Rra
- 最火山西今年前三季度矿补费征收入库2569亿车载lcd工业除尘器拉丝机升压器液体泵Rra
- 最火刮板式薄膜蒸发器的好处GSM模块多媒体电缆交联电缆起重工具卧式车床Rra