Need Help! Alphacam Vba Create Surface


Results 1 to 8 of 8

Thread: Alphacam Vba Create Surface

  1. #1
    Member Tebernus's Avatar
    Join Date
    May 2022
    Posts
    7
    Downloads
    0
    Uploads
    0

    Default Alphacam Vba Create Surface

    Merhaba.

    Alphacam VBA ile iki çizgi ile Yüzey olu?turmak istiyorum.

    Yüzey olu?tumak için örnek program kodlar?na ihtiyac?m var.

    yard?mlar?n?z? bekliyorum.

    Similar Threads:
    Attached Thumbnails Attached Thumbnails Alphacam Vba Create Surface-surface-jpg  


  2. #2
    Member Maroslav4's Avatar
    Join Date
    Apr 2015
    Location
    Czech Republic
    Posts
    327
    Downloads
    7
    Uploads
    0

    Default Re: Alphacam Vba Create Surface

    Hello,

    check this code.

    Option Explicit
    Public Sub surfaceCreate()

    Dim drw As Drawing
    Set drw = App.ActiveDrawing

    Dim SurRec As Path
    Set SurRec = drw.CreateRectangle(0, 0, 1000, 500)
    drw.CreateSurfaceFlat SurRec
    End Sub



    https://drive.google.com/file/d/1jmF...usp=share_link

    Postprocessors, VBA macros, .NET programming.
    www.ccsoftcz.com


  3. #3
    Member Tebernus's Avatar
    Join Date
    May 2022
    Posts
    7
    Downloads
    0
    Uploads
    0

    Default Re: Alphacam Vba Create Surface

    Merhaba. ilginiz icin tesekkur ederim. istedigim 3D Surface olusturmak. Sizin orneginiz Flat Surface. 3dPolyLine ile yüzey olu?turmak istiyorum. 3dPolyLine ile Path yapamiyorum. bir video çekip atmayi deneyecegim.



  4. #4
    Member Tebernus's Avatar
    Join Date
    May 2022
    Posts
    7
    Downloads
    0
    Uploads
    0

    Default Re: Alphacam Vba Create Surface

    3D yüzey örnek




  5. #5
    Member Maroslav4's Avatar
    Join Date
    Apr 2015
    Location
    Czech Republic
    Posts
    327
    Downloads
    7
    Uploads
    0

    Default 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

    Postprocessors, VBA macros, .NET programming.
    www.ccsoftcz.com


  6. #6
    Member Tebernus's Avatar
    Join Date
    May 2022
    Posts
    7
    Downloads
    0
    Uploads
    0

    Default Re: Alphacam Vba Create Surface

    I've tested it.
    Thank you very much. Thank you very much. Thank you very much.
    Thank you very much. Thank you very much. Thank you very much.
    Thank you very much. Thank you very much. Thank you very much.
    Thank you very much. Thank you very much. Thank you very much.
    Thank you very much. Thank you very much. Thank you very much.
    Thank you very much. Thank you very much. Thank you very much.



  7. #7
    Member Tebernus's Avatar
    Join Date
    May 2022
    Posts
    7
    Downloads
    0
    Uploads
    0

    Default Re: Alphacam Vba Create Surface

    Dim Sf As Surface
    Set Sf = pC.CreateSurfaceRuled(geo_sur1, geo_sur2, tolerance)
    Sf.Redraw
    Sf.Selected = True

    mc.ChordError = 0.1
    mc.MachineSurfaces

    Sf.Selected command not select surface





    How To Toolpath Surface 3dProject



  8. #8
    Member Maroslav4's Avatar
    Join Date
    Apr 2015
    Location
    Czech Republic
    Posts
    327
    Downloads
    7
    Uploads
    0

    Default Re: Alphacam Vba Create Surface

    Code should look something like this.
    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


    Dim M1 As Surface
    Set M1 = drw.CreateSurfaceRuled(geo_sur1, geo_sur2, tolerance)
    M1.Selected = True


    App.SelectTool App.LicomdatPath & "licomdat\rtools.alp\Bull Nose - 10mm x 1.5mm rad.art"
    Dim MD As MillData
    Set MD = App.CreateMillData
    MD.ChordError = 0.1
    MD.WidthOfCut = 0.5
    MD.SetSurfaceMCPoints 20, 20, 0, 30, 20, 0
    MD.SurfaceMCAction = acamSurfaceMCActionMCSURFACES
    MD.SurfaceMCMethod = acamSurfaceMCPARAMETER_LINES
    MD.MachineSurfaces
    End Sub

    Postprocessors, VBA macros, .NET programming.
    www.ccsoftcz.com


Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


About CNCzone.com

    We are the largest and most active discussion forum for manufacturing industry. The site is 100% free to join and use, so join today!

Follow us on


Our Brands

Alphacam Vba Create Surface

Alphacam Vba Create Surface