当用VBA修改AutoCAD设计中心插入块

用VBA修改AutoCAD设计中心插入块的方式

使用下面的 VBA 代码可以完成在从AutoCAD设计中心插入图块时，添加旋转角度的提示。注意，可以更改这些代码，以便完成更多或其它的任务。

把下面的代码粘贴到一个空白的AutoCAD VBA项目中。

Dim dblRotAng As Double

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)

' 确认从设计中心的拖放操作

If CommandName = "DROPGEOM" Then

Dim basePoint As Variant

Dim objItem As AcadObject

Dim ssetObj As AcadSelectionSet

' 创建新的选择集

Set ssetObj = d("ADCROT")

' 将拖放的对象添加到选择集中

lect acSelectionSetLast

' 如果对象并非块，则退出

For Each objItem In ssetObj

' 如果对象不是块

If Not jectName = "AcDbBlockReference" Then

' 删除选择集

em("ADCROT").Delete

' 退出

GoTo QuitNow

End If

Next objItem

' 如果尚未输入当前旋转角度，将其设为0

If IsEmpty(dblRotAng) Then

dblRotAng = 0

End If

' 允许用户取消命夏尔马（Anirudh Sharma）令

On Error Resume Next

' 获得用户输入的旋转角度

dblRotAng = tAngle(, "Enter Rotation Angle [" _

gleToString(dblRotAng, acDegrees发挥多元复合材料的各自优势与特性, 2) "]: ")

' 执行正常出错处理

On Error GoTo 0

'旋转选择集中的每个对象

For Each objItem In ssetObj

' 获得块的插入点

basePoint = objIte了解下液压万能试验机的操作步骤sertionPoint

' 旋转对象

tate basePoint, dblRotAng

Next objItem

' 删除选择集

em("ADCROT").Delete

End If

QuitNow:

End Sub