明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1798|回复: 3

生成256个刷颜色命令

[复制链接]
发表于 2017-8-16 15:33 | 显示全部楼层 |阅读模式
本帖最后由 jpg102329 于 2017-8-21 08:10 编辑

  1. [tryhi]大海<tryhi@sina.cn> 16:25:10
  2. 我还以为需要(vlax-get-property (vlax-create-object "WScript.Network") 'ComputerName)
  3. [yxp]小蜜蜂(9034598) 16:21:18
  4. (getenv "ComputerName");字符串-计算机名
  5. ;9:44 2017/7/25
  6. [tryhi]大海<tryhi@sina.cn> 9:39:27
  7. ;;生成256个刷颜色命令
  8. (defun Birth-colour256 (/ _setys a i msg)
  9. (defun _setys (msg cloer)(prompt msg)(try-set-dxf (ssget)  62  cloer)(prin1))
  10. (setq i -1)
  11. (repeat 256
  12. (setq i(1+ i)
  13. a(if (= i 0)256 i)
  14. msg(if(< i 8)(nth i '("\n刷随层""\n刷红色""\n刷黄色""\n刷绿色""\n刷青色""\n刷蓝色""\n刷紫色""\n刷白色""\n刷灰色"))"")
  15. )
  16. (eval(list 'defun (read(strcat "c:ys"(itoa i)))nil (list _setys msg a)));;;划重点;;;划重点;;;划重点;;;划重点;;;划重点;;;划重点;;;划重点;;;划重点
  17. )
  18. (princ)
  19. )
  20. (Birth-colour256)
  21. ;刷颜色
  22. (defun c:ys (/ ss)
  23. (setq *ys-c(uint 0 "0 1 2 3 4 5 6" "输入颜色[随层(0)/红色(1)/黄色(2)/绿色(3)/青色(4)/蓝色(5)/紫色(6)]"*ys-c)
  24. ss(ssget))
  25. (if(= *ys-c 0)(setq *ys-c 256))
  26. (try-set-dxf ss  62  *ys-c)
  27. )



<以上内容出自《大海语录》不代表本人观点>
欢迎加入通信管线设计技术交流群655280537,通信管线规划设计技术、资源交流群,CAD底图交换、付费教程免费获取、交流经验、互相学习,共同进步!



发表于 2017-8-27 15:50 | 显示全部楼层
谢谢楼主,支持下
发表于 2017-9-23 17:57 | 显示全部楼层
真的好不错啊
发表于 2018-1-19 20:35 | 显示全部楼层
try-set-dxf ??
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-28 22:45 , Processed in 0.285548 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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