subst不'；t工作

Lee Mac · 发表于 2022-7-6 09:01:58

“subst”起作用；错误在您的编码中。

张贴您遇到问题的代码部分。

KarolR · 发表于 2022-7-6 09:07:19

（定义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）
)
)