张贴您遇到问题的代码部分。 (定义C:TR(/A B D NewValue OldValue Old New)
(setq A(ssget)B(sslength A))
(同时(>B 0)
(setq B(B-1))
(setq D(entget(ssname A B)))
(setq Old(assoc’42 D))
(setq OldValue(cdr(assoc’42 D)))
(setq新值(固定旧值))
(setq新(cons’42 50))
(subst新旧D)
(entmod D)
)
) 您没有输入替代数据。
尝试:
(entmod (subst New Old D)) 您也没有使用. 删除伪装并更正声明。 谢谢奥。 *叹气*
页:
1
[2]