999999 发表于 2023-4-18 12:28:09

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

本帖最后由 999999 于 2023-4-18 12:32 编辑



求助路过的各位大神，能否帮小弟实现一下等分偏移，谢谢大家啦
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 发表于 2023-4-18 12:28:10

看看是不是这个效果：




999999 发表于 2023-4-18 17:37:48

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

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

999999 发表于 2023-4-18 18:20:43

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

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

ssyfeng 发表于 2023-4-19 08:15:11

修改了一下：



999999 发表于 2023-4-19 10:00:55

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

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

zmzk 发表于 2023-11-30 21:54:00

有些实用的地方
页: [1]
查看完整版本: （求助）请问一下各位大神，如何实现等分偏移