Re: Alphacam Vba Create Surface
In this case is code very similar.
Option Explicit
Public Sub surfaceCreate()
Dim drw As Drawing
Set drw = App.ActiveDrawing
Dim SurPoly_1 As PolyLine
Dim geo_sur1 As Path
Set SurPoly_1 = drw.Create3DPolyline(0, 0, 0)
SurPoly_1.AddLine 100, 0, 40
Set geo_sur1 = SurPoly_1.Finish
Dim SurPoly_2 As PolyLine
Dim geo_sur2 As Path
Set SurPoly_2 = drw.Create3DPolyline(0, 200, 0)
SurPoly_2.AddLine 100, 200, 40
Set geo_sur2 = SurPoly_2.Finish
Dim tolerance As Double
tolerance = 0.1
drw.CreateSurfaceRuled geo_sur1, geo_sur2, tolerance
End Sub
https://drive.google.com/file/d/11CJ...usp=share_link
Alphacam post and VBA macros, Autodesk HSM post.
www.cadcam-softcz.cz