[原创]缩放圆VBA源码

[复制链接]

ngeqt521

11 主题	36 帖子	4 银币

初露锋芒

Rank: 3 Rank: 3 Rank: 3

铜币: 80

发消息

发表于 2007-4-21 15:01:00 | 显示全部楼层 |阅读模式

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

使用道具举报