（求助）请问一下各位大神，如何实现等分偏移

999999

求助路过的各位大神，能否帮小弟实现一下等分偏移，谢谢大家啦
1.选择需要等分的线(选择线的点为P1)
2.选择偏移的另一点P2
3.输入偏移的分数：

http://bbs.mjtd.com/forum.php?mo ... 97&page=1#pid931392

参考 xj6019大神帮忙提供的源码，求各位大神能否帮忙改一下

• (defun C:OM (/ en p1)
•         (setq
•                 en(entsel "\n选择需要偏移的线(点1):")
•                 p2 (getpoint "\n选择需要生成点线的点（点2）:")               
•         )
•         (vl-cmdf "offset" "T"  en  "non" (mapcar '(lambda (x y) (* (+ x y) 0.5)) p2 (osnap (cadr en) "_nea")) "")
•         (vla-put-Layer (vlax-ename->vla-object (entlast)) (getvar "CLAYER"));置为当前层     
•         (princ)
• )
  

ssyfeng

看看是不是这个效果：

999999

ssyfeng 发表于 2023-4-18 16:46
看看是不是这个效果：

谢谢大神，就是这个效果，看一下您能不能帮忙改下P2的线不生成呢，谢谢您啦

999999

999999 发表于 2023-4-18 17:37
谢谢大神，就是这个效果，看一下您能不能帮忙改下P2的线不生成呢，谢谢您啦

我这边漏表述了，就是您看方不方便把等分数量帮忙加一个记忆功能，谢谢您啦

ssyfeng

修改了一下：

999999

ssyfeng 发表于 2023-4-19 08:15
修改了一下：

谢谢大神啦，太棒了这个,膜拜膜拜

zmzk

有些实用的地方