324将N个图元移入屏幕点选的参照图层名然后修改后的图层中

寒潮大冬瓜

   在画图或者修改某图纸局部区域，突然觉得已经选中的图元需要单独列出来，此时来个左手剑(键)：324→回车→再点选一下刚才某个图元→于是显示出该图层名→在该图层名后面加个日期→回车→搞定！
324将N个图元移入屏幕点选的参照图层名然后修改后的图层中
图元到了新的图层里，既不影响旧图层的存在，也不会引起图层冲突，成功把图元放进了图层坐与原图层名相近的图层里，便于自己查找方便进一步的关闭、冻结、锁定等全选→删除或进一步修改!
sp20230905可用于图元随机颜色在255内的随数生成自定义函数画图的时候可以让界面都是彩色的文字或线条.
lsp20230905可用于图元随机颜色在255内的随机数生成自定义函数画图的时候可以让界面都.lsp
1.18 KB, 下载次数: 14
求助，给多段线节点编号并输出对应的坐标表
http://bbs.mjtd.com/forum.php?mo ... 0572&fromuid=418631
(出处: 明经CAD社区)
下载代码后打开加上以下2个自定义函数
;可用于指定变化颜色的色号在255内且尾数不是6789(因为这几个颜色实际上在屏幕里是看不见至少是我看不见)随时间变化生成的自定义函数
(defun lsp20230905();自定义函数开始
        (setq SJ1(menucmd "M=$(edtime,$(getvar,date),SS)"))
        (setq SJ11(atoi SJ1));(atoi x)将字符串转换成整数
        (setq SJ12(* SJ11 0.1));让个位数成为小数点后面的数值
        (setq SJ13(fix SJ12));去除小数点后面得出0~5的数值(提取ss的十位数)
        (setq SJ2(menucmd "M=$(edtime,$(getvar,date),SS)"))
        (setq SJ21(atoi SJ2));(atoi x)将字符串转换成整数
        (setq SJ22(rem SJ21 10));余数相当于提取ss的个位数
        (setq SJ23(* SJ22 10));为实现十位数做准备
        (setq SJ3(+ SJ21 1));防止百位与十位数一致利用ss的十位数作为百位数的基础
        (setq SJ31(* SJ3 0.3));为实现百位数做准备
        (setq SJ32(fix SJ31));去除小数点后
        (setq SJ33(* SJ32 10));为实现百位数做准备
        (setq SJSJ(+ SJ33 SJ23 SJ13));
        (if(>= SJSJ 255)(setq SJSJ1 253)(if(= SJSJ 0)(setq SJSJ1 6)(setq SJSJ1 SJSJ)))
        ;如果SJSJ大于255(255是纯白色还是会出现类同不能立即出现变色效果故此令其等于253，如果生成0也是白色故此令其等于6)
);自定义函数结束
(Defun MKLA(a b);新图层创建自定义函数开始
        (If(=(Tblsearch "layer" a) nil)
                (Command "layer" "m" a "c" b a "")
                (Command "layer" "t" a "s" a "c" b a "")
        )
);自定义函数结束

bai2000

lsp20230905，在那下？？？？

寒潮大冬瓜

bai2000 发表于 2025-3-28 11:14
lsp20230905，在那下？？？？

;可用于指定变化颜色的色号在255内且尾数不是6789(因为这几个颜色实际上在屏幕里是看不见至少是我看不见)随时间变化生成的自定义函数
(defun lsp20230905();自定义函数开始
        (setq SJ1(menucmd "M=$(edtime,$(getvar,date),SS)"))
        (setq SJ11(atoi SJ1));(atoi x)将字符串转换成整数
        (setq SJ12(* SJ11 0.1));让个位数成为小数点后面的数值
        (setq SJ13(fix SJ12));去除小数点后面得出0~5的数值(提取ss的十位数)
        (setq SJ2(menucmd "M=$(edtime,$(getvar,date),SS)"))
        (setq SJ21(atoi SJ2));(atoi x)将字符串转换成整数
        (setq SJ22(rem SJ21 10));余数相当于提取ss的个位数
        (setq SJ23(* SJ22 10));为实现十位数做准备
        (setq SJ3(+ SJ21 1));防止百位与十位数一致利用ss的十位数作为百位数的基础
        (setq SJ31(* SJ3 0.3));为实现百位数做准备
        (setq SJ32(fix SJ31));去除小数点后
        (setq SJ33(* SJ32 10));为实现百位数做准备
        (setq SJSJ(+ SJ33 SJ23 SJ13));
        (if(>= SJSJ 255)(setq SJSJ1 253)(if(= SJSJ 0)(setq SJSJ1 6)(setq SJSJ1 SJSJ)))
        ;如果SJSJ大于255(255是纯白色还是会出现类同不能立即出现变色效果故此令其等于253，如果生成0也是白色故此令其等于6)
);自定义函数结束