PE命令简化

love1030312

  大家都知道PE这个连接线段的命令   很麻烦    需要点很多步的
我在论坛搜了一上午也没找到
  希望哪位高手，版主赐个程序  谢谢  谢谢
  要求  1 命令   2选择对象   3输入模糊值 （这个模糊值要能记忆上一次输入的）  4完成

Gu_xl

(command "pedit" ...)
将你命令中的步骤填到省略号中即可...

love1030312

Gu_xl 发表于 2014-9-10 11:07
(command "pedit" ...)
将你命令中的步骤填到省略号中即可...

感谢G版回帖  我去试试

love1030312

Gu_xl 发表于 2014-9-10 11:07
(command "pedit" ...)
将你命令中的步骤填到省略号中即可...

老大  能帮我弄下吗   不会啊

ucuc2003

(defun c:tt (/ ss)
  (setvar "cmdecho" 0)

  (setvar "peditaccept" 1)
  (setq ss (ssget))
  (command "pedit" "m" ss "" "j" "" "")
  (setvar "peditaccept" 0)
  (princ)
)

love1030312

ucuc2003 发表于 2014-9-10 11:18
(defun c:tt (/ ss)
  (setvar "cmdecho" 0)

长老  好程序啊写的还简单    长老我需要输入距离    在使用过程中  大过输入距离的线就不要连接了

还烦请长老再出下手

lucas_3333

love1030312 发表于 2014-9-10 11:24
长老  好程序啊写的还简单    长老我需要输入距离    在使用过程中  大过输入距离的线就不要连接了

还 ...

还搜了一上午都没找到？？？ 你搜索“合并多段线”试试



http://bbs.mjtd.com/forum.php?mod=viewthread&tid=108560

spp_wall

我记忆中论坛是有的！！！

love1030312

lucas_3333 发表于 2014-9-10 11:56
还搜了一上午都没找到？？？ 你搜索“合并多段线”试试

谢谢  谢谢谢

freehand8008

ucuc2003 发表于 2014-9-10 11:18
(defun c:tt (/ ss)
  (setvar "cmdecho" 0)

好使！
我私藏了两款也贴一下
(defun c:lx(/ olcm ss)
(setq olcm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq ss (ssget '((0 . "line,lwpolyline,arc"))))
(if ss
(progn
(command "_pedit" "m" ss "")
(vl-catch-all-apply '(lambda()
(command "y")
))
(command "j" "" "")
)
(princ "\n未选择可用对象!")
)
(setvar "cmdecho" olcm)
(princ)
)


(defun c:nn(/ ss s)
  (princ "\n 本程序用来批量连接线段。gysjy 2009.10.27")
  (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)
)