从Lisp w/Co调用批处理文件

Bill Tillman · 发表于 2022-7-6 07:05:58

我正在做一个项目，创建该图纸的dwg和PDF文件。我需要将这两个文件压缩到一起，以便稍后发送。我的想法是使用从LISP启动的批处理文件，但我需要向其传递一个命令行参数，以便正确命名zip文件。该命令行参数将是一个变量，随着程序的每次运行而变化。

有人这样做过吗？我还想从LISP动态编写批处理文件，然后启动它。这样就不需要争论了。

BlackBox · 发表于 2022-7-6 07:16:44

考虑AUTOMATICPUB系统变量。

vl文件名Mktemp？

Bill Tillman · 发表于 2022-7-6 07:26:28

嘿，AUTOMATICPUB看起来对我想做的其他任务很有趣。谢谢

此任务要求使用用户请求图形时指定的唯一ID号命名文件。事实上，我们明天会在网上直播，所以我把工作安排在今晚之前完成。

批处理文件将准备zip文件，但我需要将此zip文件命名为unique ID#。拉链，每一个都会不同。它是完全自动化的，所以我不能要求用户做任何事情。事实上，用户现在通过他们的web浏览器发出这些请求，不再需要Excel，他们甚至不需要AutoCAD。昨天是我在这个客户的一周年纪念日，我们走过了漫长的道路。

我的想法是让LISP程序编写批处理文件，然后启动TAPP来运行它。这样，批处理文件可以包含所有变量，并将其分配给实际路径名。我在处理所有的/\和“”时遇到了一些问题。但我需要在批处理文件中显示这一行，一旦它准备就绪。

copy


@echo off
C:\Program Files\7-zip\7z.exe C:\xampp\htdocs\out\unique-ID#.zip c:\temp\unique-ID#.*

BlackBox · 发表于 2022-7-6 07:32:13

???

copy


(vl-load-com)
(defun c:FOO ( / filepath file)
 (setq filepath (vl-filename-mktemp "[color=red][i]foo.txt[/i][/color]"))
 (setq file (open filepath "w"))
 (write-line "@echo off" file)
 (write-line
   "C:\Program Files\7-zip\7z.exe C:\xampp\htdocs\out\unique-ID#.zip c:\temp\unique-ID#.*"
   file
 )
 (close file)
 (startapp "notepad" filepath)
 (princ)
)

Bill Tillman · 发表于 2022-7-6 07:47:00

这很酷，如果时间允许，我会仔细研究一下。现在，这是我想到的，她工作得很好。

copy


     (setq f (open "C:/0/zipmeup.bat" "w"))
     (write-line "@echo off" f)
     (write-line (strcat ""C:\Program Files\\7-Zip\\7z.exe" a C:\\xampp\\htdocs\\out\" uniqueID ".zip c:\\temp\" uniqueID "* -x!*.bak") f)
     (close f)
     (startapp "C:/0/zipmeup.bat")

Bill Tillman · 发表于 2022-7-6 07:53:50

哎呀，我的错。当我测试这个时，我只测试了批处理文件是否被正确写入，然后我手动执行了它。当然，一切都很顺利。但是，当LISP程序运行时，图形文件本身必须打开，7-zip程序报告说，它不能将该文件包含在存档中，因为其他程序正在使用该文件。所以我想，太好了，我会关闭绘图文件。。。但是当然，我也面临着同样的宿敌，那就是一旦图形文件关闭，LISP就不再加载。该死，为什么他们在AutoDesk没有想到这一点。有无数次我需要关闭图形文件，然后让LISP文件在关闭之前再执行几个任务。

我将不得不回到这个问题上。

更新：发现这个关于7-zip的小新闻。。。。使用-ssw开关将允许它使用由另一个进程打开的文件。看来我们自由了。

BIGAL · 发表于 2022-7-6 08:05:20

也许是剧本

copy


(load "myzipper") 
close y
(startapp "C:/0/zipmeup.bat")
script myzipper2.....see below

如果要再次重新打开dwg，则可能需要2个脚本，以便重新打开myzipper的正确dwg部分，该脚本或可能作为BAT文件acad的一部分。exe myolddwname

irneb · 发表于 2022-7-6 08:09:32

您是否尝试过使用7-Zip的命令行开关来压缩共享文件？

copy

7-Zip 9.20  Copyright (c) 1999-2010 Igor Pavlov  2010-11-18
Usage: 7z <command> [<switches>...] <archive_name> [<file_names>...]
      [<@listfiles...>]
<Commands>
 a: Add files to archive
 b: Benchmark
 d: Delete files from archive
 e: Extract files from archive (without using directory names)
 l: List contents of archive
 t: Test integrity of archive
 u: Update files to archive
 x: eXtract files with full paths
<Switches>
 -ai[r[-|0]]{@listfile|!wildcard}: Include archives
 -ax[r[-|0]]{@listfile|!wildcard}: eXclude archives
 -bd: Disable percentage indicator
 -i[r[-|0]]{@listfile|!wildcard}: Include filenames
 -m{Parameters}: set compression Method
 -o{Directory}: set Output directory
 -p{Password}: set Password
 -r[-|0]: Recurse subdirectories
 -scs{UTF-8 | WIN | DOS}: set charset for list files
 -sfx[{name}]: Create SFX archive
 -si[{name}]: read data from stdin
 -slt: show technical information for l (List) command
 -so: write data to stdout
 -ssc[-]: set sensitive case mode
 [color=red]-ssw: compress shared files[/color]
 -t{Type}: Set type of archive
 -u[-][p#][q#][r#][x#][y#][z#][!newArchiveName]: Update options
 -v{Size}[b|k|m|g]: Create volumes
 -w[{path}]: assign Work directory. Empty path means a temporary directory
 -x[r[-|0]]]{@listfile|!wildcard}: eXclude filenames
 -y: assume Yes on all queries

[编程交流] 从Lisp w/Co调用批处理文件

发表回复

精选推荐