多线段连接

chbddzx12 · 发表于 2014-10-23 20:33:51

求斑竹帮忙写个多线段连接的程序能达到下面的要求

已知一个闭合的多线段，然后我们新画一节多线段，新画的多线段跟这个多线段有两个交点，要求新画的多线段能沿着跟闭合的多线段相交的那部分自动延伸并闭合。

麻烦斑竹了~~~

newer · 发表于 2014-10-23 20:33:52

本帖最后由 newer 于 2014-10-23 23:47 编辑

chbddzx12 发表于 2014-10-23 21:48
这是要达到的效果

简单写了个

(defun c:tt ()
(if (and
(setq e (car (xdrx_entsel "\n拾取多段线<退出>:")))
(setq p1 (getpoint "\n起点<退出>:"))
)
(progn
(setq ss (ssadd))
(xdrx_setpropertyvalue e "isClosed" t)
(ssadd e ss)
(command ".pline" p1)
(while (= (getvar "cmdactive") 1)
(command pause)
)
(ssadd (entlast) ss)
(if (and
(setq ints (xdrx_entity_intersectwith (entlast) e))
(= (length ints) 2)
)
(progn
(setq ss (xdrx_geom_searchregions ss 0))
(setq a (vl-sort (mapcar
'(lambda (x)
(list (xdrx_getpropertyvalue x "area") x)
)
(xdrx_pickset->ents ss)
) '(lambda (x1 x2)
(> (car x1) (car x2))
)
)
)
(xdrx_entity_delete (cadar a))
)
)
)
)
(princ)
)

(defun c:tt () 
  (if (and 
        (setq e (car (xdrx_entsel "\n拾取多段线<退出>:"))) 
        (setq p1 (getpoint "\n起点<退出>:")) 
      ) 
    (progn 
      (setq ss (ssadd)) 
      (xdrx_setpropertyvalue e "isClosed" t) 
      (ssadd e ss) 
      (command ".pline" p1) 
      (while (= (getvar "cmdactive") 1) 
        (command pause) 
      ) 
      (ssadd (entlast) ss) 
      (if (and 
            (setq ints (xdrx_entity_intersectwith (entlast) e)) 
            (= (length ints) 2) 
          ) 
        (progn 
          (setq ss (xdrx_geom_searchregions ss 0)) 
          (setq a (vl-sort (mapcar 
                             '(lambda (x) 
                                (list (xdrx_getpropertyvalue x "area") x) 
                              ) 
                             (xdrx_pickset->ents ss) 
                           ) '(lambda (x1 x2) 
                                (> (car x1) (car x2)) 
                              ) 
                  ) 
          ) 
          (xdrx_entity_delete (cadar a)) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

chbddzx12 · 发表于 2014-10-23 21:30:17

D:\我的文档\1.gif
这是刚开始的

chbddzx12 · 发表于 2014-10-23 21:48:16

登录/注册后可看大图

这是要达到的效果

Free-Lancer · 发表于 2014-10-23 22:06:37

打开nea捕捉直接画

chbddzx12 · 发表于 2014-10-23 22:25:36

Free-Lancer 发表于 2014-10-23 22:06
打开nea捕捉直接画

现在我就是直接画啊，就是直接画的话多了很容易出现虚交点和悬挂点

XDSoft · 发表于 2014-10-23 22:52:59

chbddzx12 发表于 2014-10-23 22:25
现在我就是直接画啊，就是直接画的话多了很容易出现虚交点和悬挂点

你意思是画累了出的错吗？

XDSoft · 发表于 2014-10-23 23:34:17

chbddzx12 发表于 2014-10-23 21:48
这是要达到的效果

简单写了个

chbddzx12 · 发表于 2014-10-23 23:47:03

newer 发表于 2014-10-23 23:36
简单写了个

首先，谢谢大师抽时间帮我写的这个，只是能不能帮我修改下，我想要达到的效果是新画的多线段能沿着那个相交的多线段的边沿，节点一个个重合然后闭合。您现在这个只能直接闭合啊~~~谢谢大师了

newer · 发表于 2014-10-23 23:48:12

chbddzx12 发表于 2014-10-23 23:47
首先，谢谢大师抽时间帮我写的这个，只是能不能帮我修改下，我想要达到的效果是新画的多线段能沿着那个相 ...

你用程序了吗，给你重新做了演示，看看。

chbddzx12 · 发表于 2014-10-23 23:52:56

newer 发表于 2014-10-23 23:36
简单写了个

谢谢大师，刚没看懂~~~这个完全满足我的要求了~~~

XDSoft · 发表于 2014-10-23 23:59:18

chbddzx12 发表于 2014-10-23 23:52
谢谢大师，刚没看懂~~~这个完全满足我的要求了~~~

朋友，你是什么专业的，这个程序用来做什么？

chbddzx12 · 发表于 2014-10-24 01:36:40

XDSoft 发表于 2014-10-23 23:59
朋友，你是什么专业的，这个程序用来做什么？

测绘，描图用的，因为要求每个多段线闭合，相邻的多线段不能出现相交点或悬挂点，手工重新描既麻烦又容易错~~~谢谢大师了

chbddzx12 · 发表于 2014-10-24 15:19:55

newer 发表于 2014-10-23 23:48
你用程序了吗，给你重新做了演示，看看。

大师，能不能帮忙修改下昨天你帮我写的程序呢?
昨天忘了一种情况：新画的多线段能不能沿着多个闭合的多线段自动闭合呢？

登录/注册后可看大图

chbddzx12 · 发表于 2014-10-24 15:21:18

chbddzx12 发表于 2014-10-23 21:48
这是要达到的效果

登录/注册后可看大图

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

[已解决] 多线段连接

最佳答案

点评

点评

点评

点评

点评

点评

点评

点评