将多条多段线用点选法倒角，连成一条多段线

清风明月10 · 发表于 2014-5-17 09:47:15

本帖最后由清风明月10 于 2014-5-17 11:16 编辑

就是一根一根地选取多段线（只含直线），让前一根多段线和后一根多段线倒角
我的目的就是想节省第二步之后点选第一条多段线的动作。最后结果将将这些线连成一条多段线。
倒角示意图.jpg

st788796 · 发表于 2014-5-17 09:47:16

本帖最后由 st788796 于 2014-5-17 10:13 编辑

(defun c:tt (/ e el e1)
(if (and (setq e (entsel))
(setq el (entget (car e)))
(or (= (cdr (assoc 0 el)) "LINE")
(= (cdr (assoc 0 el)) "LWPOLYLINE")
)
(progn
(redraw (car e) 3)
t)
)
(progn
(while (and
(setq e1 (entsel))
(progn
(redraw (car e1) 3)
t
)
)
(vl-cmdf ".fillet" e e1)
(if (entget (car e1))
(setq e e1)
(setq e (list (car e) (cadr e1)))
)
(redraw (car e) 3)
)
(redraw (car e) 4)
)
)
(princ)
)

清风明月10 · 发表于 2014-5-17 11:15:41

是我在一楼没说清楚，最后结果将将这些线连成一条多段线。

st788796 · 发表于 2014-5-17 13:59:28

清风明月10 发表于 2014-5-17 11:15
是我在一楼没说清楚，最后结果将将这些线连成一条多段线。

只要把第一条确保是pline即可，这个不会吗？

清风明月10 · 发表于 2014-5-18 15:51:38

st788796大哥，前面的将多段线用倒角法连起来的，帮我改成第2根及以后的线可以是多段线，好吗？实际情况它们都是多段线，只不过是只有两个端点的直线型的多段线。
而且我在初次发帖时，就说的是多义线啊，只不过说它是直线型的，即不含弧线的。

st788796 · 发表于 2014-5-18 16:52:42

清风明月10 发表于 2014-5-18 15:51
st788796大哥，前面的将多段线用倒角法连起来的，帮我改成第2根及以后的线可以是多段线，好吗？实际情况它 ...

你不会去过滤条件啊!

清风明月10 · 发表于 2014-5-19 15:30:26

搞定了。
;多线连接
(defun c:TT( / ss i ename endata entype)

(SETQ MHJL (getreal "请输入线段连接时的模糊距离，不输则用默认值1000000。\n"))
(IF (= MHJL NIL)(SETQ MHJL 1000000))

  (princ "\n选择线段 <右键选择集>: ")
(setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))
   (command "PEDITACCEPT" "1")
(if ss
   (command ".pedit" "m" ss "" "j" MHJL "w" "0" "" "PEDITACCEPT" "0")
   (command ".pedit" "m" "p" "" "j" MHJL "w" "0" "" "PEDITACCEPT" "0")
))

st788796 · 发表于 2014-5-19 21:38:48

清风明月10 发表于 2014-5-19 15:30
搞定了。
;多线连接
(defun c:TT( / ss i ename endata entype)

你这个和fillet是两码事

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

[已解决] 将多条多段线用点选法倒角，连成一条多段线

最佳答案

点评

点评

点评

点评

点评