明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1011|回复: 5

[源码] 自动随机改色lsp

[复制链接]
发表于 2019-3-18 11:31 | 显示全部楼层 |阅读模式
本人要画工具零件图,块基本是byblock,想弄个自动随机改色工具(要避开1-8,250-255这些颜色)
如果内容比较多时,不同的颜色检查图纸时可以更直观,谢谢

找到论坛的资料,但不会借鉴使用,求高手解答一下
http://bbs.mjtd.com/forum.php?mo ... hlight=%CB%E6%BB%FA

"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2019-3-18 23:56 | 显示全部楼层

bbColor

本帖最后由 1291500406 于 2019-3-19 00:40 编辑

bbColor by bb

本帖子中包含更多资源

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

x

评分

参与人数 2明经币 +2 收起 理由
alexmai + 1 很给力!
panliang9 + 1 赞一个!

查看全部评分

回复 支持 3 反对 0

使用道具 举报

发表于 2019-3-19 14:20 | 显示全部楼层

  1. ;; tt(框选图块随机分配颜色)
  2. (defun c:tt ()
  3.   (if (setq ss (ssget '((0 . "insert"))))
  4.     (setq slst (xyp-Ss2List ss)
  5.           clst (xyp-Get-Randoms 9 249 (length slst))
  6.           aa   (mapcar '(lambda (x y) (xyp-SubUpd x 62 y)) slst clst)
  7.     )
  8.   )
  9.   (princ)
  10. )

本帖子中包含更多资源

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

x
回复 支持 1 反对 0

使用道具 举报

发表于 2019-3-19 08:35 | 显示全部楼层

很好的工具,如果能一次选定一堆块,然后自动为每个块随机分配颜色,而且可以一直回车一直改色,满意时再停止就好了。
发表于 2019-3-19 11:04 | 显示全部楼层
谢谢! 1291500406 分享程序!!!!!
发表于 2019-7-4 14:35 | 显示全部楼层
感谢楼上分享!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 18:08 , Processed in 0.193921 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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