;设置指定文本颜色
;1指定要查找的文本
;2指定查找范围
;3设定查找到的文本颜色
(defun configcol()
(setq x
(cdr
(assoc 1
(entget
(car (nentsel "\n请指定单个文字对象"))
)
)
)
)
(princ "\n请选择要匹配的文字对象")
(setq s
(ssget
(list
'(0 . "text")
(cons '1 x)
)
)
)
(if (/= s nil)
(progn
(setq i(getint "请输入颜色编号:1 红、2 黄、3 绿、4 青、5 蓝、6 洋红、7 白/黑"))
(command "change" s "" "p" "c" i "")
)
)
)
autolisp设置cad指定文本颜色
发表评论
热门文章
-
OneNice简洁大方且开源免费的WordPress主题 17113 阅读
-
Bootstrap4显示和隐藏元素 5076 阅读
-
mysql批量去除重复记录 4165 阅读
-
OneNice Pro简洁且强大的WORDPRESS主题 4130 阅读
-
-
loadjs - javascript动态载入css和js文件 2092 阅读
-
BT宝塔中安装nodejs 2026 阅读
-
github无法加载或不显示图片问题 1910 阅读