Error messages appears in my code

You can run the following commands to get more details for an error:
sstatus(stacktraceDump t)
sstatus(stacktrace 10)
sstatus(traceArgs t)

With that said, you can see in #2 that the CCSchangeCreateRulerFormPoints is not being called with two arguments it expects. Looking at the enterLine command in CCScreateRuler, you can see that the delPointProc is defined to accept no arguments since the command is given with its parentheses. The addPointProc and doneProc are define to accept the arguments generated by enterLine. Remove the parentheses for the delPointProc and #2 will be fixed.

Another problem witht he code is your first if statement is not defined correctly:
    if(boundp('CCScreateRulerForm) && CCScreateRulerForm then
      form = CCScreateRulerForm
      form = CCSmakeCreateRulerForm()
      else
    );if

Notice that there is nothing happening in the else, and that form is defined twice in the if. Move the else between the form statements.

I also found that hiGetCurrentForm() couldn't be relied upon to get the form id since multiple forms could be open and since the form can be hidden. To get the code to work for me, I made the form id a global variable and replaced all calls to hiGetCurrentForm() with the global variable name.