递增复制和阵列复制

hubeiwdlue

      本人小白一枚，最近在学习lisp过程中，经过波总的亲手指导，写了递增复制，阵列复制功能的插件。这类插件，论坛里面很多，放上来也是凑数的。

之前也试着写过，纯文本的递增复制相对容易些，但是如果带有其它图元，就不太清楚怎么剥离开了。
     波总半夜不休息，为小白的学习操心，写了一段示范代码，我在这段代码的基础上做了扩充，完成了递增复制和阵列复制功能，该功能支持文字和大小写字母的递增。递增复制的命令是c1，递增阵列的命令是c2。

;;2024年1月24日更新
阵列命令c2对字母支持从a - z - aa - zz ，A - Z - AA - ZZ。
复制命令c1由于只对最末字母作用，所以不支持到两位。
这里借用了mac lee 的向上舍入函数，在此表示感谢。

    鸣谢：对波总的一直以来不厌其烦的指导表示深深的感谢。

hubeiwdlue

wolaixuexi 发表于 2024-1-23 14:24
不错，字母和数字都能递增，不过字母到Z以后不能继续循环了，

字母是转为ASCII递增的，到了z，就认为不是字母了，按道理它应该返回原字符串。但是阵列那个代码，它是用最先选中的图元来判断ASCII码是否在字母的范围内，所以判断(or(<= 65 a 90) (<= 97 a 122))始终是t，后面就会出现乱七八招的字符。

huaxiamengqing

使用可视化编程Grasshopper来阵列数字



感兴趣可以查看这个帖子直接下载使用，任何组合功能，数十万函数可以免费直接拖用。
http://bbs.mjtd.com/thread-189349-1-1.html

sandyvs

hubeiwdlue 发表于 2024-1-23 17:21
是的，不断的删除，复制，稍微多一点就会卡。如果很多的话，就不如先阵列好，然后选中排序，修改文本。

跟zoom有关系，如果不缩放，会好很多，不知道有没有大佬知道怎么解决不

刚开始

不错，好东东，感谢无私分享,

wolaixuexi

不错，字母和数字都能递增，不过字母到Z以后不能继续循环了，

sandyvs

最近也改了一个，就是超过10*10会卡

hubeiwdlue

sandyvs 发表于 2024-1-23 17:09
最近也改了一个，就是超过10*10会卡

是的，不断的删除，复制，稍微多一点就会卡。如果很多的话，就不如先阵列好，然后选中排序，修改文本。

宁静港湾

波总是好人，经常教人都写全码

ghgh0130

向楼主学习。。。。