Our Solutions

Need professional assistance?
Consider our:

Support Offerings


Need to speed up your development?
Have a look at our:

Samples & Tools


Need some functionality extending standard OCCT capabilities?
Check out our:

Adv. Components

Project status

Filippo Bottega's picture

I finish to implement an Access db to generate all occ com classes.
I have implemented about 90 classes and now my first vba sample, the bottle sample, works.
The source vb code is like:

Public Sub Bottle()

Dim aPnt1 As New gp_Pnt
Dim aPnt2 As New gp_Pnt
Dim aPnt3 As New gp_Pnt
Dim aPnt4 As New gp_Pnt
Dim aPnt5 As New gp_Pnt

Call aPnt1.Constructor_2(-myWidth / 2, 0, 0)
Call aPnt2.Constructor_2(-myWidth / 2#, -myThickness / 4#, 0)
Call aPnt3.Constructor_2(0, -myThickness / 2#, 0)


Dim aEdge As TopoDS_Edge
Do While aEdgeExplorer.More
Set aEdge = aTopoDS.Edge(aEdgeExplorer.Current)
Call mkFillet.Add_2(myThickness / 12#, aEdge)
Call aEdgeExplorer.Next

Set myBody = mkFillet.Shape


martinlaun's picture

I like your idea with the COM interface. When do you plan to public your project or a part of it?

Guido's picture

Hello Filippo,

Are you planning to distribute the code or libray's, I like to see
how it works.

Do you also have an viewer? (ActiveX control)

If you need help. I like to paticipate.