[编程申请]：如何快速合并多条线段

chyichin · 发表于 2008-9-11 10:18:36

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

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

×

用mpedit命令每次都要选 yes， join ，0 ，exit好几个选项，有没有办法把这几项合并成一个命令，或者有其他合并直线的命令也行，谢谢

zxq0220 · 发表于 2008-9-14 08:44:37

(defun c:tt ()
(command ".PEDIT" "M" pause "y" "j" 0 "")
(princ)
)

wlw501 · 发表于 2008-9-16 13:00:30

我是cad初学者，这个怎么加载变为一个按钮，这样就可以方便使用

kwok · 发表于 2008-9-27 20:16:00

把2楼的命令数值直接加入acad.lsp
里就可以用了,或另存一个文件,在cad里加载就能用了.

zhaozwf · 发表于 2008-10-2 16:02:03

呵呵

gysjy · 发表于 2008-10-29 18:48:13

下列程序可把LINE、ARC或LWPOLYLINE连在一起：

(defun c:jj(/ ss s)
   (setq ss (ssget '((-4 . "<OR")
                  (0 . "LINE")(0 . "ARC")
                  (-4 . "<AND")(0 . "LWPOLYLINE")(70 . 0)(-4 . "AND>")
               (-4 . "OR>")))
  )
  (while ss
(setq s (ssname ss 0))
(if (or (= "LINE" (cdr (assoc 0 (entget s))))
         (= "ARC" (cdr (assoc 0 (entget s))))
      )
   (command "pedit" s "y" "j" "p" "" "x")
   (command "pedit" s "j" "p" "" "x")
)
(setq ss (ssget "p"))
  )
  (princ))

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

[编程申请]：如何快速合并多条线段

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

相关帖子