两个尚未解决的问题

harrison-matt · 发表于 2022-7-6 09:32:51

全部的

我想知道如何将撇号函数添加到我的程序中。
以及如何让ssget在命令启动之前识别选定的对象。

有什么想法吗？

谨致问候，

马特

Ahankhah · 发表于 2022-7-6 09:40:33

(setvar 'Pickfirst 1)(ssget "_I" )

Ahankhah · 发表于 2022-7-6 09:49:46

你能更清楚地解释一下你的目标吗？

alanjt · 发表于 2022-7-6 09:58:33

撇号是指透明地运行命令。
如果是这样，任何LISP例程都可以在没有任何命令调用的情况下透明地执行。

如。

copy

(defun c:L0 (/ ss i)
 (if (setq ss (ssget "_:L"))
   (repeat (setq i (sslength ss))
     (entmod (list '(8 . "0") (cons -1 (ssname ss (setq i (1- i))))))
   )
 )
 (princ)
)

如果您注意到，这可以通过随时键入“L0”透明地执行，如果在执行例程之前选择了对象，则它将处理所述对象，从而抑制选择对象的提示。

Lee Mac · 发表于 2022-7-6 10:00:40

ssget将检测现有选择，无论是否使用隐含的“I”模式字符串。

至于撇号，我不确定您指的是将表达式标记为文字还是在命令中透明地运行函数。如果是前者，请阅读以下内容：
http://www.cadtutor.net/forum/showpost.php?p=258390&postcount=20

李