明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

帖子
查看: 871|回复: 8

图元颜色修改代码

[复制链接]
发表于 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修改颜色为随层不能用。今天改了一下。<<----
---->>论坛里边有修改块颜色的插件了,我自己研究了一顿,修改完颜色就不是块了<<----

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复

使用道具 举报

发表于 2025-5-24 06:15:37 | 显示全部楼层
本帖最后由 wwwswallow 于 2025-5-24 06:59 编辑

增加图块对象、标注对象等的支持,功能更有意义。
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2025-5-23 17:58:16 | 显示全部楼层
&#10148;
&#9888;
&#9989;
这几个是&#10148; 、&#9888;、&#9989;
不知道因为啥不给显示

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-5-27 09:36:41 | 显示全部楼层
wwwswallow 发表于 2025-5-24 06:15
增加图块对象、标注对象等的支持,功能更有意义。

嗯嗯对。抽时间改进一下!
回复 支持 反对

使用道具 举报

发表于 2025-5-28 08:04:10 | 显示全部楼层
试试,学习中!!!!!!
回复 支持 反对

使用道具 举报

发表于 2025-5-31 11:31:45 | 显示全部楼层

前两天才刚知道激情都能换币,多灌点水,币就有了,
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-6-2 16:15:16 | 显示全部楼层
332398174 发表于 2025-5-31 11:31
前两天才刚知道激情都能换币,多灌点水,币就有了,

哦,之前都是花钱买币了!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-7-13 03:45 , Processed in 0.191129 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表