catia宏求助

如上附件是CATIA点转为球的宏，请教下如何编辑才能让其只转化piont而不是所有的点线面体等全部转化为球？另外这个宏只能在part下用，如何编辑才能在任何环境下用？

每个piont都有相应的名字，如果你没有自己特意命名应该命名规则为piont1、piont2...那么你要哪个点转化成圆就得指定点的名字，这样才能精确的达到效果；另外宏在任何环境下需要进行一个Product和part环境判断，也就是不管前面是多少个装配，我最后作用到的是part，那么你就得具有一定的VB编程基础了。如果你是完全没基础的，这点功能对你来说还是挺困难的。

另外，直接贴源码出来就行了，搞个附件还要下载

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


补充一下宏，请大神指导~