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

ZZXXQQ · 发表于 2007-8-30 19:35:00

futuremh发表于2007-8-29 22:23:00晕我按着版主的说法做了,输入AA后就长时间不动,没反应.好像死机了一样晕死

数据文件的最后少了个空行。

futuremh · 发表于 2007-8-30 22:31:00

老大不行呀55555555

你QQ几号呀救命呀

sailorcwx · 发表于 2007-8-31 04:50:00

本帖最后由作者于 2007-8-31 4:51:10 编辑

我的完善了一下

不过怪怪的，为什么热处理中的有些text可以自动换行，而有些不能换行；有时间再找找原因了

sailorcwx · 发表于 2007-8-31 20:55:00

搞掂

futuremh · 发表于 2007-9-4 13:30:00

在材料表里只可以用数字，用字母，用中文就不行了，有什么方法可以输中文，和字母呀，求救

材料又不一定会是数字呀。

dwg001 · 发表于 2007-9-4 20:22:00

本帖最后由作者于 2007-9-4 20:45:00 编辑

请问sailorcwx：

全部文件可否编译成一个文件来调用？*.lsp+*.dcl可以编译成一个文件，但+*.txt如何加进去？

因*.txt很容易被误修改，编译后就相对固化了，除非*.txt到了需要修改的时候。

sailorcwx · 发表于 2007-9-5 01:58:00

本帖最后由作者于 2007-9-5 2:00:46 编辑

替换原来的lsp文件，删除txt文件，保留dcl文件
资料在lsp文件中添加，里面有格式说明。
编译自己处理

dwg001 · 发表于 2007-9-5 08:51:00

非常好用。谢谢sailorcwx大侠。

（

2007-9-5 1:58:00）让人敬佩！

futuremh · 发表于 2007-9-5 21:31:00

关键前面不能输英文或中文,有什么方法吗

ZZXXQQ · 发表于 2007-9-6 18:55:00

本帖最后由作者于 2007-9-6 18:57:09 编辑

[Post=5]下面程序使用了固定变量名称，材料名中可以使用字母或中文。因为在网吧改的程序，没有调试。

(DEFUN C:AA ()
(IF (SETQ NM (FINDFILE "AA.TXT")) (PROGN ;寻找AA.TXT数据文件，如果未找到程序退出
(SETQ CLB (LIST)) ;初始化变量CLB(材料表)
(SETQ F (OPEN NM "r")) ;打开文件
(SETQ BLB (LIST "JBZL" "TX" "RCL" "YT"));变量前掇表(基本资料,特性,热处理,用途)
(WHILE (SETQ CLM (READ-LINE F)) ;循环读材料名
(SETQ CLB (APPEND CLB (LIST CLM)) ;将材料名加入CLB(材料表)
I -1) ;循环变量
(READ-LINE F) ;空读空行
(REPEAT 4 ;循环4次(因材料内容有四项)
(READ-LINE F) ;空读一行
(SETQ BLM (READ (NTH (SETQ I (1+ I)) BLB)) ;从BLB中取变量名
TMPL (LIST)) ;临时变量
(SET BLM (LIST)) ;变量初始化
(WHILE (/= (SETQ L (READ-LINE F)) "") ;循环，非空行内容加入变量表
(SET TMPL (APPEND TMPL (LIST L)))
) ;结束WHILE
(SET BLM (APPEND (EVAL BLM) (LIST TMPL)))
) ;结束REPEAT
) ;结束WHILE
(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 "\nDataFile not found! 数据文件未找到!") ;错误显示
)
(PRINC)
)
(DEFUN SHOWTAB (NN)
(SETQ J -1)
(REPEAT (LENGTH CLB)
(SETQ TMPL (NTH (SETQ J (1+ J)) JBZL) ;取《基本资料》内容
I -1) ;初始化循环变量
(REPEAT (LENGTH TMPL) ;循环次数为变量内容长度
(SET_TILE (STRCAT "txt" (ITOA (+ I 2))) (NTH (SETQ I (1+ I)) TMPL))
;逐行在对话框中显示《基本资料》
) ;END REPEAT
(SETQ TMPL (NTH J TX) ;取《特性》内容
I 0
NR (CAR TMPL)) ;取出变量中第一项
(REPEAT (1- (LENGTH TMPL)) ;循环次数为变量内容长度-1
(SETQ NR (STRCAT NR "\n" (NTH (SETQ I (1+ I)) TMPL))) ;合并内容
)
(SET_TILE "txt10" NR) ;显示《特性》
(SETQ TMPL (NTH J RCL) ;取《热处理》内容
I 0
NR (CAR TMPL)) ;取出变量中第一项
(REPEAT (1- (LENGTH TMPL)) ;循环次数为变量内容长度-1
(SETQ NR (STRCAT NR "\n" (NTH (SETQ I (1+ I)) TMPL))) ;合并内容
)
(SET_TILE "txt9" NR) ;显示《热处理》
(SETQ TMPL (NTH J YT) ;取《用途》内容
I 0
NR (CAR TMPL)) ;取出变量中第一项
(REPEAT (1- (LENGTH TMPL)) ;循环次数为变量内容长度-1
(SETQ NR (STRCAT NR "\n" (NTH (SETQ I (1+ I)) TMPL))) ;合并内容
)
(SET_TILE "txt11" NR) ;显示《用途》
)

复制代码

[/Post]

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源