验证属性值？？
这是挂断我正在做的例行工作。例程正在插入属性块（1 att）。
下面是它的作用：
输入X比例因子，指定对角点，或[角点（C）/XYZ（XYZ）]：输入Y
比例因子：
指定旋转角度：
输入属性值
ELEV:81.41
验证属性值
标高：；错误：错误的参数类型：consp nil
标高：
我以前从未见过这种验证。
在这一点上，帮助是没有帮助的。
如何关闭“验证”？
感谢
杰夫
我找到了att定义中的验证。
我重新定义了块，它仍然挂着。
它在插入积木后挂起。
它不会增加计数器（setq CNT（+1 CNT））
它实际上正确地插入了块，但不会在SS中的下一个块上移动。
(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 "")
(command "insert" "P-SPOT_30" PT "" "" "" EL) <- IT HANGS HERE:shock:
(setq CNT (+ 1 CNT))
) ;while
(setvar "attdia" AD)
(setvar "osmode" OS)
) Tharwat-谢谢！
但是-它已加载，但无法运行。“论点太少”。
你的Lisp程序技能远比我先进，所以我无法诊断出你的日常生活中发生了什么。
我在1992年学习了这门语言，但确实没有跟上它的新进展。 你能上传你的属性块的样本图吗？
您选择了哪些对象来获取其DXF 11？短信？ 我得到了它。它正在工作。谢谢 有一个打字错误，你一定已经尝试了未修改的代码的第一个职位，无论如何我很乐意帮助。
祝你好运 请阅读代码发布指南，并为您的代码使用代码标签。
页:
[1]