[原创]缩放圆VBA源码
<p>Private Sub CommandButton1_Click()<br/>UserForm1.Hide<br/>On Error Resume Next<br/> Dim sset As AcadSelectionSet<br/> If Not IsNull(ThisDrawing.SelectionSets.Item("Example")) Then<br/> Set sset = ThisDrawing.SelectionSets.Item("Example")<br/> sset.Delete<br/> End If<br/> Set sset = ThisDrawing.SelectionSets.Add("Example")<br/>sset.SelectOnScreen</p><p>' 在选择集中循环并将每一对象的颜色改为蓝色。<br/>Dim entry As AcadEntity<br/>For Each entry In sset<br/>entry.color = acRed<br/>entry.Offset (CDbl(UserForm1.TextBox1.text))<br/>entry.color = acWhite<br/>entry.Update<br/>Next entry<br/> If UserForm8.CheckBox1.Value = True Then<br/> For Each element In sset<br/> element.Delete<br/> Next<br/> End If<br/> sset.Delete<br/> End<br/>End Sub</p><p>------------------------------------</p><p>上面VBA代码,怎样可以改成VB代码,明经兄弟请帮忙</p><p></p><p>------------------------------------------</p>
页:
[1]