开贴解答CATIA CAA二次开发问题

平时比较忙，回复的可能不及时，望谅解。偶尔会逛逛论坛，如遇到求助尽可能的会回复，知无不言言无不尽。
另外，本人承接二次开发项目，大小都可，价格优惠。QQ956722162。

——从事CATIA二次开发多年，精通CAA、C++、数据库编程，诚信为人

CATIA中有没有可以做包络圆的方法，用CAA好实现吗

test网络

zhengf312 发表于 2017-5-10 22:07
CATIA中有没有可以做包络圆的方法，用CAA好实现吗

实话实说，没有可以做包络圆的命令，纯二次开发应该很难实现，在研究生阶段做过求解包络圆的工具，不过是基于Matlab的，想要在CATIA中实现，必须把模型转化为数学模型，然后调用matlab的编写的dll，再将结果转化为几何模型，这是我目前能回答你的一条思路，感兴趣的话可以试一下，如果有其他好的方法，欢迎你分享

对于不是很复杂的CATIA模型，能否通过开发获得最小包络体？
PS：希望通用性能高一些，不去选择坐标系，仅通过模型获取。

装配时，将鼠标选中的零件绕自身坐标（u轴）旋转成180°，宏命令如何编译呢？

Sub catmain()
Dim iSelection
Set iSelection = CATIA.ActiveDocument.Selection
Dim iStatus, iType(0)
iType(0) = "HybridBody"
iStatus = iSelection.SelectElement2(iType, "Please select the Geometrical Set with center points", False)
If iStatus = "Redo" Or iStatus = "Undo" Or iStatus = "Cancel" Then
   
     Exit Sub
   
End If
Dim iName, iHB, sHB
iName = iSelection.Item(1).Value.Name
Set iHB = CATIA.ActiveDocument.Part.HybridBodies.Item(iName)
Set sHB = CATIA.ActiveDocument.Part.HybridBodies.Item(iName)

Dim iHSF, iPoint, iSphere, iRadius
iRadius = InputBox("Please input joint radius", "Joints Creation Tool", 10)
Set iHSF = CATIA.ActiveDocument.Part.HybridShapeFactory
For Each iPoint In iHB.HybridShapes
   
    Set iSphere = iHSF.AddNewSphere(iPoint, Nothing, iRadius, -90, 90, -180, 180)
    iSphere.Limitation = 1
    sHB.AppendHybridShape iSphere
    iSphere.Name = iPoint.Name & "_Joint"
   
Next
iSelection.Clear
CATIA.ActiveDocument.Part.Update
  End Sub


请教下如何修改才能将上面这个宏改成可以在product下使用并且只转化点而不是转化所有几何图形集下的东西变成球？

我想请教一下怎样利用拓扑的方式创建一个面，并且显示在CATIA中？