Question

我有一个复杂烟囱的3D模型，它基本上是一个带有装饰特征的圆柱形管。我想编写一个VBA脚本，在其长度上的几个点找到部分属性，但我不确定该怎么做。

通过在线搜索，我设法编写了一个代码，该代码放入一个部分，然后我可以运行MASSPROP但我不太确定如何完成它...我我想我只有一行代码。我只需要选择我刚刚创建的部分。

我几乎完整的代码在下面，我需要帮助的一行评论。

Public Sub Section()
Dim SolidObject As Acad3DSolid
Dim NewRegionObject As AcadRegion
Dim PlaneOrigin As Variant
Dim PlaneXaxisPoint As Variant
Dim PlaneYaxisPoint As Variant
Dim PickedPoint As Variant
On Error Resume Next
With ThisDrawing.Utility
.GetEntity SolidObject, PickedPoint, vbCr & "Select solid to cut."
If Err Then
    MsgBox "Selected solid must be a 3DSolid"
    Exit Sub
End If
PlaneOrigin = .GetPoint(PickedPoint, vbCr & "Select point to define origin.")
PlaneXaxisPoint = .GetPoint(PickedPoint, vbCr & "Select point to define x-axis.")
PlaneYaxisPoint = .GetPoint(PickedPoint, vbCr & "Select point to define y-axis.")
Set NewRegionObject = SolidObject.SectionSolid(PlaneOrigin, PlaneXaxisPoint, PlaneYaxisPoint)
End With
ThisDrawing.SendCommand ("qaflags" & vbCr & "2" & vbCr) 'This is needed for the operation
ThisDrawing.SendCommand ("massprop" & vbCr)
'How do I select my NewRegionObject???
ThisDrawing.SendCommand (vbCr & vbCr & "y" & vbCr & vbCr & "y" & vbCr)
End Sub

如果我可以使用我新创建的部分运行MASSPROP这段代码，我应该能够调整它以便在烟囱的几个点自动完成这个过程，所以我想我只有一行代码关闭

感谢您的帮助，汤姆

Answer 1

您最好利用Autocad对象模型：

Dim minPoint As Variant, maxPoint As Variant
Set NewRegionObject = SolidObject.SectionSolid(PlaneOrigin, PlaneXaxisPoint, PlaneYaxisPoint)
With NewRegionObject
    MsgBox "Area: " & .Area
    MsgBox "Perimeter: " & .Perimeter

    .GetBoundingBox minPoint, maxPoint
    MsgBox "Min Point coordinates: (" & minPoint(0) & "," & minPoint(1) & "," & minPoint(2) & ")"
    MsgBox "Max Point coordinates: (" & maxPoint(0) & "," & maxPoint(1) & "," & maxPoint(2) & ")"
    MsgBox "Centroid coordinates: (" & .Centroid(0) & "," & .Centroid(1) & ")"
    MsgBox "Moments of Inertia: (" & .MomentOfInertia(0) & "," & .MomentOfInertia(1) & "," & .MomentOfInertia(2) & ")"
    '.. and so on
End With

AutoCAD VBA：选择对象

1 个答案: