社区 › AutoLISP/Visual LISP 编程技术 › 至今没有解决的问题-碎数线如果自动取整？

mikewolf2k 发表于 2023-2-24 10:07:21

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

海盗曹 发表于 2023-2-24 13:04:21

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

casd 发表于 2023-3-1 15:17:09

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

依然小小鸟 发表于 2023-3-3 21:09:10

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

要是能解决就好了

依然小小鸟 发表于 2023-10-25 09:31:55

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

是吗 我还不会用 我研究下

llsheng_73 发表于 2023-10-25 10:58:36

本帖最后由 llsheng_73 于 2023-10-25 11:01 编辑

首先“碎数”是与模相应的，比如需要取整到10、100、1000、50等，碎数其实是与模数相应的余数；
其次是余数的处理问题，根据需要可能采取“截尾”、“进一”、“四舍五入”、“四舍六入5分单双”等进行处理；
(defun fixn(a n f / b c);;f=1,截尾;;f=2,进一;f=3,四舍五入;f=4,四舍六入单进双进不进
(setq b(fix(/(rem a n)n 0.1))c(/ a n 1.))
(cond((= f 1)(*(fix c)n))
       ((= f 2)(*(1+(fix c))n))
       ((= f 3)(*(fix(+ c 0.5))n))
       ((= f 4)(if(and(= b 5)(=(gcd(fix(/ a n 1.))2)1))
                  (*(1+(fix c))n)
                  (*(fix(+(fix c)(* b 0.1)))n)))
      ))
有了“碎数”的处理方法后，可以先计算出线图元整取后的长度，对于应该增长的，只需要修改止点坐标就行，对于应该缩短的就麻烦些，因为无法确定最后一个子段长度是否大于“碎数”，所以应该先在取整长度位置增加节点，再去除该节点之后所有点
另外，如果是样条曲线或样条拟合的线，一般无法直接修改至目标长度，需要进行多次逼近
只有直线最简单，根据起点、长度、方向计算出终点后直接修改就行

依然小小鸟 发表于 2023-10-25 12:47:07

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

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

查看完整版本: 至今没有解决的问题-碎数线如果自动取整？