zyx1029 发表于 2025-5-23 17:47:50

图元颜色修改代码

本帖最后由 zyx1029 于 2025-6-2 16:13 编辑


[*];;;水一个贴,整个简单的代码
[*];;;图元颜色修改代码
[*]

[*](defun C:1 (/ *error* ss color color_str 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 ->错误: 颜色值必须为0到256之间的整数!")
[*]    )
[*]    ;; 将颜色值转换为命令需要的参数
[*]    (cond
[*]      ((= color 256) (setq color_str "bylayer")); 256 -> 随层
[*]      ((= color 0) (setq color_str "byblock"))    ; 0   -> 随块
[*]      (T (setq color_str color))                  ; 其他为整数值
[*]    )
[*]    (command "_.CHPROP" ss "" "_C" color_str "")    ; 使用转换后的参数
[*]    (setvar "CMDECHO" old_cmdecho)
[*]    (setvar "OSMODE" old_osmode)
[*]    (princ "\n ->颜色修改成功完成!")
[*]    (princ)
[*])



---->>突然发现输入256修改颜色为随层不能用。今天改了一下。<<----
---->>论坛里边有修改块颜色的插件了，我自己研究了一顿，修改完颜色就不是块了<<----

wwwswallow 发表于 2025-5-24 06:15:37

本帖最后由 wwwswallow 于 2025-5-24 06:59 编辑

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

zyx1029 发表于 2025-5-23 17:58:16

➤
⚠
✅
这几个是➤ 、⚠、✅
不知道因为啥不给显示

zyx1029 发表于 2025-5-27 09:36:41

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

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

kugoo999 发表于 2025-5-28 08:04:10

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

332398174 发表于 2025-5-31 11:31:45


前两天才刚知道激情都能换币，多灌点水，币就有了，

zyx1029 发表于 2025-6-2 16:15:16

332398174 发表于 2025-5-31 11:31
前两天才刚知道激情都能换币，多灌点水，币就有了，

哦，之前都是花钱买币了！

zhwc125 发表于 前天 22:43

谢谢分享！！！！

下文没句号。 发表于 昨天 08:40

支持楼主，{:1_1:}
页: [1]
查看完整版本: 图元颜色修改代码