iCAx开思网

标题: 开贴解答CATIA CAA二次开发问题 [打印本页]

作者: 承接二次开发CAA 时间: 2017-5-10 21:58
标题: 开贴解答CATIA CAA二次开发问题
平时比较忙，回复的可能不及时，望谅解。偶尔会逛逛论坛，如遇到求助尽可能的会回复，知无不言言无不尽。
另外，本人承接二次开发项目，大小都可，价格优惠。QQ956722162。

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

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

作者: 承接二次开发CAA 时间: 2017-5-10 22:13
本帖最后由承接二次开发CAA 于 2017-5-10 22:15 编辑

test网络

作者: 承接二次开发CAA 时间: 2017-5-10 22:13

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

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

作者: zhaozheng1983 时间: 2017-5-15 14:27
对于不是很复杂的CATIA模型，能否通过开发获得最小包络体？
PS：希望通用性能高一些，不去选择坐标系，仅通过模型获取。

作者: vhpg 时间: 2017-6-4 13:47
装配时，将鼠标选中的零件绕自身坐标（u轴）旋转成180°，宏命令如何编译呢？

作者: qq116359910qq 时间: 2017-7-22 07:33
本帖最后由 qq116359910qq 于 2017-7-25 10:22 编辑

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下使用并且只转化点而不是转化所有几何图形集下的东西变成球？

作者: MAOZHE 时间: 2018-6-14 09:59
我想请教一下怎样利用拓扑的方式创建一个面，并且显示在CATIA中？

欢迎光临 iCAx开思网 (https://www.icax.org/)