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

ZZXXQQ

120120发表于2007-8-18 18:27:00ZZXXQQ，举个例子行不？

程序写好后可以编译再发布，这时如果材料内容变化就要重新改程序重新编译。除非内容永远不变。

而我前面的程序只要改一下数据文件就可以适应。

再说我也不知道到底有多少项材料数据。

120120

因为本人刚学LSP，所以很菜。。

只要你编这两项数据，我再看看！能不能自已写后面的数据。行不？

不懂的再问你！

120120

sailorcwx

ZZXXQQ

能不能加点注解！

sailorcwx 兄弟的可以用。但是没写完。后面的偶也不知道怎么写。自已看也不太明白。刚学。太菜了。

ZZXXQQ，好像运行不起来，不知那出错了！

ZZXXQQ

[Post=5]下面是有注解的程序，有部分修改。

2. (DEFUN C:AA ()
3. (IF (SETQ NM (FINDFILE "AA.TXT")) (PROGN ;寻找AA.TXT数据文件，如果未找到程序退出
4.   (SETQ CLB (LIST))     ;初始化变量CLB(材料表)
5.   (SETQ F (OPEN NM "r"))    ;打开文件
6.   (SETQ BLB (LIST "JBZL" "TX" "RCL" "YT"));变量前掇表(基本资料,特性,热处理,用途)
7.   (WHILE (SETQ CLM (READ-LINE F))   ;循环读材料名
8.    (SETQ CLB (APPEND CLB (LIST CLM))   ;将材料名加入CLB(材料表)
9.   I -1)      ;循环变量
10.    (READ-LINE F)     ;空读空行
11.    (REPEAT 4      ;循环4次(因材料内容有四项)
12.     (READ-LINE F)     ;空读一行
13.     (SETQ BLM (READ (STRCAT (NTH (SETQ I (1+ I)) BLB) CLM)))
14.   ;动态组成变量名，前掇从BLB中取与材料名组成变量名
15.     (SET BLM (LIST))     ;变量初始化
16.     (WHILE (/= (SETQ L (READ-LINE F)) "") ;循环，非空行内容加入变量表
17.      (SET BLM (APPEND (EVAL BLM) (LIST L))))
18.    )       ;结束REPEAT
19.   )       ;结束WHILE
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 "\nDataFile not found! 数据文件未找到!") ;错误显示
36. )
37. (PRINC)
38. )
39. (DEFUN SHOWTAB (NN)
40. (SETQ BLM (READ (STRCAT (CAR BLB) (NTH NN CLB))) ;动态组成变量名1
41.        I -1)      ;初始化循环变量
42. (REPEAT (LENGTH (EVAL BLM))    ;循环次数为变量内容长度
43.   (SET_TILE (STRCAT "txt" (ITOA (+ I 2))) (NTH (SETQ I (1+ I)) (EVAL BLM)))
44.        ;逐行在对话框中显示《基本资料》
45. )       ;END REPEAT
46. (SETQ BLM (READ (STRCAT (CADR BLB) (NTH NN CLB))) ;动态组成变量名2
47.        I 0
48.        NR (CAR (EVAL BLM)))    ;取出变量中第一项
49. (REPEAT (1- (LENGTH (EVAL BLM)))   ;循环次数为变量内容长度-1
50.   (SETQ NR (STRCAT NR "\n" (NTH (SETQ I (1+ I)) (EVAL BLM)))) ;合并内容
51. )
52. (SET_TILE "txt10" NR)     ;显示《特性》
53. (SETQ BLM (READ (STRCAT (CADDR BLB) (NTH NN CLB))) ;动态组成变量名3
54.        I 0
55.        NR (CAR (EVAL BLM)))    ;取出变量中第一项
56. (REPEAT (1- (LENGTH (EVAL BLM)))   ;循环次数为变量内容长度-1
57.   (SETQ NR (STRCAT NR "\n" (NTH (SETQ I (1+ I)) (EVAL BLM)))) ;合并内容
58. )
59. (SET_TILE "txt9" NR)     ;显示《热处理》
60. (SETQ BLM (READ (STRCAT (LAST BLB) (NTH NN CLB))) ;动态组成变量名4
61.        I 0
62.        NR (CAR (EVAL BLM)))    ;取出变量中第一项
63. (REPEAT (1- (LENGTH (EVAL BLM)))   ;循环次数为变量内容长度-1
64.   (SETQ NR (STRCAT NR "\n" (NTH (SETQ I (1+ I)) (EVAL BLM)))) ;合并内容
65. )
66. (SET_TILE "txt11" NR)     ;显示《用途》
67. )

复制代码

程序不能运行大约是支持文件没找到，上面程序加了错误显示。
[/Post]

120120

ZZXXQQ

谢谢您的耐心回答!

carrot1983

占个位子，以后好学习．．．

120120

ZZXXQQ

请问TXT里的内容格式要注意什么?不能正常显示.输入AA命令没有反应!没有任何提示!

刚开始可以正常显示,但后来我修改一下TXT就什么也没反应了.

材料表里只能显示第一个材料名.第二个就不显示了.第一个材料名里的内容可以正常显示.但第二个不显示材料名,点第二点有反应,里面的内容有错位!

ZZXXQQ

格式:

1材料名(要做变量后缀用,最好是数字或字母)
2空行
3项目名1(实际空读一行,可用空行代)
4项目内容(可多行)
5空行
6项目名2
7项目内容(可多行)
8空行
9项目名3
10项目内容(可多行)
11空行
12项目名4
13项目内容(可多行)
14空行
(重复1到14)
空行

注意：最后一定要有两个空行！估计是最后少了个空行。

120120

ZZXXQQ

化学成份,超出内容边界不会自动换行!

zml84

有意思，有了傀儡，要找系着它的绳线。