增强属性块GCD200在属性管理器找不到

yjpyjp

yanshengjiang 发表于 2025-1-13 16:26
一段基础代码

[/code]

(defun c:qq(/ ss i s data)
  (setq ss(ssget '((2 . "GC200"))))
  (setq i -1)
        (prompt"请输入数字[1-8]修改为相应颜色(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这个位置出现了问题，它被当成了符号，不是变量，请教一下这个需要怎么修改

yanshengjiang

yjpyjp 发表于 2025-1-14 11:09
(defun c:qq(/ ss i s data)
  (setq ss(ssget '((2 . "GC200"))))
  (setq i -1)

如果你非要这也改颜色 那就是(cons 62  颜色）   虽然不报错但估计改不了颜色

yanshengjiang

yjpyjp 发表于 2025-1-14 11:09
(defun c:qq(/ ss i s data)
  (setq ss(ssget '((2 . "GC200"))))
  (setq i -1)

任何新组建的点对都只能是cons  而不能是 '(62 . colour1) 带引号这种。