如何使用lis设置cannoscale

The Buzzard · 发表于 2022-7-6 13:30:24

我在一个新图形的模型空间中，图形编辑器中没有任何内容。我创建了新的比例。它不会删除。没有视口。

alanjt · 发表于 2022-7-6 13:31:39

真奇怪。我刚刚创建了一个自定义比例，关闭，将其设置为当前，然后将另一个比例设置为当前，可以很好地删除它。
隐马尔可夫模型

chulse · 发表于 2022-7-6 13:35:25

这是直接在命令行上还是嵌入到lisp中？
它在命令行上对我来说很好，但在lisp中不行。。。
Lisp程序还会是别的原因吗？

Lee Mac · 发表于 2022-7-6 13:39:42

在命令行上工作的任何东西都可以在LISP中工作，因此必须假设是其他原因导致LISP失败。

李

chulse · 发表于 2022-7-6 13:40:41

这就是我在上下文中的理解。有什么想法吗？

copy

 
(defun c:svp ( / ss)
(progn
(command "_mspace"_)
(setq ss (ssget))
(command "_ucs" "_object" ss)
(command "_plan" "_current")
(command "_zoom" "c" "0,0" "180")
(setvar "cannoscale" "1" = 25'")
(command "regenall")
)
);;defun

Lee Mac · 发表于 2022-7-6 13:43:50

试试这个Chulse：

copy


(defun c:svp  (/ ss)
 (if (zerop (getvar "TILEMODE"))
   (command "_.mspace"))
 (if (setq ss (ssget))
   (progn
     (command "_.ucs" "_object" ss)
     (command "_.plan" "_current")
     (command "_.zoom" "c" "0,0" "180")
     (setvar "CANNOSCALE" "1" = 25'")
     (command "_.regenall")))
 (princ))