社区 › AutoCAD工具插件 › 批量交点插入块（支持选块样板，多段线、曲线、直线）

亮少66 发表于 2015-12-4 10:24:32

非常感谢楼主的无私奉献~~~~！

ㄘ丶转裑ㄧ灬 发表于 2015-12-25 13:27:04

hehoubin 发表于 2012-11-18 00:21 static/image/common/back.gif
能放子程序SSINTERS的源码吗

(defun ssinters (ss / pts en1 en2)
(while (> (sslength ss) 1)
    (setq en1 (ssname ss 0))
    (ssdel en1 ss)
    (setq n (sslength ss))
    (repeat n
      (setq en2 (ssname ss (setq n (1- n))))
      (setq pts (append pts (Curveinters en1 en2)))
      )
    )
pts
)
    (defun Curveinters (en1 en2 / pl pts)
(setq pl(vlax-invoke (vlax-ename->vla-object en2) 'IntersectWith (vlax-ename->vla-object en1) acExtendNone))
(while pl
    (setq pts (append pts (list (list (car pl) (cadr pl) (caddr pl))))
   pl (cdr (cdr (cdr pl)))
   )
    )
pts
)

hehoubin 发表于 2016-3-12 13:16:37

ㄘ丶转裑ㄧ灬 发表于 2015-12-25 13:27 static/image/common/back.gif


谢谢！！！！！！！！

hit_dh 发表于 2016-6-15 09:31:02

虽然程序有待完善，但基本能满足大多数用户需求，谢谢楼主无私分享。

侑嚸俊 发表于 2016-7-14 11:04:42

本帖最后由 侑嚸俊 于 2016-7-14 11:15 编辑

能分享一下源码吗，大神谢谢，要是不可以，您可以告诉我用哪个函数，我在写一个求多条直线交点的程序，，谢谢 qing412808！126.com

lijiayin110 发表于 2016-10-18 15:18:23

先谢楼主分享~

yulun99 发表于 2017-8-12 11:44:24

这个不错，谢谢分享。

denghui002006 发表于 2017-8-18 10:51:40

厉害了 我的楼主
快捷键是kx

迷失1786 发表于 2017-8-24 14:55:30

感谢楼主分享！

墨者 发表于 2018-3-27 23:43:45

谢谢楼主分享

查看完整版本: 批量交点插入块（支持选块样板，多段线、曲线、直线）