[编程申请]：批量面域转成闭合多段线!!!!

njyulei

批量面域转成闭合多段线!!!!

xiaodang123

'将多个直线连成一条轻质多段线
Public Sub joinpoly(reg As AcadRegion)
reg.Explode
On Error Resume Next
Dim sset As AcadSelectionSet
If Not IsNull(ThisDrawing.SelectionSets.Item("joinpoly")) Then
Set sset = ThisDrawing.SelectionSets.Item("joinpoly")
sset.Delete
End If
Set sset = ThisDrawing.SelectionSets.Add("joinpoly")
Dim gpcode(1) As Integer
Dim datavalue(1) As Variant
gpcode(0) = 0
gpcode(1) = 8
datavalue(0) = "line"
datavalue(1) = reg.Layer
sset.Select acSelectionSetAll, , , gpcode, datavalue
Dim det As String
det = axSSet31spEnts(sset)
sset.Clear
ThisDrawing.SendCommand "_PEDIT" & vbCr & "M" & vbCr & det & vbCr & vbCr & "J" & vbCr & vbCr & vbCr
gpcode(0) = 0
gpcode(1) = 8
datavalue(0) = "LWPOLYLINE"
datavalue(1) = reg.Layer
sset.Select acSelectionSetAll, , , gpcode, datavalue
det = axSSet31spEnts(sset)
sset.Delete
ThisDrawing.SendCommand "_PEDIT" & vbCr & "M" & vbCr & det & vbCr & vbCr & "J" & vbCr & vbCr & vbCr '用 - pe方法
End Sub
Public Function axSSet31spEnts(ByVal sset As AcadSelectionSet) As String
If sset.Count = 0 Then Exit Function
Dim entHandle As String
Dim strEnts As String
entHandle = sset.Item(0).Handle
strEnts = "( handent" & Chr(34) & entHandle & Chr(34) & ")"
If sset.Count > 1 Then
Dim i As Integer
For i = 0 To sset.Count - 1
entHandle = sset.Item(i).Handle
strEnts = strEnts & vbCr & "( handent" & Chr(34) & entHandle & Chr(34) & ")"
Next i
End If
axSSet31spEnts = strEnts
End Function

eachy

最初由 njyulei 发布
[B]批量面域转成闭合多段线!!!! [/B]

首先面域的边界是否包含 Spline Ellipse 曲线，如果含有这两种，分解后的线要模拟才可以连接为闭合Pline。

ssget region -> explode -> pedit m

ll_j

最初由 eachy 发布
[B]
首先面域的边界是否包含 Spline Ellipse 曲线，如果含有这两种，分解后的线要模拟才可以连接为闭合Pline。

ssget region -> ex... [/B]

有一种方法可以不必判断边界，只是精度与显示有关，有的差强人意。方法是：将图形制作成块，然后使用ET命令 Flatten “平面化”，选择 yes （消隐）。这种方法还对椭圆、样条曲线转多义线，特殊线形“炸碎”等有效。

njyulei

太谢谢各位老大的指导!!!

雨箭风刀

Flatten 处理spl有时候不理想，面域内的椭圆也会被保留，可能我不知道其它参数：）

发一个自己的,选集转多义线
命令: x2pl
支持
(0 . "ELLIPSE,SOLID,REGION,HATCH,*LINE,*TEXT,CIRCLE")

XDSoft

API函数：
xdrx_region->curve 完美解决，转换后多段线首尾连接。

wh2007

量面域转成闭合多段

sujia

想学习 大神  前辈