Using Visual FoxPro (VFP) to control/program Rhino3D V2 |
VisualFoxPro is one of the best development tools for large databases
Define CLASS RhinoVFPClass AS
SESSION OLEPUBLIC
Function VFP_AXinit (rhValue)
Clear
_Screen.hide
Do form beginfrm
Read EVENTS
Endfunc
Enddefine
Rhino start up script RhinoVFP.rvb
Dim obj
Sub connectActiveX()
Set obj = CreateObject("rhinovfp.RhinoVFPClass")
If IsObject(obj)
AndIsObject(Rhino)
Then
'send Rhinoobject to the VFP COM InitClass
obj.VFP_AXinit(Rhino)
End If
Set obj = Nothing
End Sub
connectActiveX