修改GC200块的颜色出现问题

yjpyjp · 发表于 2025-1-14 16:01:23

本帖最后由 yjpyjp 于 2025-1-14 16:03 编辑

(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的变量不能被正确识别，这个该怎么写

自贡黄明儒 · 发表于 2025-1-14 16:12:32

随层、随块的对象，没有组码62

yjpyjp · 发表于 2025-1-14 16:15:04

自贡黄明儒发表于 2025-1-14 16:12
随层、随块的对象，没有组码62

((-1 . <图元名: 16e4a1dca20>) (0 . "ATTRIB") (330 . <图元名: 16e4a1dca10>) (5 . "6AA42") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "GCD1") (62 . 6) (6 . "ByBlock") (100 . "AcDbText") (10 507523.0 3.24423e+06 63.92) (40 . 1.2) (1 . "63.92") (50 . 0.0) (41 . 0.8) (51 . 0.0) (7 . "细等线体") (71 . 0) (72 . 0) (11 507523.0 3.24423e+06 63.92) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (280 . 0) (2 . "height") (70 . 0) (73 . 0) (74 . 2) (280 . 0))

有的，它是把colour1这个变量识别成了字符，这里我不晓得怎么写被替换成了（62 . colour1）

飞雪神光 · 发表于 2025-1-14 16:32:35

yjpyjp 发表于 2025-1-14 16:15
((-1 . ) (0 . "ATTRIB") (330 . ) (5 . "6AA42") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . ...

(cons 62 colour1)

yjpyjp · 发表于 2025-1-14 16:48:31

飞雪神光发表于 2025-1-14 16:32

感谢感谢~~~

寒潮大冬瓜 · 发表于 6 天前

本帖最后由寒潮大冬瓜于 2025-1-16 00:31 编辑

cass里原装的属性块里有两个图层，修改颜色稍微复杂点(当然高手写了代码也能处理，本人菜鸟搞不来)，我分享的方法是创建GC200只在一个图层里！

创建空心的GC200高程点：cass通用升级版CGC圆圈高程(标高Gu_xl)点CFC三角形高程(标高77077)点创建
http://bbs.mjtd.com/forum.php?mo ... 1534&fromuid=418631
(出处: 明经CAD社区)
替换高程点后自动更新为原高程点的高程值：
ljxkm于2019-9-6和波总指导代码升级而成直线曲线等顶点上插入标高属性块并同时更新...
http://bbs.mjtd.com/forum.php?mo ... 1225&fromuid=418631
(出处: 明经CAD社区)

账号		自动登录	找回密码
密码			注册

[提问] 修改GC200块的颜色出现问题

本帖子中包含更多资源