多段线首尾连直线

变幻之枫 · 发表于 2016-6-19 09:37:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

多段线，想把头和尾连成一条直线，如图，求助大神。

iLisp · 发表于 2016-6-19 10:10:26

获取顶点集合，排序，取car last 构造线

变幻之枫 · 发表于 2016-6-19 12:41:18

iLisp 发表于 2016-6-19 10:10
获取顶点集合，排序，取car last 构造线

厉害能说的详细点吗？大神

iLisp · 发表于 2016-6-19 12:59:02

变幻之枫发表于 2016-6-19 12:41
厉害能说的详细点吗？大神

你熟悉什么

变幻之枫 · 发表于 2016-6-19 13:03:24

iLisp 发表于 2016-6-19 12:59
你熟悉什么

谢谢回复，请问有没有程序插件能实现这样的功能？

q3_2006 · 发表于 2016-6-19 13:09:29

去掉中间点，直接起终点连接？？

变幻之枫 · 发表于 2016-6-19 13:35:31

q3_2006 发表于 2016-6-19 13:09
去掉中间点，直接起终点连接？？

是的，就是这个意思

q3_2006 · 发表于 2016-6-19 13:44:36

本帖最后由 q3_2006 于 2016-6-19 14:56 编辑

(defun c:tt ( / e narray obj ptl)
(vl-load-com)
(setq e (car (entsel "\n点取多段线:"))
ptl (apply 'append (list (vlax-curve-getStartPoint e) (vlax-curve-getEndPoint e)))
narray (vlax-make-safearray vlax-vbDouble (cons 0 (1- (length ptl))))
obj (vlax-ename->vla-object e)
)
(vla-put-coordinates obj (vlax-safearray-fill narray ptl))
)

q3_2006 · 发表于 2016-6-19 13:46:16

手机发帖这么麻烦呀

iLisp · 发表于 2016-6-19 17:29:39

q3_2006 发表于 2016-6-19 13:44
(defun c:tt ( / e narray obj ptl)
(vl-load-com)
(setq e (car (entsel "\n点取多段线:"))

你怎么知道是一个方向的？！

Lisphk · 发表于 2016-6-20 09:10:45

是合并重复段呢，还是就是直接首和尾画线啊。

变幻之枫 · 发表于 2016-6-20 15:44:31

Lisphk 发表于 2016-6-20 09:10
是合并重复段呢，还是就是直接首和尾画线啊。

已解决，感谢帮助~

7079977a · 发表于 2019-1-30 16:51:29

好东西，真的不错

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

[多段线] 多段线首尾连直线

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

评分

点评