Lisp 应用自动(脚本)操作,无需用户交互

Lisp 应用自动(脚本)操作,无需用户交互,lisp,autocad,autolisp,Lisp,Autocad,Autolisp,我有一个可能相当简单的解决Auto LISP的问题要解决。我有一个基本上可以正常工作的脚本,但它需要我在我的案例中手动选择对象文本并按enter键 我想从所有层中选择所有文本对象,并对所有层应用相同的TCIRCLE操作。此命令稍后应与脚本一起应用,以自动导入,这就是为什么不能进行手动交互 这是需要手动选择的工作基本脚本: (defun c:MyTcircle ( / ss) (if (not bns_tcircle) (load "acettxt.lsp")) (if (setq

我有一个可能相当简单的解决Auto LISP的问题要解决。我有一个基本上可以正常工作的脚本,但它需要我在我的案例中手动选择对象文本并按enter键

我想从所有层中选择所有文本对象,并对所有层应用相同的TCIRCLE操作。此命令稍后应与脚本一起应用,以自动导入,这就是为什么不能进行手动交互

这是需要手动选择的工作基本脚本:

(defun c:MyTcircle ( / ss)
    (if (not bns_tcircle) (load "acettxt.lsp"))
    (if (setq ss (ssget '((0 . "TEXT,MTEXT,ATTDEF"))))
        (bns_tcircle ss "Variable" "Rectangles" "" 0.35)
    )
    (princ)
)
我尝试使用setq-sset为上述相同类型的过滤器创建过滤器集合。但是它没有做任何事情,没有错误,也没有改变。因此,要么我的集合为空,要么该命令调用不正确


我是AutoLisp新手,我缺少的是什么,它在过滤的项目上不能按预期工作?

您需要向选择集中添加一个过滤器。只需在不同的实体类型之间添加一个逗号,就会得到一个格式不正确的实体

在这里查看一些信息,以帮助您开始: