如何把选择的直线段收尾相连变成一条多段线

zhhunicorn

2. (command "peditaccept" 1)
   
3.    ;;;选择图形并用pedit连接
   
4.    (setq p_lb (list (- (car py) 500.0) (- (cadr py) 200.0)));此处设定框选左下角离左下点x,y各减少200，可根据实际情况修改数值。
   
5.    (setq p_ru (list (+ (car p0) 500.0) (+ (cadr p0) 200.0)));此处设定框选右上角离右上点x,y各增加200，可根据实际情况修改数值。
   
6.   ;(prompt "选择左边多段线：")
   
7.    (setq ss nil)
   
8.    (setq ss (ssget "_W" p_lb p_ru))
   
9.    (command "pedit" "m" ss "" "j" "0.00" "")

(command "peditaccept" 1)<br />    ;;;选择图形并用pedit连接<br />    (setq p_lb (list (- (car py) 500.0) (- (cadr py) 200.0)));此处设定框选左下角离左下点x,y各减少200，可根据实际情况修改数值。<br />    (setq p_ru (list (+ (car p0) 500.0) (+ (cadr p0) 200.0)));此处设定框选右上角离右上点x,y各增加200，可根据实际情况修改数值。<br />   ;(prompt "选择左边多段线：")<br />    (setq ss nil)<br />    (setq ss (ssget "_W" p_lb p_ru))<br />    (command "pedit" "m" ss "" "j" "0.00" "")

py为左下点，p0为右上点。
我用上面的代码窗选多段线，然后用pe连接，同一个图形有时能连接成功，有时又不成。不知什么问题，请大侠们赐教。

zyhandw

直线段？到底是直线，还是只有两个端点的多段线？还是附上dwg来，再看看吧

zhhunicorn

左边框框中的是一条条的线段，就是把这些线段连接起来。

成仔

试下这个，也是在明经上找的，可能是你想要的
(defun c:tt (/ a ss)  ; 变多义线
  (setq a (getvar "peditaccept"))
  (setvar "peditaccept" 1)
  (if (setq ss (ssget '((0 . "LINE,*POLYLINE,ARC"))))
    (command "_.pedit" "_m" ss "" "_j" 0 "")
  )
  (setvar "peditaccept" a)
  (princ)
)

zhhunicorn

谢谢成仔的回复。我要操作的对象目前是通过程序自动框选来实现对象拾取。
你提供的程序是要事先选好对象的，不知理解对否？

成仔

zhhunicorn 发表于 2012-10-30 15:19
谢谢成仔的回复。我要操作的对象目前是通过程序自动框选来实现对象拾取。
你提供的程序是要事先选好对象的 ...

呵呵，是的，要框选的话不是更简单吗？？？