CAD如何把多条相连普通线段转成一条多段线 - CAD之家
您的位置：>>>
CAD如何把多条相连普通线段转成一条多段线
将多条相连的直线转换成一条多段线此过程需利用命令 &PE& 回车，选择 &多条（M）& 回车，然后选择对象（所画的多线）回车，选择 &Y&（将所画的直线或圆弧转换成多段线）回车，输入选项&合并（J）&回车，模糊距离即为0回车,即完与了多段线的转换了。CASS中多段线转二维多段线
'***************************************************
'名称：LWPolylineTo2DPolyline
'作者：罗简单
'功能：实现多段线转二维多段线
'目的：在为界址线赋值前，先要将宗地线转为二维多段线
'***************************************************
Public Sub LWPolylineTo2DPolyline()
& '建立过滤参数
& Dim pType As Variant, pData As Variant
& BuildFilter pType, pData, 0, "LWPOLYLINE"
& '建立选择集
& Dim sset As AcadSelectionSet
& Set sset = CreateSelectionSet
& sset.Select acSelectionSetAll, , , pType,
& Dim lwpObj As AcadLWPolyline
& Dim gType, gData
& '循环选择集
& For Each lwpObj In sset
'获取扩展属性
lwpObj.GetXData "SOUTH", gType, gData
VarType(gType) = vbEmpty Then GoTo Do_Next
&&& Select Case
Case "300000"
Call LwpTo2DPL(lwpObj)
GoTo Do_Next
& Next lwpObj
'******************************************************
'名称：LwpTo2DPL
'作者：罗简单
'功能：将单个多段线转换为二维多段线
'******************************************************
Public Sub LwpTo2DPL(pLwp As AcadLWPolyline)
& ThisDrawing.SendCommand "ConvertPoly H "
& Dim strCmd As String
& strCmd = "(Handent""" &
pLwp.Handle & """)"
& ThisDrawing.SendCommand strCmd &
& ThisDrawing.SendCommand " "
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。}