【求助】多段线图形生成后实现外轮廓的选择标注

你好小崧

   本人在工作中学习改进一点VBA代码，画图多段线图形后，能否选择生成的图形，实现多段线的标注类似论坛高手zzyong00的实现效果，

2. '使用点数组创建轻量多段线
   
3. Public Function AddLWPline(ByRef pt() As Double, ByVal width As Double) As AcadLWPolyline
   
4.     Dim objPline As AcadLWPolyline
   
5.    
   
6.     '错误处理
   
7.     If (UBound(pt) + 1) Mod 2 <> 0 Then
   
8.         MsgBox "数组元素个数必须为偶数！"
   
9.         Exit Function
   
10.     End If
    
11.    
    
12.     Set objPline = ThisDrawing.ModelSpace.AddLightWeightPolyline(pt)
    
13.     objPline.ConstantWidth = width
    
14.     objPline.Update
    
15.     Set AddLWPline = objPline
    
16. End Function
    
17. 
    

'使用点数组创建轻量多段线<br /> Public Function AddLWPline(ByRef pt() As Double, ByVal width As Double) As AcadLWPolyline<br />     Dim objPline As AcadLWPolyline<br />     <br />     '错误处理<br />     If (UBound(pt) + 1) Mod 2 <> 0 Then<br />         MsgBox "数组元素个数必须为偶数！"<br />         Exit Function<br />     End If<br />     <br />     Set objPline = ThisDrawing.ModelSpace.AddLightWeightPolyline(pt)<br />     objPline.ConstantWidth = width<br />     objPline.Update<br />     Set AddLWPline = objPline<br /> End Function<br /> <br />

2. '多短线类型1
   
3. Public Sub Polyline()
   
4.     Dim ptArr1(0 To 9) As Double
   
5.     Dim objLWPline  As AcadLWPolyline
   
6.     '多段线定点坐标数组
   
7.     ptArr1(0) = 0: ptArr1(1) = 0
   
8.     ptArr1(2) = 60: ptArr1(3) = 0
   
9.     ptArr1(4) = 60: ptArr1(5) = 40
   
10.     ptArr1(6) = 0: ptArr1(7) = 60
    
11.     ptArr1(8) = 0: ptArr1(9) = 0
    
12.     Set objLWPline = AddLWPline(ptArr1, 0)
    
13. 
    
14.     '设置多段线的凸出参数,1为半圆,0表示直线
    
15.     objLWPline.SetBulge 1, 0.414
    
16.     objLWPline.Update
    
17. End Sub

'多短线类型1<br /> Public Sub Polyline()<br />     Dim ptArr1(0 To 9) As Double<br />     Dim objLWPline  As AcadLWPolyline<br />     '多段线定点坐标数组<br />     ptArr1(0) = 0: ptArr1(1) = 0<br />     ptArr1(2) = 60: ptArr1(3) = 0<br />     ptArr1(4) = 60: ptArr1(5) = 40<br />     ptArr1(6) = 0: ptArr1(7) = 60<br />     ptArr1(8) = 0: ptArr1(9) = 0<br />     Set objLWPline = AddLWPline(ptArr1, 0)<br /> <br />     '设置多段线的凸出参数,1为半圆,0表示直线<br />     objLWPline.SetBulge 1, 0.414<br />     objLWPline.Update<br /> End Sub

如果能实现选择后标注，标注的样式能否一起定义？

你好小崧

图形代码已经附上，实现效果就是图形生成后，选择图形，能够生成图片对应的选择后及出现标注的效果。