批量交点插入块（支持选块样板，多段线、曲线、直线）

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

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

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

hehoubin 发表于 2012-11-18 00:21
能放子程序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

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

谢谢！！！！！！！！

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

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

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

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

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

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

先谢楼主分享~

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

这个不错，谢谢分享。

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

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

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

感谢楼主分享！

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

谢谢楼主分享

账号		自动登录	找回密码
密码			注册