[LISP函数]：将所选择的line或arc串成多义线

Torcky

串多义线
;将所选择的line或arc串成多义线

(defun c:ddx (/ ssa ssa-ent ent-p i)
  (command "undo" "be");设置返回起始点
  (setq ssa (ssget))
  (setq i 0)
  (while (< i (sslength ssa))
    (setq ssa-ent (ssname ssa i))
    (setq ent-p (cdr(assoc 0 (entget ssa-ent))))
    (if (not (null ent-p));判断原图元是否已串入多义线
      (if (or (= ent-p "LWPOLYLINE") (= ent-p "POLYLINE"));判断原图元属性
         (command "pedit" ssa-ent  "j" ssa "" "")
         (command "pedit" ssa-ent  "y" "j" ssa "" "")
    ))
    (setq i (1+ i))
  )
  (command "undo" "e");设置返回终止点
  (princ)
)

hisum

辛苦了，用MPEDIT其实就可以了

xiu19791981

真的不错,我以前为pline线打断后不知道怎么办,现在有办法了,谢谢,非常感谢

taner

(defun C:vvv (/ s1 n1 n e1 e2 z k a)
  (vl-load-com)
  (princ
    "\n将所选实体及與其相連的實體连成多义线，并判断其是否闭合.   )
  (setq z (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (setq s1 (ssget))
  (setq n1 (sslength s1))
  (setq n 0)
  (while (< n n1)
    (setq e1 (ssname s1 n))
    (setq e2 (entget e1))
    (if        (/= nil e2)
      (progn
        (setq a (cdr (assoc 0 e2)))
        (if (= a "LINE")
          (progn (command "pedit" e1 "y" "j" "all" "" "")
                 (setq k (entlast))

                 (if (/= (vlax-curve-isClosed k) t)

                   (command "change" k "" "p" "c" 7 "")
                   (command "change" k "" "p" "c" 30 "")
                 )
          )
          (if (= a "arc")
            (progn (command "pedit" e1 "y" "j" "all" "" "")
                   (setq k (entlast))

                   (if (/= (vlax-curve-isClosed k) t)

                     (command "change" k "" "p" "c" 7 "")
                     (command "change" k "" "p" "c" 30 "")
                   )
            )
          )
        )
      )
    )

    (setq n (1+ n))
  )
  (setvar "cmdecho" z)
  (command "undo" "e")
  (prin1)
)

(defun c:vv (/ z d c b k)
  (vl-load-com)
  (princ
    "\n将所选层上的实体及與其相連的實體连成多义线，并判断其是否闭合.   )
  (setq z (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (setq c (getstring "\n 输入层名:"))
  (while (setq a (ssget "x" (list (cons lc c) (cons 0 "line"))))
    (setq b (ssname a 0))
    (command "change" B "" "p" "c" 30 "")
    (command "pedit" b "y" "j" "all" "" "")
    (setq k (entlast))

    (if        (/= (vlax-curve-isClosed k) t)

      (command "change" k "" "p" "c" 232 "")
    )
  )
  (while (setq a (ssget "x" (list (cons 8 c) (cons 0 "arc"))))
    (setq b (ssname a 0))
    (command "change" B "" "p" "c" 30 "")
    (command "pedit" b "y" "j" "all" "" "")

    (setq k (entlast))

    (if        (/= (vlax-curve-isClosed k) t)

      (command "change" k "" "p" "c" 232 "")
    )
  )
  (setvar "cmdecho" z)

  (command "undo" "e")
  (princ)
)

xyp1964

2. [FONT=courier new]
   
3. (defun c:test ()
   
4.   (setq        ss    (ssget '((0 . "LINE,ARC,*POLYLINE")))
   
5.         etype (cdr (assoc 0 (entget (ssname ss 0))))
   
6.   )
   
7.   (if (or (= etype "LINE")
   
8.           (= etype "ARC")
   
9.       )
   
10.     (command "pedit" "M" ss "" "Y" "j" "" "")
    
11.     (command "pedit" "M" ss "" "j" "" "")
    
12.   )
    
13.   (princ)
    
14. )[/FONT]

[FONT=courier new]<br /> (defun c:test ()<br />   (setq        ss    (ssget '((0 . "LINE,ARC,*POLYLINE")))<br />         etype (cdr (assoc 0 (entget (ssname ss 0))))<br />   )<br />   (if (or (= etype "LINE")<br />           (= etype "ARC")<br />       )<br />     (command "pedit" "M" ss "" "Y" "j" "" "")<br />     (command "pedit" "M" ss "" "j" "" "")<br />   )<br />   (princ)<br /> )[/FONT]

taner

5樓班竹,能否再完善一下:
1.所選擇的全部是聚合線時的,直接退出程序
2.希望將判斷連接後線是否爲閉合,以不同顔色區分即可.

marcoyuwen

所选的LINE、ARC、LWPOLYLINE不是连在一起的怎么办，虽然从视觉上判断是接在一起的，但LWPOLYLINE宽度不为0时很难判断，是否在一判断代码.

yshf

用下面的程序：
(defun c:test ()
  (setq        ss (ssget '((0 . "LINE,ARC,*POLYLINE"))))
  (command "pedit" "M" ss "" "Y" "j" "" "")
  (princ)
)

出现以下问题，请5楼楼主给帮忙解释一下：
Command: test
Select objects: Specify opposite corner: 8 found

Select objects:
pedit Select polyline: M

*Invalid selection*
Expects a point or Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon
; error: Function cancelled
Select polyline:

taner

5樓班竹,能否再完善一下:
1.希望將判斷連接後線是否爲閉合,以不同顔色區分即可.
謝謝！

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (setq        ss    (ssget '((0 . "LINE,ARC,*POLYLINE")))
   
4.         etype (cdr (assoc 0 (entget (ssname ss 0))))
   
5.   )
   
6.   (if (or (= etype "LINE")
   
7.           (= etype "ARC")
   
8.       )
   
9.     (command "pedit" "M" ss "" "Y" "j" "" "")
   
10.     (command "pedit" "M" ss "" "j" "" "")
    
11.   )
    
12.   (setq ename (entlast))
    
13.   (if (equal (vlax-curve-getstartPoint ename)
    
14.          (vlax-curve-getEndPoint ename)
    
15.       )
    
16.     (command "change" ename "" "p" "c" "1" "")
    
17.   )
    
18.   (princ)
    
19. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        ss    (ssget '((0 . "LINE,ARC,*POLYLINE")))<br />         etype (cdr (assoc 0 (entget (ssname ss 0))))<br />   )<br />   (if (or (= etype "LINE")<br />           (= etype "ARC")<br />       )<br />     (command "pedit" "M" ss "" "Y" "j" "" "")<br />     (command "pedit" "M" ss "" "j" "" "")<br />   )<br />   (setq ename (entlast))<br />   (if (equal (vlax-curve-getstartPoint ename)<br />          (vlax-curve-getEndPoint ename)<br />       )<br />     (command "change" ename "" "p" "c" "1" "")<br />   )<br />   (princ)<br /> )[/FONT]

taner

樓上的程序只能對最後生成的實體進行判斷。如果一次生成很多封閉與不封閉的多義線呢？

kohi

1楼和斑主的程序在某些情况下均失效, 是否要考虑Z轴和UCS的问题?

taner

http://www.xdcad.net/forum/showthread.php?threadid=476152