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

huxp01

请教，在cad绘图过程中，如何将line批次转化为pline

lhj208

好像不行吧

popxi

没有这样直接的命令，但有变通的办法。去往上找一个批量加宽线段的程序不就可以了，加宽线段为0不久可以了。

XDSoft

最初由 huxp01 发布
[B]请教，在cad绘图过程中，如何将line批次转化为pline [/B]

安装晓东工具箱，里面的“线变复线”，可以批量转换LINE,ARC到POLYLINE。

对于首尾相连的ARC,LINE，会变成一根POLYLINE。

秋枫

１。使用Express命令Mpedit
选中所有LINE，MPEDIT会问你是否全部变成PLINE，回答是即可。



2. 你需要AutoCAD　２００２以上的版本才能直接用标准命令实现。
命令pedit，输入M选项，以下操作同MPEDIT。

自由的鱼

不需要线宽改为0就可以了！
Sub jcx()

Dim a
On Error Resume Next
Dim i As Integer
Dim allobj As AcadEntity  
Dim spnt As Variant
Dim epnt As Variant
Dim plineobj As AcadLWPolyline
Dim ver(0 To 3) As Double

For i = 0 To ThisDrawing.SelectionSets.Count - 1
ThisDrawing.SelectionSets.Item(i).Clear
ThisDrawing.SelectionSets.Item(i).Delete
Next
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("lineset")
sset.SelectOnScreen
If sset.Count = 0 Then Exit Sub

Dim w As String
w = ThisDrawing.Utility.GetString(1, vbCrLf & "请输入宽度:")
For Each allobj In sset
If allobj.ObjectName <> "AcDbLine" Then
allobj.ConstantWidth = w
End If
If allobj.ObjectName = "AcDbLine" Then
spnt = allobj.StartPoint

epnt = allobj.EndPoint

ver(0) = spnt(0): ver(1) = spnt(1)
ver(2) = epnt(0): ver(3) = epnt(1)



Set plineobj = ThisDrawing.ModelSpace.AddLightWeightPolyline(ver)



plineobj.ConstantWidth = w
allobj.Delete
End If




Next
Exit Sub
end sub

lyjgc

好像不行吧，我刚才试了啊，不行？

自由的鱼

最初由 lyjgc 发布
[B]好像不行吧，我刚才试了啊，不行？ [/B]

不行？不会吧？我这里都可以的

081ddd

做一个匹配就行了
晓东论坛里有这个东西

liubingxia

使用修改多段线，选择多段线时直接选择一条要转换的LINE，CAD将提示：
所选对象不是多段线
是否将其转换为多段线? <Y>（此时直接确定）
输入选项
[闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)
/放弃(U)]: j
选择对象: （选择要转换的所有LINE）
选择对象:
7 条线段已添加到多段线

jeffchengang

[QUOTE]最初由 秋枫 发布
[B]１。使用Express命令Mpedit
选中所有LINE，MPEDIT会问你是否全部变成PLINE，回答是即可。

命令: pe
PEDIT 选择多段线或 [多条(M)]: m

选择对象:

是否将直线和圆弧转换为多段线？[是(Y)/否(N)]? <Y> y
输入选项
[闭合(C)/打开(O)/合并(J)/宽度(W)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/放
弃(U)]: w
指定所有线段的新宽度: 10
eac

shenqifei

我是用的PEDIT命令!

苏丹丹

我用11楼的方法。

longinmymind

应该可以的，我试过了！

zcg319

我试过在R14里也可以的呵!