仅当S

lamensterms · 发表于 2022-7-5 23:11:28

嘿伙计们，

我有一个例程，我计划用它作为加速绘图的工具。它基本上复制了修订块，并将旧修订块放在另一个块中（因此不能由另一个“块属性更新”例程编辑）。

该例程依赖于图形中只有一个修订块实例，因此我想将该条件添加到代码中。

所以我的代码是：

copy

(defun c:REVUP ( / ss NBASE ruPt1 )
(setq ss (ssget "all" '((0 . "INSERT") (66 . 1) (2 . "*REVISIONS"))))
(if (= (sslength ss) 1)
(progn
(SETQ NBASE (POLAR '(0 0 0) (* PI (/ 90 180.0)) (* (GETVAR "DIMSCALE") 5)))
(COMMAND "COPY" SS "" "0,0,0" NBASE)
(setq ruPt1 '( 0 0 0))
(command "copybase" RUpt1 SS "" "pasteblock" RUpt1 "erase" "p" "")
)
)
(princ)
)

此代码似乎不起作用（至少在IF和PROGN部分）。即使存在多个修订块实例，该例程也将运行。

我只是想知道是否有人能告诉我哪里出了错。

非常感谢您的帮助。

BIGAL · 发表于 2022-7-5 23:21:41

尝试两件事

copy


use "X" instead of "all" 
(ssget "all" 
(setq obj (ssname ss 0 ))
COMMAND "COPY" obj

lamensterms · 发表于 2022-7-5 23:24:06

嗨，比格尔，

谢谢你的回复。我对SSGET“X”有点问题，似乎当旧的修订块放在块中时（使用“pasteblock”命令），SSGET“X”仍然能够检测到它们。当我切换到SSGET“all”时，我知道SSGET无法再检测块中的块。这是正确的吗？

BIGAL · 发表于 2022-7-5 23:31:14

再次阅读您的帖子，为什么不创建一个包含多个rev行的块，然后检查条目是否为空，如果不为空，则查找空白并将值放入下一行？有一种计算属性的方法，而不是使用标记，如果你说每行有3个条目，那么第4个值将是第2行第7行10等等，我在VBA中的某个地方有一个例子，这很容易，它只是从attrib（0）attrib（1）attrib（2）开始，直到用完为止。5行属性（14）

lamensterms · 发表于 2022-7-5 23:39:04

不幸的是，我们设置标题栏的方式不起作用。我们将修订块堆叠在标题栏上方。因此，如果只有一个修订，则只有一个修订块。希望这是有道理的。

我读了一些关于SSLENGTH轰炸的内容，如果选择集中没有任何内容。那么有没有可能做一些像。。。

如果ss为空或不存在，则执行此操作。
如果ss的SSLENGTH为1，则执行此操作。
如果ss的SSLENGTH大于1，则执行此操作。

对不起，我无法输入代码，我在手机上。

pBe · 发表于 2022-7-5 23:46:41

如果超过1个

检查最后一个条目数字/字母的属性值
或
检查块相对于标题栏的“位置”，以确定最新和最大

如果正确使用，Sslength不会爆炸

条件演示

copy

(defun c:demo ( / number)
           (setq number (getint "\nEnter Number: "))
         (cond
          ((null number)(princ "\nNo value for number"))
        ((minusp number)(princ "\nNegative number?, Why.. oh why..?"))
        ((= number 1)(princ "\nThere could be only one"))
        ( T (princ "\nNumber is more than 1, I'm doing this..")))
 (princ)
 )