iCAx开思网

标题: CATIA中如何写入字体 [打印本页]

作者: 金机器人 时间: 2015-11-27 15:23
标题: CATIA中如何写入字体
CATIA中如何写入字体

作者: fanwb 时间: 2015-11-29 18:05
这个还10大米，打劫啊

作者: zxd3116 时间: 2015-12-10 10:26
学习一下

作者: bankexin001 时间: 2016-5-6 02:21

作者: 金机器人 时间: 2016-11-18 16:25

fanwb 发表于 2015-11-29 18:05
这个还10大米，打劫啊

知识就是力量

作者: victor123456 时间: 2017-5-16 22:01
太贵了

作者: 守仁格竹GM 时间: 2017-7-21 11:20

作者: 轩旗 时间: 2018-3-2 13:40
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

作者: a8012024 时间: 2018-3-29 06:09
谢谢分享！

作者: 44372103 时间: 2018-6-28 21:14
1111111

作者: 44372103 时间: 2018-6-28 21:15
hjhkhkhkh

作者: wyfc20096 时间: 2018-9-5 09:03
没有用过，谢谢楼主

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