huaiyu,请进，在线等

wholin

在多段线的每个顶点都加一个圆，圆心就是顶点，半径为2

在vba中如何实现呀？

大家帮手,  谢谢

HuaiYu

这样对 Coordinates 的遍历来得到的

Sub Test5()
Dim objSel As AcadEntity
Dim pt As ACAD_POINT
On Error GoTo exitSel
ThisDrawing.Utility.GetEntity objSel, pt, "Pick a text"
'If TypeOf objSel Is AcDbText Then
If objSel.ObjectName <> "AcDbPolyline" Then
 ThisDrawing.Utility.Prompt "选择的不是 AcDbPolyline,请重新选择!"
 Exit Sub
End If
'Dim vv As AcadPolyline
Dim pts As Variant
pts = objSel.Coordinates
Dim i As Integer
i = 1
Dim ptCir(0 To 2) As Double
Dim cir As AcadCircle
For Each pt In pts
 If i = 2 Then
 ptCir(1) = pt
 ptCir(2) = 0#
 Set cir = ThisDrawing.ModelSpace.AddCircle(ptCir, 2#)
 i = 1
 Else
 ptCir(0) = pt
 i = i + 1
 End If
 
Next pt

exitSel:
End Sub

wholin

huaiyu，谢谢你的精彩解答，我试一下你的办法

wholin

huaiyu,我用你的方法时发现两个问题：

  1.有圆弧的地方，凸点没能加圆，其它的顶点都可以正确的加上去

  2.你用的是选择一个多段线

      ThisDrawing.Utility.GetEntity objSel, pt, "Pick a text"
     我现在想改成在一个选择集中的所有多段线的顶点都要加一个同样的圆

不知你能不能再帮忙解答一下，在线等.....