社区 › Auto Lisp › 请帮我用LEE MAC

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

请帮我用LEE MAC

先生
我有一个小的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。
 

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

请阅读代码发布指南，并编辑代码以包含在代码标签中。
Your Code Here=
Your Code Here

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

 
删除此行：
将代码另存为DEE。lsp。
 
然后将以下内容用作我的程序的“脚本行”：
_.open *file* (load "DEE.lsp" nil) (if DEE (DEE)) _.qsave _.close

查看完整版本: 请帮我用LEE MAC