编程简化pedit命令

xichen · 发表于 2006-12-24 02:59

; 工作中要把几条直线或圆弧合并成多段线，用pedit时要先选取一条直线，现转
化为多段线，后再按“j” 继续添加，比较麻烦，编个程序简化该过程可以直接选择要转多段线的直线或圆弧就可以，省去麻烦

(defun c:po (\xj ob)
(setvar "cmdecho" 0)
(steq xj (ssget)) ;建立选集赋给变量xj
(steq ob (SSNAME xj 0 ) ) ; 得到选集xj 中首个对象 ,赋给变量ob
(command "pedit" ob "y" "j" xj "" "") ;
(princ)
)

tukuitk · 发表于 2006-12-26 12:25

楼上的程序不是很完美，当选择集中有多段线时和没有多段线时应该不一样的。
这是我写的，有点繁，呵呵。

(defun c:krPE (/ HASNOPLINE I OBJ SS TJ)
(setq ss (while (not ss) (setq ss (ssget '((0 . "ARC,*LINE"))))))
(setq i -1)
(setq tj t)
(while (and tj (> (sslength ss) (1+ i)))
(setq i (1+ i))
(setq tj (vl-string-search
"Polyline"
(vla-get-ObjectName
(setq obj (vlax-ename->vla-object (ssname ss i)))
)
)
)
(if (= tj nil)
(setq hasNoPLine t)
)
)
(if hasNoPLine
(vl-cmdf "pedit" "m" ss "" "y" "j" 1 "")
(vl-cmdf "pedit" "m" ss "" "j" 1 "")
)
)

yshf · 发表于 2011-3-22 22:28

这样岂不是更简单：

(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)
)

zctao1966 · 发表于 2008-11-2 02:23

谢谢分享！！！

zfen · 发表于 2011-3-14 10:53

谢谢tukuitk分享

ys1986 · 发表于 2011-6-25 01:36

回复 yshf 的帖子

大师哦，呵呵，找好久了，都没合适的，你一出手就KO了

有123 · 发表于 2013-5-16 21:50

多谢了，真的很好用

yanghz1977 · 发表于 2015-4-26 11:31

tukuitk 发表于 2006-12-26 12:25
楼上的程序不是很完美，当选择集中有多段线时和没有多段线时应该不一样的。
这是我写的，有点繁，呵呵。

顶一个，很好用，不错，谢谢分享。

yanghz1977 · 发表于 2015-4-26 11:34

yshf 发表于 2011-3-22 22:28
这样岂不是更简单：

你的好像更简单，谢谢分享。

yoyoho · 发表于 2015-5-5 16:20

感谢诸位分享程序！！！

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

编程简化pedit命令

点评