图元颜色修改代码

zyx1029

• ;;;水一个贴,整个简单的代码
• ;;;图元颜色修改代码
• (defun C:1 (/ *error* ss color old_cmdecho old_osmode)
•     (defun *error* (msg)
•         (if old_cmdecho (setvar "CMDECHO" old_cmdecho))
•         (if old_osmode (setvar "OSMODE" old_osmode))
•         (princ "\n*取消* 操作已中止。")
•         (princ)
•     )
•     (setq old_cmdecho (getvar "CMDECHO"))
•     (setq old_osmode (getvar "OSMODE"))
•     (setvar "CMDECHO" 0)
•     (setvar "OSMODE" 0)
•     (while (not ss)
•         (princ "\n➤ 选择要修改的对象: ")
•         (setq ss (ssget))
•         (if (not ss)
•             (princ "\n⚠ 错误: 未选择任何对象，请重新选择!")
•         )
•     )
•     (while (or (not (setq color (getint "\n➤ 输入颜色编号 (0-256): ")))
•                (< color 0)
•                (> color 256))
•         (princ "\n&#9888; 错误: 颜色值必须为0到256之间的整数!")
•     )
•     (command "_.CHPROP" ss "" "_C" color "")
•     (setvar "CMDECHO" old_cmdecho)
•     (setvar "OSMODE" old_osmode)
•     (princ "\n&#9989; 颜色修改成功完成!")
•     (princ)
• )
  

wwwswallow

增加图块对象、标注对象等的支持，功能更有意义。

zyx1029

&#10148;
&#9888;
&#9989;
这几个是&#10148; 、&#9888;、&#9989;
不知道因为啥不给显示

zyx1029

wwwswallow 发表于 2025-5-24 06:15
增加图块对象、标注对象等的支持，功能更有意义。

嗯嗯对。抽时间改进一下！

kugoo999

试试，学习中！！！！！！