【求助】catia用vb用点生成球的代码

Siren666

catia里车身焊点比较多，画完点有时候要生成球。
以前用过这样的代码，现在没有了。
希望有人能将该代码发一下，万分感谢！

大军201716

期待高手！！！

jacker312

Sub CATMain()

dim aaa as document
set aaa = catia activedocument

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1 HybridShapeFactory

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1 Hybridbodies

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = HybridBody1 HybridShapes

Dim selection As selection
Set oSel = partDocument1 Selection

Dim InputObjectType(0)

InputObjectType(0) = "Point"


     Status = oSel.SelectElement3(InputObjectType,"框选焊点",True,1,True)
     If (Status = "Cancel")Then
         oSel Clear Exit Sub
     End If

for i=1 to oSel count

Dim hybridShapePointExplicit1 As Parameter
Set hybridShapePointExplicit1 = oSel Item(i)

Dim reference1 As Reference
Set reference1 =oSel Item(i) value


Dim hybridShapeSphere1 As HybridShapeSphere
Set hybridShapeSphere1 = hybridShapeFactory1 AddNewSphere(referencel,Nothing,6.000000,-45.000000,45.000000,0.000000,180.000000)

hybridShapeSphere1 limitation = 1

hybridBody1 AppendHybridShape hybridShapeSphere1

part1 InWorkObject = hybridShapeSphere1

next

part1 Update

End Sub

残雪

类似二次开发了啊

Siren666

3楼的代码比较繁琐，而且运行不了。第二行就出现错误。

今天编辑多次，运行多次，终于成功了
代码如下：

Sub CATMain()

Dim odoc, opart, ohbodies, ohbody, ohybridshapefactory, oshere, oselection, status, pointreference
Dim i, inputtype(0)

CATIA.Visible = True
Set odoc = CATIA.ActiveDocument
Set opart = odoc.Part
Set ohbodies = opart.HybridBodies
Set ohbody = ohbodies.Add()
ohbody.Name = ohbody.Name & "(sphere)"

Set oselection = odoc.Selection
Set ohybridshapefactory = opart.HybridShapeFactory

For i = 1 To oselection.Count
    Set pointreference = opart.CreateReferenceFromObject(oselection.Item(i).Value)
    Set osphere = ohybridshapefactory.AddNewSphere(pointreference,Nothing,3,-45,45,-180,180)
    osphere.Limitation = 1
    ohbody.AppendHybridShape osphere
Next
opart.Update
End Sub

=====================
首先要选取点

lbgood

Siren666 发表于 23-4-2014 21:31
3楼的代码比较繁琐，而且运行不了。第二行就出现错误。

今天编辑多次，运行多次，终于成功了

立马去试试