[求助]新手求助

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的帮助！

[求助]新手求助

发表回复

精选推荐