生成256个刷颜色命令
本帖最后由 jpg102329 于 2017-8-21 08:10 编辑大海<tryhi@sina.cn> 16:25:10
我还以为需要(vlax-get-property (vlax-create-object "WScript.Network") 'ComputerName)
小蜜蜂(9034598) 16:21:18
(getenv "ComputerName");字符串-计算机名
;9:44 2017/7/25
大海<tryhi@sina.cn> 9:39:27
;;生成256个刷颜色命令
(defun Birth-colour256 (/ _setys a i msg)
(defun _setys (msg cloer)(prompt msg)(try-set-dxf (ssget)62cloer)(prin1))
(setq i -1)
(repeat 256
(setq i(1+ i)
a(if (= i 0)256 i)
msg(if(< i 8)(nth i '("\n刷随层""\n刷红色""\n刷黄色""\n刷绿色""\n刷青色""\n刷蓝色""\n刷紫色""\n刷白色""\n刷灰色"))"")
)
(eval(list 'defun (read(strcat "c:ys"(itoa i)))nil (list _setys msg a)));;;划重点;;;划重点;;;划重点;;;划重点;;;划重点;;;划重点;;;划重点;;;划重点
)
(princ)
)
(Birth-colour256)
;刷颜色
(defun c:ys (/ ss)
(setq *ys-c(uint 0 "0 1 2 3 4 5 6" "输入颜色[随层(0)/红色(1)/黄色(2)/绿色(3)/青色(4)/蓝色(5)/紫色(6)]"*ys-c)
ss(ssget))
(if(= *ys-c 0)(setq *ys-c 256))
(try-set-dxf ss62*ys-c)
)
<以上内容出自《大海语录》不代表本人观点>
欢迎加入通信管线设计技术交流群655280537，通信管线规划设计技术、资源交流群，CAD底图交换、付费教程免费获取、交流经验、互相学习，共同进步！
谢谢楼主，支持下 真的好不错啊
try-set-dxf ??
页:
[1]