嗨，我正在做一个项目，比较Autocad实体的几何相等性..目前，我只测试从封闭的二维多段线挤出的实体。基本概念是从实体中收集点(使用Explode x2)，将它们添加到我的点集合中，然后检查集合是否相等。问题是，如何计算固体的主轴？我需要知道这一点，以便将每个立体转换到相同的坐标中进行比较。请参见下面的代码.....这似乎是可行的，除了一些固体围绕WCS z轴正好旋转180度？除了使用质量属性获得固体ECS/OCS，还有更好的方法吗？(Brep api有点超出我的理解范围)任何帮助都将不胜感激。 _ 。
Public Sub InvertECS()。
。
将文档显示为文档=应用程序，document manager . MdiActiveDocument 。
Dim db As Database = doc，数据库。
Dim ed As Editor = doc，编辑器。
。
“选择实体”。
Dim peo As New promptentity options(vbLf & " Select a 3D solid:")。
peo，SetRejectMessage(vbLf & "无效选择...")。
peo，AddAllowedClass(GetType(solid 3d)，True)。
。
Dim per As PromptEntityResult = ed，GetEntity(peo)。
。
如果按照，状态提示状态，那好吧。
返回。
结束If。
。
Dim Id As ObjectId = per，ObjectId。
。
“开始交易”。
使用Tr作为事务= db，transaction manager . start transaction()。
。
“得到固体”。
Dim sol As solid 3d = DirectCast(Tr，GetObject(Id，OpenMode。ForWrite)、Solid3d)。
。
'获取固体质量属性。
Dim mprops As solid 3d mass properties = sol，质量属性。
将原点标注为Point3d = mprops，质心。
Dim solX As Vector3d = mprops，PrincipalAxes(0)。
Dim solY As Vector3d = mprops，原则性问题(1)。
Dim solZ As Vector3d = mprops，原则性问题(2)。
。
“质量属性中的实体坐标系”。
Dim ECS As New coordinate system3d(origin，solX，solY)。
。
'世界坐标系。
将WCS作为新的CoordinateSystem3d(新点3d(0，0，0)，新矢量3d(1，0，0)，新矢量3d(0，1，0))。
。
'转换矩阵。
Dim TrMatrix作为新的Matrix3d()。
。
TrMatrix = Matrix3d，对齐坐标系统(ECS，起源，_。
ECS，Xaxis，_。
ECS，Yaxis，_。
ECS，Zaxis，_。
WCS，起源，_。
WCS，Xaxis，_。
WCS，Yaxis，_。
WCS，Zaxis)。
'变换实体。
溶胶，TransformBy(TrMatrix)。
。
“现在保存以检查结果”。
TrCommit()。
。
结束使用。
结束Sub。
。
。
置顶卡
