yanshengjiang 发表于 2025-1-13 16:26
一段基础代码
(defun c:qq(/ ss i s data)
(setq ss(ssget '((2 . "GC200"))))
(setq i -1)
(prompt"请输入数字修改为相应颜色(1:红色 2:黄色 3:绿色 4:浅蓝色 5:深蓝色 6:粉红色 7:白色 8:灰色)")
(setq colour1 (getstring))
(setq colour1 (atoi colour1))
(repeat (sslength ss)
(setq s(Ssname ss (setq i(1+ i))))
(setq data(entget (entnext s) '("*")))
(setq data(subst '(62 . colour1) (assoc 62 data) data))
(entmod data)
(entupd s)
)
)
改了一下，想让它修改颜色，但是colour1这个位置出现了问题，它被当成了符号，不是变量，请教一下这个需要怎么修改 yjpyjp 发表于 2025-1-14 11:09
(defun c:qq(/ ss i s data)
(setq ss(ssget '((2 . "GC200"))))
(setq i -1)
如果你非要这也改颜色 那就是(cons 62颜色） 虽然不报错但估计改不了颜色:D- yjpyjp 发表于 2025-1-14 11:09
(defun c:qq(/ ss i s data)
(setq ss(ssget '((2 . "GC200"))))
(setq i -1)
任何新组建的点对都只能是cons而不能是 '(62 . colour1) 带引号这种。
页:
1
[2]