如何显示/读取文本f

hari-babu · 发表于 2022-7-5 18:09:14

你好

早上好，很高兴见到你们。
我是这里的新手，这是我的第一个帖子。
请考虑我在编写lisp例程方面的知识处于基本水平。请在这个问题上帮助我。

这是示例例程，我正在删除它，
请参阅下面的原始例程，

非常感谢。

rkmcswain · 发表于 2022-7-5 18:22:26

在这一行上--->（if（findfile fn）（startapp“notepad”fn））

将“fn”更改为“fnm”

hari-babu · 发表于 2022-7-5 18:31:42

非常感谢，先生。

这是我的问题的简化示例代码。
我在这里张贴的原始代码，这是不工作的。请帮忙。
其工作顺序为：
1）准备选定图形文件夹中所有图形的列表。
2）创建一个脚本文件以打开，运行另一个“process.lsp”，关闭列表的每个绘图。
3）运行脚本
4）运行时，脚本文件在同一个图形文件夹中弹出“errorlog.txt”。

我们现在需要看到“ERRORLOG.TXT”。

copy

(defun c:sample        ()
 (if (and (setq scrfile "D:\\lisp\\SCRIPT.scr") ; path of script file
   (setq dwgloc        (getfiled "\nSelect Any One DRAWING from Required Folder: " "" "dwg" )         ;full path of drawing
     )        ; End and                                
   (progn
     (setq afile (open scrfile "w"))        ;to create a text (script) file
     (foreach x (vl-directory-files (setq dir (vl-filename-directory dwgloc)) "*.dwg" 1)                        ;for each drawing file in same directory
(write-line (strcat "open " """ dir "\" x " " "" (load "d:/lisp/process.lsp") zoom extents (c:process) qsave close") afile) ; script line to open drawing, load process.lsp, run, save, and close drawing.
)        ; End foreach
     (close afile)
     )        ; End progn
   (princ "\n<!> File Selection Error <!>")
 )        ; End if
 (command "script" scrfile)                ; run the script file
;===============================================================;
;        until here everything is working fine.                        ;
;        Here in the back ground this script file creates                ;
;        an ERRORLOG.TXT in the same folder of drawings dwgloc        ;
;===============================================================;
(setq lg (strlen dwgloc) lg1 (- lg 10) dwgpath (substr dwgloc 1 lg1))        ;strips off drawing name (10 characters), retains only path in the string dwgloc
(setq fn (strcat dwgpath "Errorlog.txt"))        ;this is the location of error.log.txt which was created by running script file
(if (setq ff (findfile fn)) (startapp "notepad" fn)) ;ff returning nil, i dont know why???
)

hari-babu · 发表于 2022-7-5 18:37:50

运行上述程序后，如果我键入命令提示符

（setq ff（findfile fn））
（startapp“notepad”fn）

它工作正常，并显示错误日志。屏幕上的txt。
但是我不想做那种体力劳动。我需要我的程序弹出错误日志。txt文件

BIGAL · 发表于 2022-7-5 18:50:16

脚本的最后一行可以是打开另一个程序（如记事本）并显示错误文件。

使用记事本查看（startapp“notepad”c:\\alan\\test.txt）

hari-babu · 发表于 2022-7-5 18:54:19

就连我也这么做了。在这里，我粘贴它生成的脚本文件。但它不起作用。
注意：在发出“sample”命令后，如果我通过手动选择从命令提示符运行这个脚本，它就可以工作了。

copy

open "D:\test\Newfolder\09-210.dwg " (load "d:/lisp/process.lsp") zoom extents (c:process) qsave close
open "D:\test\Newfolder\09-211.dwg " (load "d:/lisp/process.lsp") zoom extents (c:process) qsave close
open "D:\test\Newfolder\09-701.dwg " (load "d:/lisp/process.lsp") zoom extents (c:process) qsave close
open "D:\test\Newfolder\09-702.dwg " (load "d:/lisp/process.lsp") zoom extents (c:process) qsave close
open "D:\test\Newfolder\09-703.dwg " (load "d:/lisp/process.lsp") zoom extents (c:process) qsave close
open "D:\test\Newfolder\10-102.dwg " (load "d:/lisp/process.lsp") zoom extents (c:process) qsave close
open "D:\test\Newfolder\12-201.dwg " (load "d:/lisp/process.lsp") zoom extents (c:process) qsave close
delay 3000
(startapp "notepad" "D:\test\Newfolder\ERRORLOG.txt")

hanhphuc · 发表于 2022-7-5 19:03:07

嗨，2条建议，不确定是否有效？试试看。。
1.将“\”改为“/”？

2.3000延迟后添加脚本

copy

shell start "notepad" "D:\test\Newfolder\ERRORLOG.txt"

祝你好运

BIGAL · 发表于 2022-7-5 19:09:50

Try（startapp“notepad”D:\\test\\Newfolder\\ERRORLOG.txt）

[编程交流] 如何显示/读取文本f

发表回复

精选推荐