Texteval系统可验证

samifox · 发表于 2022-7-5 19:44:11

你好

Autolisp用户指南说：

该系统可验证如下：

通过执行

(command "circle" "5,5" pause "line" "5,5" "7,5" "")

将TEXTEVAL设置为0或1时，Autocad将暂停输入。

知道为什么吗？

谢谢

Lee Mac · 发表于 2022-7-5 20:05:38

根据帖子中的信息，TEXTEVAL系统变量似乎只影响TEXT或-TEXT命令的行为。

samifox · 发表于 2022-7-5 20:19:13

我玩了一会儿。
你说得对，李。它只影响text命令。如果TEXTEVAL设置为0，文字“PAUSE”将打印在text对象上。但它被阻止了。

另一件我无法解决的事情，他们会这样说：

但如果我真的需要窗口选择对象呢？假设我想将几个对象从屏幕点a移到屏幕点b，我该如何编码？

(command "move" pause pause "")

行不通：否：

tombu · 发表于 2022-7-5 20:29:48

(command "move")(while(= "LINE" (getvar 'CMDNAMES)) pause)

Lee Mac · 发表于 2022-7-5 20:35:38

我建议：

(if (setq s (ssget "_:L"))
   (command "_.move" s "" "\" "\")
)

BIGAL · 发表于 2022-7-5 20:45:46

也可以移动P“”，但必须预先选择对象。如果是简单的lisp，则可以。

[编程交流] Texteval系统可验证