求一个改变标注颜色的LISP

ZHOUFEN564555 · 发表于 2019-3-31 22:14:58

最近工作中经常需要把一些重要的标注尺寸变为红色（标注原来是其他颜色），哪位好心的大师有空帮忙写一个LISP，谢谢！！！

alexmai · 发表于 2019-3-31 22:37:15

设置好一个标准尺寸，然后用ma 命令刷

1291500406 · 发表于 2019-3-31 23:56:00

本帖最后由 1291500406 于 2019-4-1 00:39 编辑

这三个均可以将标注改为红色，第四个是调用面板改为其他颜色
1
(defun c:bb()(command "chprop"  (ssget '((0 . "dimension")))  ""  "c" 1 "")(princ))
2
(defun c:bb()(command "change"  (ssget '((0 . "dimension"))) "" "p" "c" 1 "")(princ))
3
(defun C:bb(/ ss i obj)(vl-load-com)(setvar "cmdecho" 1)(setq ss (ssget '((0 . "dimension"))))(repeat (setq i (sslength  ss))
(vlax-put (vlax-ename->vla-object (ssname ss (setq i (1- i)))) 'color 1))(setvar "cmdecho" 0)(princ))
4
(defun c:bb()(command "change" (ssget '((0 . "dimension")))"" "p" "c" (acad_colordlg 1)  "")(princ))
你挑选一个

ZHOUFEN564555 · 发表于 2019-4-1 20:52:11

1291500406 发表于 2019-3-31 23:56
这三个均可以将标注改为红色，第四个是调用面板改为其他颜色
1
(defun c:bb()(command "chprop" (ssget ...

ZHOUFEN564555 · 发表于 2019-5-7 22:55:12

感谢你们的帮忙,谢谢!

ZHOUFEN564555 · 发表于 2019-5-7 22:56:16

alexmai 发表于 2019-3-31 22:37
设置好一个标准尺寸，然后用ma 命令刷

也是一个办法!

ZHOUFEN564555 · 发表于 2019-5-7 22:56:56

1291500406 发表于 2019-3-31 23:56
这三个均可以将标注改为红色，第四个是调用面板改为其他颜色
1
(defun c:bb()(command "chprop" (ssget ...

很谢谢你的热心回复,很有用!

逗亦斗霸 · 发表于 2025-5-2 12:54:45

1291500406 发表于 2019-3-31 23:56
这三个均可以将标注改为红色，第四个是调用面板改为其他颜色
1
(defun c:bb()(command "chprop" (ssget ...

真心给力，感谢分享~

amook147 · 发表于 2025-5-3 08:46:11

你这个简单的功能用豆包就可以帮你编写一段代码达到你想要的效果。。。
我遇到批量操作的东西都是用豆包帮忙下一段代码用完就删

复杂点的来论坛求助各位大神

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

[源码] 求一个改变标注颜色的LISP