vba如何将首尾相连的线段连接成多段线？

zhy666 · 发表于 2016-7-2 11:36:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教一下vba如何将首尾相连的线段连接成多段线？

st788796 · 发表于 2016-7-6 21:37:22

command pedit m j

zhy666 · 发表于 2016-7-6 21:58:12

谢谢，已经解决。

zhy666 · 发表于 2016-7-14 11:48:30

Set SSet = ThisDrawing.SelectionSets.Add("DMC")
det = axSSet2lspEnts(SSet)
ThisDrawing.SendCommand "_pedit" & vbCr & "M" & vbCr & det & "p" & vbCr & vbCr & "Y" & vbCr & "J" & vbCr & "0.005" & vbCr & vbCr

Function axSSet2lspEnts(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 = 1 To SSet.Count - 1
         enthandle = SSet.Item(i).Handle
         strEnts = strEnts & vbCr & "(handent " & Chr(34) & enthandle & Chr(34) & ")"
      Next i
End If

axSSet2lspEnts = strEnts
End Function

账号		自动登录	找回密码
密码			立即注册

[求助] vba如何将首尾相连的线段连接成多段线？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

评分