【已解决】把线断串接成多线

twtysoi · 发表于 2019-11-17 10:33:59

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

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

×

本帖最后由 newer 于 2020-4-28 21:47 编辑

求把线，弧，串接成多线的LSP

azyg125 · 发表于 2019-11-17 12:39:57

(defun c:tt()
(command "_pedit"))

yangjian001 · 发表于 2019-11-17 15:06:24

做一个热心并受欢迎的人！

twtysoi · 发表于 2019-11-17 20:35:28

azyg125 发表于 2019-11-17 12:39
(defun c:tt()
(command "_pedit"))

就是选线就自动串接，你这个PE，太简单了，

azyg125 · 发表于 2019-11-17 20:45:55

？怪我多嘴，哈哈
来自: 微社区

twtysoi · 发表于 2019-11-17 20:56:05

azyg125 发表于 2019-11-17 20:45
？怪我多嘴，哈哈

没事，谢谢，帮助，只是不是我想要的，

王鹏_pBZlo · 发表于 2019-11-17 21:07:19

本帖最后由王鹏_pBZlo 于 2019-11-17 21:38 编辑

(defun c:2pl( / sset i ent entpar dxf70) ;转多义线
      (setq sset (ssget "x" (list (cons 0 "*line,arc"))))
      (command "undo" "be")
      (setvar "peditaccept" 1)
      (setq i -1)
      (while (setq ent (ssname sset (setq i (1+ i))))
            (if (setq entpar (entget ent))
                  (if (setq dxf70 (assoc 70 entpar))
                     (if (/= 1 (cdr dxf70))
                              (command "pedit" ent "j" sset "" "")
                     )
                     (command "pedit" ent "j" sset "" "")
            ))
      )
      (command "undo" "e")
      (princ)
)

twtysoi · 发表于 2019-11-18 09:16:06

可以了，多谢王哥

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

[已解决] 【已解决】把线断串接成多线

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