microstation二次开发之边界倒角

智能实体边界倒角程序实现

边界倒角接口

ChamferEdge (solid, closestPoint, distance1, distance2, smoothEdges)

solid SmartSolidElement类型
closestPoint Point3d类型 点要位于边上
distance1 double类型 第1个倒角距离
distance2 double类型 第2个倒角距离
smoothEdges bool值 是否平滑

本例程序代码基于原点在中心的长度为100的立方体，对立方体竖向四条边进行倒圆角操作，首先利用CreateSlab函数创建立方体，然后实例化一条边的中点，作为closestPoint参数，第一条倒角距离为5 ，第二条倒角距离为10，利用ChamferEdge函数对边进行边界倒角操作。

程序代码

Sub main()

    Dim solid As SmartSolidElement

    '创建长方体
    Set solid = SmartSolid.CreateSlab(Nothing, 100, 100, 100)
    '定义需要倒圆角的边上的点
    Dim point As Point3d
    point = Point3dFromXYZ(50, 50, 0)
    Set solid = SmartSolid.ChamferEdge(solid, point, 5, 10, True)
    
    '添加至模型空间
    ActiveModelReference.AddElement solid


End Sub

运行效果

1.png