可以。用LISP写一个DCL文件就行。
本帖最后由 作者 于 2007-8-18 9:19:45 编辑 <br /><br /> <p>晕!没人帮忙</p>
大家帮忙一下。。小弟在这里谢了！
<p>(defun c:cl()<br/> (YH_getdata)<br/> (setq YH_dclid (load_dialog "aa.dcl"))<br/> (new_dialog "aa" YH_dclid)<br/> (if YH_clb<br/> (progn<br/> (setq YH_times (length YH_clb)<br/> YH_index 0<br/> )<br/> (start_list "pmlist" 3 0)<br/> (repeat YH_times<br/> (add_list (nth YH_index YH_clb))<br/> (setq YH_index (1+ YH_index))<br/> )<br/> (end_list)<br/> )<br/> (progn<br/> (start_list "pmlist" 3 0)<br/> (end_list)<br/> )<br/> )<br/> (action_tile "pmlist" "(YH_showdata (atoi $value))")<br/> (setq YH_dcldone (start_dialog))<br/> (unload_dialog YH_dclid)<br/> )</p><p>(defun YH_showdata (n)<br/> (setq YH_djbzl (nth n YH_jbzl)<br/> YH_index 0<br/> )<br/> (repeat (length YH_djbzl)<br/> (set_tile (strcat "txt" (itoa (+ YH_index 1))) (nth YH_index YH_djbzl))<br/> (setq YH_index (1+ YH_index))<br/> ) <br/> (setq YH_dtz (nth n YH_tz)<br/> YH_index 0<br/> ) <br/> )<br/> <br/>(defun YH_getdata ()<br/> (setq YH_clb '()<br/> YH_jbzl '()<br/> YH_jbzl1 '()<br/> YH_tz '()<br/> YH_tz1 '()<br/> YH_rcl '()<br/> YH_rcl1 '()<br/> YH_yt '()<br/> YH_yt1 '()<br/> )<br/> (setq YH_fileid (open (findfile "cl.txt") "r"))<br/> (while (setq YH_data (read-line YH_fileid))<br/> (if (DISTOF YH_data) (setq YH_clb (cons YH_data YH_clb))<br/> (progn<br/> (if (= YH_data "基本资料：")<br/> (progn<br/> (while (and (/= (setq YH_data (read-line YH_fileid)) "特性:") YH_data)<br/> (setq YH_jbzl1 (cons YH_data YH_jbzl1))<br/> )<br/> (setq YH_jbzl (cons (reverse YH_jbzl1) YH_jbzl)<br/> YH_jbzl1 '()<br/> )<br/> )<br/> )<br/> (if (= YH_data "特性:")<br/> (progn<br/> (while (and (/= (setq YH_data (read-line YH_fileid)) "热 处 理：") YH_data)<br/> (setq YH_tz1 (cons YH_data YH_tz1))<br/> )<br/> (setq YH_tz (cons (reverse YH_tz1) YH_tz)<br/> YH_tz1 '()<br/> )<br/> )<br/> )<br/> (if (= YH_data "热 处 理：")<br/> (progn<br/> (while (and (/= (setq YH_data (read-line YH_fileid)) "用途：") YH_data)<br/> (setq YH_rcl1 (cons YH_data YH_rcl1))<br/> )<br/> (setq YH_rcl (cons (reverse YH_rcl1) YH_rcl)<br/> YH_rcl1 '()<br/> )<br/> )<br/> )<br/> (if (= YH_data "用途：")<br/> (progn<br/> (while (and (/= (setq YH_data (read-line YH_fileid)) "") YH_data)<br/> (setq YH_yt1 (cons YH_data YH_yt1))<br/> )<br/> (setq YH_yt (cons (reverse YH_yt1) YH_yt)<br/> YH_yt1 '()<br/> )<br/> )<br/> )<br/> )<br/> )<br/> )<br/> (setq YH_clb (reverse YH_clb))<br/> (setq YH_jbzl (reverse YH_jbzl))<br/> (setq YH_tz (reverse YH_tz))<br/> (setq YH_rcl (reverse YH_rcl))<br/> (setq YH_yt (reverse YH_yt))<br/> )</p>
<p>没写完，要收工回家了，剩下的自己照猫画虎完善吧</p>
数据：注意每项内容后要加空行，最后要加两个空行。
168
基本资料：
名称：168
类型：--
生产商：瑞典一胜百(ASSAB)
出厂状态：淬火回火-340HB
C碳 Si硅 Mn锰 Cr铬 S硫
0.33 0.35 1.35 16.7 0.12
特性:
1、优良的耐腐蚀性；
2、优良的抗压强度；
3、任何尺寸，硬度分布平均；
4、优良的机械加工性。
热 处 理：
软性退火：在保护状态下，加热到860℃，然后在炉中以每小时20℃的速度，冷却至650℃，然后再放空气中冷却。
消除应力：以经粗加工后，必须加热至最高550℃，保温2小时，然后于空气中冷却。
淬火：注意：模具应确保在淬前以充分退火 预热温度：500℃ -600℃，淬硬温度：1000℃-1030℃，当模具中心和表面温度一同达到淬火温度后，保温30分钟。淬硬时必须保护，以避免脱碳及氧化
用途：
1、塑胶模模座、垫板，168配合S316模具和ELMAX镶块可成为完美的不锈钢模胚；
2、抛光性要求不高塑胶和橡胶模；
3、塑胶挤压模；
4、结构零件。
2083
基本资料：
名称：2083
类型：--
生产商：德国撒斯特(SAARSTAHL)
出厂状态：HB:215~240
C碳 Si硅 Mn锰 Cr铬 Mo钼 V钒 NI镍 W钨
0.43 -13.00.3- - 0.5-
特性:
抛光后可达超级镜面，并且有优良的搞腐蚀性。
热 处 理：
--
用途：
可用于制作生产批量较大，模具尺寸较大，尺寸精度、表面抛光性能要求较高的高质量塑料成型模具等。
程序：
(DEFUN C:AA ()
(IF (SETQ NM (FINDFILE "AA.TXT")) (PROGN
(SETQ CLB (LIST))
(SETQ F (OPEN NM "r"))
(SETQ LAB (LIST "基本资料：" "特性：" "热 处 理：" "用途：")
BLB (LIST "JBZL" "TX" "RCL" "YT"))
(WHILE (SETQ CLM (READ-LINE F))
(SETQ CLB (APPEND CLB (LIST CLM))
I -1)
(READ-LINE F)
(REPEAT 4
(READ-LINE F)
(SETQ BLM (READ (STRCAT (NTH (SETQ I (1+ I)) BLB) CLM)))
(SET BLM (LIST))
(WHILE (/= (SETQ L (READ-LINE F)) "")
(SET BLM (APPEND (EVAL BLM) (LIST L))))
)
)
(CLOSE F)
(IF (> (SETQ DCL_ID (LOAD_DIALOG "AA")) 0) (PROGN
(IF (NEW_DIALOG "aa" DCL_ID "") (PROGN
(START_LIST "pmlist") (MAPCAR 'ADD_LIST CLB) (END_LIST)
(SHOWTAB 0)
(action_tile "pmlist" "(SHOWTAB (ATOI $VALUE))")
(START_DIALOG)
)
(ALERT "Unable to display dialog box!\n无法显示对话框！")
)
(UNLOAD_DIALOG DCL_ID)
)
(ALERT "Unable to load dialog box!\n无法装载对话框！")
)
))
(PRINC)
)
(DEFUN SHOWTAB (NN)
(SETQ BLM (READ (STRCAT (CAR BLB) (NTH NN CLB)))
I -1)
(REPEAT (LENGTH (EVAL BLM))
(SET_TILE (STRCAT "txt" (ITOA (+ I 2))) (NTH (SETQ I (1+ I)) (EVAL BLM)))
)
(SETQ BLM (READ (STRCAT (CADR BLB) (NTH NN CLB)))
I 0
NR (CAR (EVAL BLM)))
(REPEAT (1- (LENGTH (EVAL BLM)))
(SETQ NR (STRCAT NR "\n" (NTH (SETQ I (1+ I)) (EVAL BLM))))
)
(SET_TILE "txt10" NR)
(SETQ BLM (READ (STRCAT (CADDR BLB) (NTH NN CLB)))
I 0
NR (CAR (EVAL BLM)))
(REPEAT (1- (LENGTH (EVAL BLM)))
(SETQ NR (STRCAT NR "\n" (NTH (SETQ I (1+ I)) (EVAL BLM))))
)
(SET_TILE "txt9" NR)
(SETQ BLM (READ (STRCAT (LAST BLB) (NTH NN CLB)))
I 0
NR (CAR (EVAL BLM)))
(REPEAT (1- (LENGTH (EVAL BLM)))
(SETQ NR (STRCAT NR "\n" (NTH (SETQ I (1+ I)) (EVAL BLM))))
)
(SET_TILE "txt11" NR)
)
能不能不要ＴＸＴ文件？把这个资料直接写在ＬＳＰ文件里头？
当然可以，但程序的可扩展性能差。
<strong><font face="Verdana" color="#da2549">ZZXXQQ，</font></strong>举个例子行不？
<p>师傅领进门，修行在个人.</p>