记得昨天还有两三千的明经币啊
现在怎么只有500了
masterlong 发表于 2022-4-28 19:04
楼主显然不懂 lisp 啦
他的积分当然是充值来的
看在如此支持网站建设
虽然用了几年的cad，但是一直都是用的最简单的功能，前段时间才发现cad里面居然有这么多插件可以利用，能节省好多重复和不必要的操作，后来误打误撞进到明经才发现更广阔的天空，然后就开始搜寻能帮助工作的插件，发现有些可以用，有些有问题，就发帖问问大家能不能实现，现在也在常识根据将一些插件通过自己浅显的修改能更加适合自己，但是还没有能力从0开始到完成。。。
xyp1964 发表于 2022-4-28 23:42
老师，这个功能在工具箱里面叫什么名字啊。。。我搜均分，均布，阵列，都搜不到呢。。。
方法：
1、获取原有2条线之间距离，例如：89
2、用89除以数量，例如要分成4份，则：89/4=22.25
3、用22.25，四舍五入，得到22，则分为3个22，和1个23
4、复制其中一条线，至1个22，复制至2个22，复制至3个22，结束
(defun devide (d n / a b r)
(setq a (/ (float d) (float n))
b (fix (+ 0.5 a))
)
(repeat (1- n)
(setq r (cons b r))
)
(setq r (cons (- d (* b (1- n))) r))
(reverse r)
)
_$ (devide 89 2)
(45 44)
_$ (devide 89 3)
(30 30 29)
_$ (devide 89 4)
(22 22 22 23)
_$ (devide 89 5)
(18 18 18 18 17)
这个对吗？
本帖最后由 酷酷提 于 2022-5-22 11:57 编辑
感谢：xyp1964 老师的代码
备注：2007不可以用，试验2018版可用，大家选择性下载
世井，你觉得我是为了那1个币的收费吗，只是希望大家不要白嫖老师的成果而已
酷酷提 发表于 2022-5-7 11:01
感谢：xyp1964 老师的代码
朋友，这个代码里面的子函数，附件里都没有啊，能不能补齐了发我一个。花了币却用不了现在。
功能好强大
天天问 发表于 2022-5-8 21:46
朋友，这个代码里面的子函数，附件里都没有啊，能不能补齐了发我一个。花了币却用不了现在。
你好，这个我是2018版本可以用，如果你用2007，或者2022就可能用不起的，你试一下2018呢