zamyi 发表于 2009-1-6 09:12:00

[求助]新手求助

我想要用VBA编写一个带有TextBox的窗体，使能够在中把选中的对象长度显示在TextBox中，该如何编写？先谢过。

cctv2cctv 发表于 2009-1-6 11:01:00


Sub qzx()   '取线
Dim sset As AcadSelectionSet      '声明选择集
Set sset = ThisDrawing.SelectionSets.Add("SS1")    'set选择集
                  
             Dim FilterType(0) As Integer
             Dim FilterData(0) As Variant
             FilterType(0) = 0
             FilterData(0) = "LWPolyline,line"                '只可选择多段线和直线
             sset.SelectOnScreen FilterType, FilterData                     '从屏幕选择对象
            
For Each ent In sset                '遍历所选择集中对象
hj = ent.Length + hj               'hj代表合计
Next
MsgBox hj               '对话框显示合计
ThisDrawing.SelectionSets("SS1").Delete            '删除选择集
End Sub

zamyi 发表于 2009-1-6 11:37:00

太好了，谢谢cctv2cctv的帮助！
页: [1]
查看完整版本: [求助]新手求助