生成256个刷颜色命令

jpg102329

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. )
    

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

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

1028882406@qq.c

谢谢楼主，支持下

LIULISHENG

真的好不错啊

preone

try-set-dxf ??