vb and C#

[lloydsp]

Yeah... unless he's willing to "open up", I think I am too. 

And I HATE that!  We try to help, then folks won't let us!

Lloyd

[BR52]

Hello Alderanuri,

One thing I get angry and hate is people who creates software and rents out per month.
The person are restricted!
I know you want to be free from these people.

http://www.mozaiksoftware.com/products/mozaik-cnc

   Armando

[Alderanuri]

hi
how to draw rectangle
and selected tool

visual studio code_?

[lloydsp]

<sigh>... Alderan (), just select the rectangle tool, click one corner, drag, then click the other.  You can size it with the cursor, and correct the size and origin to your likes in the drawing item's description!

Lloyd

[dh42]

In VB

Code: [Select]

sub main
   
        Dim pr As PolyRectangle = New PolyRectangle()

        pr.CornerRadius = 0
        pr.Width = 100
        pr.Height = 50
        pr.Closed = True
        pr.Update()

        CamBamUI.MainUI.ActiveView.CADFile.Add(pr)

end sub

[Alderanuri]

Attribute VB_Name = "Model001"
Public Sub Model_001()

App.New

Dim drw As Drawing
Set drw = App.ActiveDrawing

Dim Ty As MillData
Set Ty = App.CreateMillData

heigth = 800
width  = 450



Dim Rectangle As Path
Set Rectangle = drw.CreateRectangle(0, 0, width, heigth)
Rectangle.Fillet (5)


    App.SelectTool T1

   
        Rectangle.Selected = True
   
   
    With Ty
    .ToolNumber = 1
    .OffsetNumber = 1
    .SpindleSpeed = 18000
    .DownFeed = 3000
    .CutFeed = 8000
    .SafeRapidLevel = 30
    .RapidDownTo = 30
    .MaterialTop = 0
    .Stock = 0
    .FinalDepth = -5
    .NumberOfCuts = 1
    .McComp = acamCompTOOLCEN
    .XYCorners = acamCornersSTRAIGHT
    .WidthOfCut = 1
    End With
 
    Ty.RoughFinish

Rectangle.Selected = Fale

End Sub

[dh42]

That does not looks like a Cambam code 

[lloydsp]

AH!  Terrific!  We're progressing.

Now... we'll have to know a FEW things about your machine, but most of that is pretty clear.  All you (seem to) want is a CB script that will draw a rectangle for you!

To be true, you don't NEED a script to do that, because CB has a very versatile rectangle ability.  And there are even plugins to improve it.

But if you want a script to draw rectangles in CB, there are already examples, and we CAN help you.

Thanks Alderan... now it begins to make sense to me.

Lloyd

[lloydsp]

Oh, David, that's NOT CB code, that's code for his existing CAM.  He wants to do the same thing in CB!

Lloyd

[dh42]

Ah ! ok 

So the code for a rectangle is in the previous message, and for the rest, I assume it's a machining operation that is added.

there is a document about how to create a new MOP here. (Vb and Python)

http://www.cambam.info/ref/script.mop-automate

++
David

[Alderanuri]

Now I expect samples from you

[Alderanuri]

Sub Main
   
        Dim pr As poliRectangle = New PolyRectangle ()

        pr.CornerRadius = 0
        pr.Width = 100
        pr.Height = 50
        pr.Closed = True
        pr.Update ()

        CamBamUI.MainUI.ActiveView.CADFile.Add (pr)

end sub




tool selected ?

[dh42]

I never creates code myself that creates machining operation (MOP) so I can't help about that, but certainly you can find infos by reading the source code of plugins that creates MOP.

There is no doc about programing for CB, so the only way is to explore the source code that users share on this forum  and to explore the cambam .dll with a tool like Reflector, ILspy, or the visual studio facilities ; it's what I do (I'm a noob coder)

++
David

[Alderanuri]

No progress
Sample and API incompleteness

[EddyCurrent]

No progress
Sample and API incompleteness

The API is incomplete, that is correct and that will not change any time soon.
No progress because you have to look at the code examples of plugins here; http://www.atelier-des-fougeres.fr/Cambam/Aide/Plugins/plugin_menu.html
and work it out for yourself, that is what everyone else had to do.

Now paste this reply into here; http://imtranslator.net/translation/english/to-turkish/translation/