The below code calculating angle correctly thank u edave for your help, linePts =car(axlGetSelSet())->startEnd DxDy =axlMXYSub(cadr(linePts),car(linePts) ) Dx =car(DxDy) Dy = cadr(DxDy) m =Dy/Dx ;Replaced atan2 by atan angle =axlRadToDeg( atan(m) ) when(negativep(angle), angle =angle+90)
↧