超级简化pedit命令

idfhm · 发表于 2008-12-13 15:55:00

看到这么多的朋友分享好东东我也下了一点来而不往非礼也!

工作中要把几条直线或圆弧合并成多段线，用pedit时要先选取一条直线，先转化为多段线，后再按“j” 继续添加，比较麻烦，编个程序简化该过程可以直接选择要转多段线的直线或圆弧就可以，省去麻烦 ,当选择集中有多段线时和没有多段线时是一样的,不信的话可以试一下!如果好不要忘记说一声让大家知道

yshf · 发表于 2011-3-22 22:35:45

这个如何：

(defun c:ppp( / pet ss)
(setq pet (getvar "PEDITACCEPT"))
(setvar "PEDITACCEPT" 1)
(while (setq ss (ssget '((0 . "ARC,*LINE"))))
(command "_pedit" (ssname ss 0) "j" ss "" "")
)
(setvar "PEDITACCEPT" pet)
(princ)
)

idfhm · 发表于 2008-12-13 17:53:00

看到这么多的朋友分享好东东我也下了一点来而不往非礼也!

工作中要把几条直线或圆弧合并成多段线，用pedit时要先选取一条直线，先转化为多段线，后再按“j” 继续添加，比较麻烦，编个程序简化该过程可以直接选择要转多段线的直线或圆弧就可以，省去麻烦 ,当选择集中有多段线时和没有多段线时是一样的,不信的话可以试一下!如果好不要忘记说一声让大家知道

184235521 · 发表于 2019-12-9 10:07:21

CAD 自带的命令一个''J'就可以吧选中的所有线段合并了，为什么搞那么麻烦。

linheyuanpcb · 发表于 2008-12-13 22:27:00

能做成，只要点一条线，其它和它有连接的都能变成ＰＩＬＥ就好了

idfhm · 发表于 2008-12-19 01:08:00

你还可以框选

yucpp · 发表于 2008-12-25 09:24:00

还不错。谢谢啊！

mxran · 发表于 2008-12-29 17:20:00

兄弟你这个也太麻烦了啊！

(defun c:pp () (command "pedit" "m" "all" "" "y" "j" "" ) (prinl) )

直接用这LISP命令，输入个PP连续按几次空格键就把所有的线段连接成了多义线了！

jj2098 · 发表于 2009-1-1 19:37:00

看看这个可符合上面几个朋友的要求? 程序名称：TYPolyLineJoin ( TYPolyLineJoin.zip ) 命令：TYPLJ 使用说明：选择欲连接成多义线的一组对象中的一条直线或圆弧，回车，搞定。操作演示

[/CODE]

AMTONNY · 发表于 2009-1-11 19:51:00

(DEFUN C:aJ (/ LIST1 XLIST XA1 XB1)                        ;可用于封闭模图
(SETQ XA1 0)
(SETQ LIST1 (SSGET))
;(SETQ LIST2 LIST1)
(SETQ XB1 1)
(WHILE (< XA1 XB1)
    (SETQ XLIST (SSNAME LIST1 XA1))
    (COMMAND "PEDIT" XLIST "Y" "J" "ALL" "" "")
    (SETQ XA1 (1+ XA1))
(setvar "osmode" 183)
(setvar "ORTHOMODE" 1)
)

用这个也行快哦

coolpoom · 发表于 2009-1-13 09:20:00

(defun c:AJ()
(while(not(setq ss(entsel "\n请选择要闭合的物体:")))
(princ"没有选择到，请再来一次。")
)
(command "pedit" ss "y" "j" "all" "" ""))

这个呢?

yxh1202 · 发表于 2010-11-17 16:22:00

石料一下很好，谢谢提供。

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

超级简化pedit命令

本帖子中包含更多资源