至今没有解决的问题-碎数线如果自动取整？

mikewolf2k

对，如果一直发生，跟对方的领导提，让其规范制图，从源头上解决问题，而不是自己冒着风险和错误去给别人擦屁股。

海盗曹

跟楼主同行，7楼大神正解，一直在用，非常好用

casd

正交轴网好解决，斜交轴网麻烦点

依然小小鸟

casd 发表于 2023-3-1 15:17
正交轴网好解决，斜交轴网麻烦点

要是能解决就好了

依然小小鸟

海盗曹 发表于 2023-2-24 13:04
跟楼主同行，7楼大神正解，一直在用，非常好用

是吗 我还不会用 我研究下

llsheng_73

首先“碎数”是与模相应的，比如需要取整到10、100、1000、50等，碎数其实是与模数相应的余数；
其次是余数的处理问题，根据需要可能采取“截尾”、“进一”、“四舍五入”、“四舍六入5分单双”等进行处理；

1. (defun fixn(a n f / b c);;f=1,截尾;;f=2,进一;f=3,四舍五入;f=4,四舍六入单进双进不进
   
2.   (setq b(fix(/(rem a n)n 0.1))c(/ a n 1.))
   
3.   (cond((= f 1)(*(fix c)n))
   
4.        ((= f 2)(*(1+(fix c))n))
   
5.        ((= f 3)(*(fix(+ c 0.5))n))
   
6.        ((= f 4)(if(and(= b 5)(=(gcd(fix(/ a n 1.))2)1))
   
7.                   (*(1+(fix c))n)
   
8.                   (*(fix(+(fix c)(* b 0.1)))n)))
   
9.         ))

(defun fixn(a n f / b c);;f=1,截尾;;f=2,进一;f=3,四舍五入;f=4,四舍六入单进双进不进<br />   (setq b(fix(/(rem a n)n 0.1))c(/ a n 1.))<br />   (cond((= f 1)(*(fix c)n))<br />        ((= f 2)(*(1+(fix c))n))<br />        ((= f 3)(*(fix(+ c 0.5))n))<br />        ((= f 4)(if(and(= b 5)(=(gcd(fix(/ a n 1.))2)1))<br />                   (*(1+(fix c))n)<br />                   (*(fix(+(fix c)(* b 0.1)))n)))<br />         ))

有了“碎数”的处理方法后，可以先计算出线图元整取后的长度，对于应该增长的，只需要修改止点坐标就行，对于应该缩短的就麻烦些，因为无法确定最后一个子段长度是否大于“碎数”，所以应该先在取整长度位置增加节点，再去除该节点之后所有点
另外，如果是样条曲线或样条拟合的线，一般无法直接修改至目标长度，需要进行多次逼近
只有直线最简单，根据起点、长度、方向计算出终点后直接修改就行

依然小小鸟

llsheng_73 发表于 2023-10-25 10:58
首先“碎数”是与模相应的，比如需要取整到10、100、1000、50等，碎数其实是与模数相应的余数；
其次是余 ...

谢谢73哥  我不会编程看代码   欢迎大家讨论