验证属性值？？

Arizona · 发表于 2022-7-5 22:30:54

这是挂断我正在做的例行工作。
例程正在插入属性块（1 att）。

下面是它的作用：
输入X比例因子，指定对角点，或[角点（C）/XYZ（XYZ）]：输入Y
比例因子：
指定旋转角度：
输入属性值
ELEV:81.41
验证属性值
标高：；错误：错误的参数类型：consp nil
标高：

我以前从未见过这种验证。
在这一点上，帮助是没有帮助的。
如何关闭“验证”？

感谢
杰夫

Arizona · 发表于 2022-7-5 22:45:03

我找到了att定义中的验证。
我重新定义了块，它仍然挂着。

它在插入积木后挂起。
它不会增加计数器（setq CNT（+1 CNT））

它实际上正确地插入了块，但不会在SS中的下一个块上移动。

copy

(defun C:REPPTS ()
(setq AD (getvar "attdia"))
(setq OS (getvar "osmode")
(setvar "osmode" 0)
(setvar "cmdecho" 1)
(setvar "attdia" 0)
(setq SS1 (ssget))
(setq NUM (sslength SS1))
(setq CNT 0)
(while (< CNT NUM)
(setq ENT (ssname SS1 CNT))
(setq PT (cdr (assoc 10 (entget ENT))))
(setq PT (strcat (rtos (nth 0 PT)) "," (rtos (nth 1 PT)) "," (rtos (nth 2 PT))))
(setq EL (cadddr (assoc 11 (entget ENT))))
(setq EL (rtos EL 2 2))
(command "erase" ENT "")
[b](command "insert" "P-SPOT_30" PT "" "" "" EL) <- IT HANGS HERE:shock:[/b]
[b](setq CNT (+ 1 CNT))[/b]
) ;while
(setvar "attdia" AD)
(setvar "osmode" OS)
)