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

[求助]新手求助

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

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

本帖最后由 作者 于 2009-1-6 11:03:12 编辑 <br /><br /> <p>Sub qzx()&nbsp;&nbsp;&nbsp;&nbsp; '取线<br/>Dim sset As AcadSelectionSet&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '声明选择集</p><p>Set sset = ThisDrawing.SelectionSets.Add("SS1")&nbsp;&nbsp; &nbsp;'set选择集<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim FilterType(0) As Integer<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim FilterData(0) As Variant<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FilterType(0) = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FilterData(0) = "LWPolyline,line"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '只可选择多段线和直线<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sset.SelectOnScreen FilterType, FilterData&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '从屏幕选择对象<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>For Each ent In sset&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '遍历所选择集中对象<br/>&nbsp;hj = ent.Length + hj&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'hj代表合计<br/>Next</p><p>MsgBox hj&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '对话框显示合计</p><p>ThisDrawing.SelectionSets("SS1").Delete&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '删除选择集<br/>End Sub</p><p></p><p></p><p></p>

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

太好了，谢谢<strong><font face="Verdana" color="#61b713">cctv2cctv<font color="#000000">的帮助！</font></font></strong>
页: [1]
查看完整版本: [求助]新手求助