请帮我用LEE MAC

hidxb123 · 发表于 2022-7-5 17:01:04

先生
我有一个小的lisp，我想在我的100个图形中重复它，绘图路径是D:\WORK，lisp如下所示，

(defun DEE( / fname)
   (mapcar 'setvar '("cmdecho" "insunits" "dimasz") '(0 4 3.0))
   (if (findfile (setq fname "c:\\hpc\\DEE.dwg")) 
      (command "insert" fname '(7.6911 3.3174) 1.4 "" 0 AV)
   )
(command "qsave" "CLOSE" ))
);DEE

我带着leemac wscript lisp，
上传wscipt lisp后，请告诉我下一步

非常感谢。

Lee Mac · 发表于 2022-7-5 17:04:46

什么是“TLOAD”和“TSAVEP”-据我所知，这些不是标准的AutoCAD命令。

您能否确认您的程序在当前图形上成功且无错误地执行？

BIGAL · 发表于 2022-7-5 17:07:57

除了李对100个dwg的评论之外，你还需要这样一个脚本，有多种方式来编写脚本。李·Mac有一个很好的编剧或我，我使用老式的DOS，从“Windows”左下角的CMD选项，然后是Dir*。dwg>dirlst/b然后放入Word并使用replace最多5分钟完成100个dwg。

copy


open dwg1 (load "DEE")(DEE)
open dwg2 (load "DEE")(DEE)
etc

Ps lips are on your face LISP是一种编程语言

Cad64 · 发表于 2022-7-5 17:10:54

对不起，但我不得不笑了。

hidxb123 · 发表于 2022-7-5 17:19:58

对不起，是拼写错误

hidxb123 · 发表于 2022-7-5 17:22:46

先生

我编辑了Lisp程序，现在请看

Dadgad · 发表于 2022-7-5 17:23:24

+1没有恶意，只是一个打字错误！

hidxb123 · 发表于 2022-7-5 17:28:07

先生

感谢您的回复，

请看附件，它显示了错误，我不是很多家庭与cmd，请把完整的cmd命令我的文件位置是C:\Work和我的图纸名称是01,02,03等

非常感谢。

SLW210 · 发表于 2022-7-5 17:32:28

请阅读代码发布指南，并编辑代码以包含在代码标签中。[NOPARSE]

copy

Your Code Here[/NOPARSE]

=

copy

Your Code Here

Lee Mac · 发表于 2022-7-5 17:34:43

删除此行：
将代码另存为DEE。lsp。

然后将以下内容用作我的程序的“脚本行”：

copy

_.open *file* (load "DEE.lsp" nil) (if DEE (DEE)) _.qsave _.close

[编程交流] 请帮我用LEE MAC

发表回复

精选推荐