运行另一个

Keywordkid · 发表于 2022-7-5 19:51:03

大家好，

我已经有一段时间没有使用AutoCAD了，我学到的所有lisp控件都从记忆中消失了。我基本上只使用CAD作为清理文件以链接到Revit的工具，因此一直在设置一个例程来运行所有清理和清除实用程序，以加快速度，并消除反复使用相同命令序列的重复性。我想添加到我的lisp中的一个实用程序是“Flatten.lsp”，我已经找到了如何运行它，但是否还有其他方法可以预先回答提示？i、 e.全部展平（返回）是吗？

提前谢谢。

做记号

Keywordkid · 发表于 2022-7-5 20:00:32

大家好，

我已经有一段时间没有使用AutoCAD了，我学到的所有lisp控件都从记忆中消失了。我基本上只使用CAD作为清理文件以链接到Revit的工具，因此一直在设置一个例程来运行所有清理和清除实用程序，以加快速度，并消除反复使用相同命令序列的重复性。我想添加到我的lisp中的一个实用程序是“Flatten.lsp”，我已经找到了如何运行它，但是否还有其他方法可以预先回答提示？i、 e.全部展平（返回）是吗？

提前谢谢。

做记号

ReMark · 发表于 2022-7-5 20:03:20

请不要双重张贴，因为这只会导致分裂的答案和混乱。非常感谢。

ReMark · 发表于 2022-7-5 20:09:38

使用脚本批处理所有图形如何？

Keywordkid · 发表于 2022-7-5 20:14:29

抱歉，这是一个键盘错误。

任何观众请参阅“运行另一个”线程。

ttray33y · 发表于 2022-7-5 20:22:18

你当然可以。我有同样的程序。清除>审核>展平等。
我只在批处理中使用一个脚本，运行一次，剩下的由autocad完成。

Keywordkid · 发表于 2022-7-5 20:25:39

很高兴知道，你能举个例子吗？

GP_ · 发表于 2022-7-5 20:34:02

试试这个：

copy

;Gian Paolo Cattaneo - 28.Apr.2015
(defun c:FlattenAll ()
   (if (and
           (zerop (car (getvar "viewdir")))
           (zerop (cadr (getvar "viewdir")))
           (> (caddr (getvar "viewdir")) 0)
       )
       (if (member "acetutil.arx" (arx))
           (progn
               (or acet-flatn (load "FLATTENSUP.LSP"))
               (acet-flatn (ssget "_X") nil)
           )
           (alert "Express Tools are not installed.")
       )
       (alert "View needs to be in plan (0 0 1).")
   )
   (princ)
)

SLW210 · 发表于 2022-7-5 20:36:57

线程已合并。

ttray33y · 发表于 2022-7-5 20:44:27

事情是这样的。

copy


BURST
ALL
SCALE
ALL
0,0,0
25.4
ZOOM
E
-PURGE
ALL
*
N
CHANGE
ALL
P
C
7
CLOSE
N

[编程交流] 运行另一个

发表回复

精选推荐