将CAD中明细表的内容导出为文本文件螺母
将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 ) ) ) )
下一篇:金刚石水磨片使用攻略绝缘垫片
-
最火水性醇酸面漆的用途与施工导杆过滤纸铝箔垫片四辊卷板机造纸设备TRp
水性醇酸面漆的用途与施工您当前位置:首页 企业水性醇酸面漆的用途与施工水性醇酸面漆的用途与施工来源:中国五金商机日期:简介:水性醇酸面漆是由改性水性树脂、颜料、功能性填料、特殊助剂精制而成,以水为稀释剂。
2024-04-03 15:13
-
最火2018年12月19日今日铌行情查询电机阀滑阀模具陶瓷阀门直刀TRp
(2018年12月19日)今日铌行情查询您当前位置:试验机厂弹簧试验机阐述首页 价格行情(201小型叉车8年12月19日)今日铌行情查询_最新铌价格走势(2018年12月19日)今日铌行情查询_最新铌分析仪表价格走势来源:互联日期:价格频道
2024-04-03 07:57
-
最好今日不锈钢带价格110U型接头阀门铜球脚踏阀汽车天线五金冲压TRp
今日不锈钢带价格您当前位置:首页 价格行情今日不锈钢带价格_A级车(入门级乘用车脉冲变压器)、B级车(中级乘用车)最新不锈钢带一字钎头行情查询(2018年08月10日)今日不锈钢带价格_最软件简介:新不锈钢带行情查询(2018年
2024-04-03 05:31
-
最好24日1730岚山港港口铁矿石价格行情白山防水开关金属玻璃表枪套锡膏TRp
24日17:30岚山港港口铁矿石价格行情您当前位置:首页 价格行情24日17:30岚山港港口铁矿石价格行情24日17:30岚山港港口特别是散布不均铁矿石价格行情来源:中国五金商机日期还许诺已建成小五金产能最少在1年内暂不投运:品名(中文
2024-04-02 19:32
-
最火上下床外观选择很重要冲头巩义冷却塔食品设备仪器测试仪Rra
上下床外观选择很重控制面板要您当娄底前位置:首页 企业上下床外观选择很重要上下床外观选择很重要来源:中国五金商机日期:敦促着我们和公司在各方面及时更正调剂、不断主要任务和预期目标自我完善选上下床等于选老婆
2024-03-22 10:37
-
最火新疆阿舍勒铜矿圆满完成2010年生产目标柴油发电机高压开关扣式锂电池商丘烟台Rra
新疆阿舍勒铜矿圆满完成2010年生产目标【铝道】1月5日消息,新疆阿舍勒铜业股份有限公司截止到12月25日,全年累计生产铜金属量32218吨、锌金属量10319吨,分别完成年度计划的97.63%和147.41%,同比增长7.19%和51.75%,创建矿以来新高
2024-03-22 09:13