求源码：计算两条线中间的距离，然后均分

masterlong

记得昨天还有两三千的明经币啊
现在怎么只有500了

酷酷提

masterlong 发表于 2022-4-28 19:04
楼主显然不懂 lisp 啦
他的积分当然是充值来的
看在如此支持网站建设

虽然用了几年的cad，但是一直都是用的最简单的功能，前段时间才发现cad里面居然有这么多插件可以利用，能节省好多重复和不必要的操作，后来误打误撞进到明经才发现更广阔的天空，然后就开始搜寻能帮助工作的插件，发现有些可以用，有些有问题，就发帖问问大家能不能实现，现在也在常识根据将一些插件通过自己浅显的修改能更加适合自己，但是还没有能力从0开始到完成。。。

酷酷提

xyp1964 发表于 2022-4-28 23:42

老师，这个功能在工具箱里面叫什么名字啊。。。我搜均分，均布，阵列，都搜不到呢。。。

rocking2008

方法：
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，结束

vectra

1. (defun devide (d n / a b r)
   
2.   (setq        a (/ (float d) (float n))
   
3.         b (fix (+ 0.5 a))
   
4.   )
   
5.   (repeat (1- n)
   
6.     (setq r (cons b r))
   
7.   )
   
8.   (setq r (cons (- d (* b (1- n))) r))
   
9.   (reverse r)
   
10. )

(defun devide (d n / a b r)<br />   (setq        a (/ (float d) (float n))<br />         b (fix (+ 0.5 a))<br />   )<br />   (repeat (1- n)<br />     (setq r (cons b r))<br />   )<br />   (setq r (cons (- d (* b (1- n))) r))<br />   (reverse r)<br /> )

_$ (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)

这个对吗？

酷酷提

感谢：xyp1964 老师的代码

备注：2007不可以用，试验2018版可用，大家选择性下载

酷酷提

世井，你觉得我是为了那1个币的收费吗，只是希望大家不要白嫖老师的成果而已

天天问

酷酷提 发表于 2022-5-7 11:01
感谢：xyp1964 老师的代码

朋友，这个代码里面的子函数，附件里都没有啊，能不能补齐了发我一个。花了币却用不了现在。

戏男

功能好强大

酷酷提

天天问 发表于 2022-5-8 21:46
朋友，这个代码里面的子函数，附件里都没有啊，能不能补齐了发我一个。花了币却用不了现在。

你好，这个我是2018版本可以用，如果你用2007，或者2022就可能用不起的，你试一下2018呢