lisp routin的帮助

hosyn · 发表于 2022-7-5 23:12:33

嗨Bigal
我尝试对dir执行以下命令：


(command "dir" " C:\\000-lisp--3-1   /b/oN/A-H    *.LSP > C:\\000-lisp--3-1\\uu(LSP).txt")

但没有操作wello：）

hmsilva · 发表于 2022-7-5 23:15:13

尝试

copy


(setq x (strcat "(load " (chr 34) "C:\\000-lisp1\"  x (chr 34) " " (chr 34) "MyLISP Failed to Load" (chr 34)")")

亨里克

hosyn · 发表于 2022-7-5 23:19:11

嗨BIGAL
我试过这个：

copy


(command "dir" " C:\\000-lisp-93-3-1   /b/oN/A-H    *.LSP > C:\\000-lisp-93-3-1\\uu(LSP).txt")

但是做得不好，这段代码有什么问题吗？？

hosyn · 发表于 2022-7-5 23:22:53

我检查了例行程序，但不幸的是做得不好，你的修改意味着我必须用（chr 34）替换“内部”

hmsilva · 发表于 2022-7-5 23:25:35

尝试

copy


(setq        x (strcat "(load " (chr 34) "C:/000-lisp1/"  x (chr 34) " " (chr 34) "MyLISP Failed to Load" (chr 34)")")

HTH公司
亨里克

hosyn · 发表于 2022-7-5 23:28:33

hmsilva公司
我试过了，但还是有问题。。此时，我将routin分为两个单独的选项：

copy


1- i change [color="olive"]"[/color] to www string character .
2-now code change to ::  (setq        x (strcat "(load WWWC:\\000-lisp-93-3-1\"   x   " WWW WWWMyLISP Failed to LoadWWW)")
3-and operate the fierst lisp
4-the second lisp for replacing  WWW--->> "  and  \ ----->> \\

现在一切正常，直到第3项，我需要在文件中查找和替换www和\的lisp代码，然后依次运行lisp 1和2。

hmsilva · 发表于 2022-7-5 23:32:17

现在，我感到困惑。。。

你能解释一下你想做什么吗。
为什么你需要WWW，然后把它修改成“？

亨里克

hosyn · 发表于 2022-7-5 23:34:58

因为：

copy


(setq        x (strcat "(load " (chr 34) "C:/000-lisp1/"  x (chr 34) " " (chr 34) "MyLISP Failed to Load" (chr 34)")")

而且做得不好。
为了得到模块化的两个任务，我将其分为两部分：
1-1 lisp表示前缀和后缀
2-另一个查找和替换
我在上面试过（把“改为www”），一切都很好。

当lisp与几个“i change internal”不匹配时，在为每行添加前缀和后缀后，我再次从www更改为“

hmsilva · 发表于 2022-7-5 23:37:06

我问的是你想写什么，a。lsp，或。scr加载目录中的所有文件？

hosyn · 发表于 2022-7-5 23:41:00

一lsp

事实上，我的想法是：
我在特定目录中有lisp文件，每次我添加新的lisp文件进行测试时
我有一个bat文件，用于将这些文件的名称与以下文件合并到一个文件中：

copy

(command "dir" " /b/oN/A-H    *.LSP >uu(LSP).LSP")

在这之后，我把每一行都换成

copy


(load "C:\\lsp--------hlsp\\80----DynOff---DIN OFFSET-----DynOffV2-1.lsp" "MyLISP Failed to Load")
(load "C:\\lsp--------hlsp\\80----trim.lsp" "MyLISP Failed to Load")
(load "C:\\lsp--------hlsp\\80----ctyu.lsp" "MyLISP Failed to Load")
and more file here..........................

使用一个命令，嵌入目录中的每个文件自动加载到cad：）
有更好的方法吗？

[编程交流] lisp routin的帮助

发表回复

精选推荐