love1030312 发表于 2014-9-10 10:57:03

PE命令简化

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

Gu_xl 发表于 2014-9-10 11:07:24

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

love1030312 发表于 2014-9-10 11:10:02

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

感谢G版回帖我去试试

love1030312 发表于 2014-9-10 11:16:48

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

老大能帮我弄下吗   不会啊

ucuc2003 发表于 2014-9-10 11:18:15

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

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

love1030312 发表于 2014-9-10 11:24:31

ucuc2003 发表于 2014-9-10 11:18 static/image/common/back.gif
(defun c:tt (/ ss)
(setvar "cmdecho" 0)



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

还烦请长老再出下手

lucas_3333 发表于 2014-9-10 11:56:11

本帖最后由 lucas_3333 于 2014-9-10 12:02 编辑

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

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



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

spp_wall 发表于 2014-9-10 11:57:23

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

love1030312 发表于 2014-9-10 14:11:59

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




谢谢谢谢谢

freehand8008 发表于 2014-9-16 09:13:32

ucuc2003 发表于 2014-9-10 11:18 static/image/common/back.gif
(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)
)
页: [1]
查看完整版本: PE命令简化