提供DCL源码文件.求帮编对应的LSP!

ZZXXQQ

可以。用LISP写一个DCL文件就行。

120120

晕!没人帮忙

120120

大家帮忙一下。。小弟在这里谢了！

sailorcwx

(defun c:cl()
  (YH_getdata)
  (setq YH_dclid (load_dialog "aa.dcl"))
  (new_dialog "aa" YH_dclid)
  (if YH_clb
    (progn
      (setq YH_times (length YH_clb)
     YH_index 0
     )
      (start_list "pmlist" 3 0)
      (repeat YH_times
 (add_list (nth YH_index YH_clb))
 (setq YH_index (1+ YH_index))
 )
      (end_list)
      )
    (progn
      (start_list "pmlist" 3 0)
      (end_list)
      )
    )
  (action_tile "pmlist" "(YH_showdata (atoi $value))")
  (setq YH_dcldone (start_dialog))
  (unload_dialog YH_dclid)
  )

(defun YH_showdata (n)
  (setq YH_djbzl (nth n YH_jbzl)
        YH_index 0
 )
  (repeat (length YH_djbzl)
    (set_tile (strcat "txt" (itoa (+ YH_index 1))) (nth YH_index YH_djbzl))
    (setq YH_index (1+ YH_index))
    ) 
   (setq YH_dtz (nth n YH_tz)
        YH_index 0
 ) 
  )
 
(defun YH_getdata ()
  (setq YH_clb '()
 YH_jbzl '()
 YH_jbzl1 '()
 YH_tz '()
 YH_tz1 '()
 YH_rcl '()
 YH_rcl1 '()
 YH_yt '()
 YH_yt1 '()
 )
   (setq YH_fileid (open (findfile "cl.txt") "r"))
   (while (setq YH_data (read-line YH_fileid))
     (if (DISTOF YH_data) (setq YH_clb (cons YH_data YH_clb))
       (progn
  (if (= YH_data "基本资料：")
    (progn
      (while (and (/= (setq YH_data (read-line YH_fileid)) "特性:") YH_data)
        (setq YH_jbzl1 (cons YH_data YH_jbzl1))
        )
      (setq YH_jbzl (cons (reverse YH_jbzl1) YH_jbzl)
     YH_jbzl1 '()
     )
      )
    )
  (if (= YH_data "特性:")
    (progn
      (while (and (/= (setq YH_data (read-line YH_fileid)) "热 处 理：") YH_data)
        (setq YH_tz1 (cons YH_data YH_tz1))
        )
      (setq YH_tz (cons (reverse YH_tz1) YH_tz)
     YH_tz1 '()
     )
      )
    )
  (if (= YH_data "热 处 理：")
    (progn
      (while (and (/= (setq YH_data (read-line YH_fileid)) "用途：") YH_data)
        (setq YH_rcl1 (cons YH_data YH_rcl1))
        )
      (setq YH_rcl (cons (reverse YH_rcl1) YH_rcl)
     YH_rcl1 '()
     )
      )
    )
  (if (= YH_data "用途：")
    (progn
      (while (and (/= (setq YH_data (read-line YH_fileid)) "") YH_data)
        (setq YH_yt1 (cons YH_data YH_yt1))
        )
      (setq YH_yt (cons (reverse YH_yt1) YH_yt)
     YH_yt1 '()
     )
      )
    )
  )
       )
     )
  (setq YH_clb (reverse YH_clb))
  (setq YH_jbzl (reverse YH_jbzl))
  (setq YH_tz (reverse YH_tz))
  (setq YH_rcl (reverse YH_rcl))
  (setq YH_yt (reverse YH_yt))
  )

sailorcwx

没写完，要收工回家了，剩下的自己照猫画虎完善吧

ZZXXQQ

数据：注意每项内容后要加空行，最后要加两个空行。

2. 168
3. 基本资料：
4.           名称：168
5.           类型：--
6.           生产商：瑞典一胜百(ASSAB)
7.           出厂状态：淬火回火-340HB
8.           C碳 Si硅 Mn锰 Cr铬 S硫
9.           0.33 0.35 1.35 16.7 0.12
10. 特性:
11.           1、优良的耐腐蚀性；
12.           2、优良的抗压强度；
13.           3、任何尺寸，硬度分布平均；
14.           4、优良的机械加工性。
15. 热 处 理：
16.           软性退火：在保护状态下，加热到860℃，然后在炉中以每小时20℃的速度，冷却至650℃，然后再放空气中冷却。
17.           消除应力：以经粗加工后，必须加热至最高550℃，保温2小时，然后于空气中冷却。
18.           淬火：注意：模具应确保在淬前以充分退火 预热温度：500℃ -600℃，淬硬温度：1000℃-1030℃，当模具中心和表面温度一同达到淬火温度后，保温30分钟。淬硬时必须保护，以避免脱碳及氧化
19. 用途：
20.            1、塑胶模模座、垫板，168配合S316模具和ELMAX镶块可成为完美的不锈钢模胚；
21.            2、抛光性要求不高塑胶和橡胶模；
22.            3、塑胶挤压模；
23.            4、结构零件。
24. 2083
25. 基本资料：
26.           名称：2083
27.           类型：--
28.           生产商：德国撒斯特(SAARSTAHL)
29.           出厂状态：HB:215~240
30.           C碳 Si硅 Mn锰 Cr铬 Mo钼 V钒 NI镍 W钨
31.           0.43   -  13.0  0.3  -    -   0.5  -
32. 特性:
33.           抛光后可达超级镜面，并且有优良的搞腐蚀性。
34. 热 处 理：
35.           --
36. 用途：
37.            可用于制作生产批量较大，模具尺寸较大，尺寸精度、表面抛光性能要求较高的高质量塑料成型模具等。

复制代码

程序：

2. (DEFUN C:AA ()
3. (IF (SETQ NM (FINDFILE "AA.TXT")) (PROGN
4.   (SETQ CLB (LIST))
5.   (SETQ F (OPEN NM "r"))
6.   (SETQ LAB (LIST "基本资料：" "特性：" "热 处 理：" "用途：")
7. BLB (LIST "JBZL" "TX" "RCL" "YT"))
8.   (WHILE (SETQ CLM (READ-LINE F))
9.    (SETQ CLB (APPEND CLB (LIST CLM))
10.   I -1)
11.    (READ-LINE F)
12.    (REPEAT 4
13.     (READ-LINE F)
14.     (SETQ BLM (READ (STRCAT (NTH (SETQ I (1+ I)) BLB) CLM)))
15.     (SET BLM (LIST))
16.     (WHILE (/= (SETQ L (READ-LINE F)) "")
17.      (SET BLM (APPEND (EVAL BLM) (LIST L))))
18.    )
19.   )
20.   (CLOSE F)
21.   (IF (> (SETQ DCL_ID (LOAD_DIALOG "AA")) 0) (PROGN
22.    (IF (NEW_DIALOG "aa" DCL_ID "") (PROGN
23.     (START_LIST "pmlist") (MAPCAR 'ADD_LIST CLB) (END_LIST)
24.     (SHOWTAB 0)
25.     (action_tile "pmlist" "(SHOWTAB (ATOI $VALUE))")
26.     (START_DIALOG)
27.    )
28.     (ALERT "Unable to display dialog box!\n无法显示对话框！")
29.    )
30.    (UNLOAD_DIALOG DCL_ID)
31.   )
32.    (ALERT "Unable to load dialog box!\n无法装载对话框！")
33.   )
34. ))
35. (PRINC)
36. )
37. (DEFUN SHOWTAB (NN)
38. (SETQ BLM (READ (STRCAT (CAR BLB) (NTH NN CLB)))
39.        I -1)
40. (REPEAT (LENGTH (EVAL BLM))
41.   (SET_TILE (STRCAT "txt" (ITOA (+ I 2))) (NTH (SETQ I (1+ I)) (EVAL BLM)))
42. )
43. (SETQ BLM (READ (STRCAT (CADR BLB) (NTH NN CLB)))
44.        I 0
45.        NR (CAR (EVAL BLM)))
46. (REPEAT (1- (LENGTH (EVAL BLM)))
47.   (SETQ NR (STRCAT NR "\n" (NTH (SETQ I (1+ I)) (EVAL BLM))))
48. )
49. (SET_TILE "txt10" NR)
50. (SETQ BLM (READ (STRCAT (CADDR BLB) (NTH NN CLB)))
51.        I 0
52.        NR (CAR (EVAL BLM)))
53. (REPEAT (1- (LENGTH (EVAL BLM)))
54.   (SETQ NR (STRCAT NR "\n" (NTH (SETQ I (1+ I)) (EVAL BLM))))
55. )
56. (SET_TILE "txt9" NR)
57. (SETQ BLM (READ (STRCAT (LAST BLB) (NTH NN CLB)))
58.        I 0
59.        NR (CAR (EVAL BLM)))
60. (REPEAT (1- (LENGTH (EVAL BLM)))
61.   (SETQ NR (STRCAT NR "\n" (NTH (SETQ I (1+ I)) (EVAL BLM))))
62. )
63. (SET_TILE "txt11" NR)
64. )

复制代码

120120

能不能不要ＴＸＴ文件？把这个资料直接写在ＬＳＰ文件里头？

ZZXXQQ

当然可以，但程序的可扩展性能差。

120120

ZZXXQQ，举个例子行不？

highflybir

师傅领进门，修行在个人.