[求助]：如何将line批次转为pline

taner

(defun C:vvv (/ s1 n1 n e1 e2 z k a)
  (vl-load-com)
  (princ
    "\n将所选实体连成多义线，并判断其是否闭合. 版权所有：TH.言西早二"
  )
  (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将所选层上的实体连成多义线，并判断其是否闭合. 版权所有：TH.言西早二"
  )
  (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)
)

dengyx80

最初由 liubingxia 发布
[B]使用修改多段线，选择多段线时直接选择一条要转换的LINE，CAD将提示：
所选对象不是多段线
是否将其转换为多段线? <Y>（此时直接确定）
输入选项
[闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非... [/B]

借此正好问这样一个问题，为什么选中一个封闭图形的线段，合并后只有一部分合并完成，剩余的未合并成功的成为pline。（线段应该不存在端点不共点的问题，因为是相交线段剪切形成的）

heroaser

命令pedit

shizhilong

直接使用PE命令就可以了

marcol

2002下用pedit很方便的啊~~

shizhilong

看看有的点是不是都在同一平面,如果不在同一平面是不能变为PLINE的,PE命令只对同一
平面的LINE有小.

dubing

如果这些线是闭合的多边形推荐使用软件Topology Creator
软件主页：http://cadx.go.nease.net/index.htm
动画演示压缩文件1：http://cadx.go.nease.net/TopoShow_RAR_Archive.part1.exe
动画演示压缩文件2：http://cadx.go.nease.net/TopoShow_RAR_Archive.part2.rar

如果这些线是非闭合的推荐使用AutoCAD Map的CleanUp功能

zcf108

输入pe-----回车-----m-----回车----- 选择line-----回车-----j------回车-----回车

boy_tian

最初由 taner 发布
[B](defun C:vvv (/ s1 n1 n e1 e2 z k a)
  (vl-load-com)
  (princ
    "\n将所选实体连成多义线，并判断其是否闭合. 版权所有：TH.言西早二"
  )
  (setq z (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (c... [/B]

对于分次画的PL线并不能连接，而晓东工具箱的则可以。

weijia

原来还有这样的工具，谢谢告知！

心湖

谢谢，又学了一招！！2002下直接使用pe 命令 学会了，可是各位高手上传的程序，还是看不懂，看来以后有的学了，呵呵。在这里先向各位高手致敬！！！！

AutoCAD@Coke

输入：pe  （回车   ）
问是否要将所选取对象转换为多段线：  Y （回车）

onlybelong

好。

luckyhtd

我用的是11楼的方法2，使用PE（PEDIT）命令，可以批量转换为PLINE。

慌着补钙

pe,然后m，把所有所需线条都选上，回车ok!