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

试试这个：
 
;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

 
事情是这样的。

BURST
ALL

SCALE
ALL

0,0,0
25.4
ZOOM
E
-PURGE
ALL
*
N
CHANGE
ALL

P
C
7

CLOSE
N
页: [1] 2
查看完整版本: 运行另一个